Release [Origins Server] The discovery to Hispared server

[Zisha]

Hi all.
I am 1 of the present admin Origins server.
And I act on behalf of many Spanish GameMaster. We artos of deception Hispared server and enter lomcn above to grab things and put on their forums that they created things .. when it is not true.
As I see it not just me going to dedicate to post a script or at least how it works hispared so everyone can enjoy them and put them, so will remove the "exclusivity Hispared server ..."

Standards in the post:

1. Not thanking will post if you liked + reputation.

2. It services requests by MP

3. No NPC will post the full just how to do it, you shall have to fill it.

--------------------------------------------------------------------------------------------------------

Hola a todos.
Me presento soy 1 de los admin de Origins server.
Y voy actuar en representación de muchos GameMaster españoles. Estamos artos de los engaños del servidor Hispared y que encima entren a lomcn a cojer cosas y pongan en sus foros que han creado ellos las cosas.. cuando no es verdad.
Como no lo veo justo me voy a dedicar a postear un script de hispared o almenos como funciona para que todos puedan disfrutar de ellos y ponerlos , asi quitaremos la "exclusividad del servidor Hispared..."

Normas :

1. No se posteara dando las gracias si os ha gustado + reputacion.

2. Se atiende peticiones por MP

3. No se posteará el npc completo simplemente la manera de hacerlo , vosotros tendreis que rellenarlo.

---------- Post added at 02:00 AM ---------- Previous post was at 01:59 AM ----------

;;;;;;;;;;;;;;
Release - (Logical,Logico) Or Postman(cartero)
;;;;;;;;;;;;;;

Spoiler

;--------------------------------------;
Explain:
The NPC comes out randomly on a map and do a function.
In this case a maze where there are boxes and deliveries and you get some awards.
I will show you how to put a random npc maps.
;--------------------------------------;
Explicacion:
El npc sale aleatoriamente en un mapa y hace una funci¨®n.
En este caso un laberinto donde hay unos cofres y que las entregas y te dan unos premios.
Yo os mostrar¨¦ como poner un npc aleatorio en mapas.
;--------------------------------------;

;Script;

In 00Default -> Market_Def/00Default

[@Main]
#ACT
BREAK

[@_Startup] ;The script starts from when you open the server
#CALL [/System/StartUp.txt] @Logical



;;QuestDiary/System/StartUp.txt

[@Logical]
{
#ACT
Goto @Logical1
break


[@Logical1]
#ACT
Movr D0 10 ;Choose a number between 0-10

#if
EQUAL D0 "0"
#ACT
movenpc "MAP,X,Y,NPCNAME" MAPTO X Y ;Gmroom go to map
Linemsg [GROBAL] "Logical Appear to : MAP"
Delaygoto [Local] 60 @1 ;;60seconds go other script.

[@1]
#ACT
movenpc "MAPTO,X,Y,NPCNAME" MAP X Y ;Return GMROOM
Linemsg [GROBAL] "Logical took a trip"
Delaygoto [local] 600 @Logical1
Break



}

;;;;;;;;;;;;;;
Release - Store Essence or others special items
;;;;;;;;;;;;;;

Spoiler

;--------------------------------------;
Explain:
Your store is too small and do not fit incordiosas things,
it adds this script and guilds or individual and give them a bigger store!

You need?

Deberas to create the file. Txt at:

System \ Essence.txt

For the script to work.
;--------------------------------------;

Explicacion:
Su store es pequeño y quieres poner algun item que no les incordie en los stores?
esta es tu solución!

Que se necesita?

Deberas para crear el archivo. Txt en:

System \ Essence.txt

Para que funcione el script.

[@Main]
#SAY
Essence Store\ \

<Get Essence/@Get>
<Take Essence/@Take>\
<Revise quantity/@Look>\




[@get]
#IF
#SAY
{FCOLOR/10} CHOOSE BOSS CATEGORY {FCOLOR/14}\
- <SemiBoss/@GETSemi>\ ;I complet this ! you complet any script
;;- <Boss/@GETBoss>\
;;- <Lord/@GETLord>\
;;- <Dragon/@GETDragon>\
\\

[@GetSemi]
#IF
#SAY
<EssenceWT/@@get1(EssenceWT)>\
<EssenceMT/@@get1(EssenceMT)>\
<EssenceES/@@get1(EssenceES)>\
<EssenceESC/@@get1(EssenceESC)>\
<EssenceMET/@@get1(EssenceMET)>\
<EssenceDS/@@get1(EssenceDS)>\



<[Exit]/@exit>\
\
\\

[@@get1()]
#ACT
Mov A1 %ARG(1) ;Name item
Mov D1 %INPUTNUM ;Quantity
goto @checkcantidad

[@checkcantidad]
#IF
Checkitem %A1 %D1
Large D1 0
#ACT
LoadValue D5 "QuestDiary\System\Essence.txt" %A1 %USERNAME ;Or %GUILDNAME
Take %A1 %D1
Inc D5 %D1
SaveValue "QuestDiary\System\Essence.txt" %A1 %USERNAME %D5 ;Or %GUILDNAME

#SAY
Almacenado en tu store {FCOLOR/14}<$OUTPUT(D1)> - <$OUTPUT(A1)>{FCOLOR/12}\
Total almacenados: {FCOLOR/1}<$OUTPUT(D5)>{FCOLOR/12}\\
<[Atras]/@warepotions>____<[Salir]/@exit>\
#ELSESAY
No puedes almacenar esa cantidad, ya que no dispones de ella en la bolsa\\
<[Atras]/@warepotions>____<[Salir]/@exit>\


[@Look]
#IF
#SAY
{FCOLOR/10} CHOOSE BOSS CATEGORY {FCOLOR/14}\
- <SemiBoss/@Semi>\ ;I complet this ! you complet any script
;;- <Boss/@Boss>\
;;- <Lord/@Lord>\
;;- <Dragon/@Dragon>\
\\

[@Semi]
#ACT
LoadValue D1 "QuestDiary\System\Essence.txt" [EssenceET] %USERNAME ;EVITONG
LoadValue D2 "QuestDiary\System\Essence.txt" [EssenceWG] %USERNAME ;WOOMAGUARDIAN
LoadValue D3 "QuestDiary\System\Essence.txt" [EssenceEF] %USERNAME ;EVILFROG
LoadValue D4 "QuestDiary\System\Essence.txt" [EssenceFT] %USERNAME ;FROSTIGER
LoadValue D5 "QuestDiary\System\Essence.txt" [EssenceSL] %USERNAME ;SLAVE
LoadValue D6 "QuestDiary\System\Essence.txt" [Essence] %USERNAME
LoadValue D7 "QuestDiary\System\Essence.txt" [Essence] %USERNAME
LoadValue D8 "QuestDiary\System\Essence.txt" [Essence] %USERNAME


#SAY
- EssenceEt -> {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12}\
- EssenceWG -> {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
- EssenceEF-> {FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12}\
- EssenceFT -> {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
- EssenceSL -> {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12}\
- Essence-> {FCOLOR/10}<$OUTPUT(D6)>{FCOLOR/12}\
- Essence-> {FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}\
- Essence-> {FCOLOR/10}<$OUTPUT(D8)>{FCOLOR/12}\\
<[Next Page]/@Semi2>\\
<[Back]/@Main>____<[Exit]/@exit>\\
\
\\





[@Semi2]
#ACT
LoadValue D1 "QuestDiary\System\Essence.txt" [EssenceET] %USERNAME ;EVITONG
LoadValue D2 "QuestDiary\System\Essence.txt" [EssenceWG] %USERNAME ;WOOMAGUARDIAN
LoadValue D3 "QuestDiary\System\Essence.txt" [EssenceEF] %USERNAME ;EVILFROG
LoadValue D4 "QuestDiary\System\Essence.txt" [EssenceFT] %USERNAME ;FROSTIGER
LoadValue D5 "QuestDiary\System\Essence.txt" [EssenceSL] %USERNAME ;SLAVE
LoadValue D6 "QuestDiary\System\Essence.txt" [Essence] %USERNAME
LoadValue D7 "QuestDiary\System\Essence.txt" [Essence] %USERNAME
LoadValue D8 "QuestDiary\System\Essence.txt" [Essence] %USERNAME
- EssenceEt -> {FCOLOR/10}<$OUTPUT(D1)>{FCOLOR/12}\
- EssenceWG -> {FCOLOR/10}<$OUTPUT(D2)>{FCOLOR/12}\
- EssenceEF-> {FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12}\
- EssenceFT -> {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\
- EssenceSL -> {FCOLOR/10}<$OUTPUT(D5)>{FCOLOR/12}\
- Essence-> {FCOLOR/10}<$OUTPUT(D6)>{FCOLOR/12}\
- Essence-> {FCOLOR/10}<$OUTPUT(D7)>{FCOLOR/12}\
- Essence-> {FCOLOR/10}<$OUTPUT(D8)>{FCOLOR/12}\\
<[Back Page]/@Semi1>\\
<[Back principal main]/@Main>____<[Exit]/@exit>\\
\



[@Take]
#SAY
Que pocion quieres sacar de tu store??\ \

<EssenceWT/@@Take1(EssenceWT)>\
<EssenceMT/@@Take1(EssenceMT)>\
<EssenceES/@@Take1(EssenceES)>\
<EssenceESC/@@Take1(EssenceESC)>\
<EssenceMET/@@Take1(EssenceMET)>\
<EssenceDS/@@Take1(EssenceDS)>\

<[Atras]/@Main>____<[Salir]/@exit>\
\
\\

[@@sacarpot()]
#ACT
Mov A1 %ARG(1)
Mov D1 %INPUTNUM
goto @checkcantidadasacar

[@checkcantidadasacar]
#ACT
LoadValue D2 "QuestDiary\System\Essence.txt" %A1 %USERNAME
#IF
Large D1 0
Elarge D2 %D1
#ACT

give %A1 %D1
Dec D2 %D1
SaveValue "QuestDiary\System\Essence.txt" %A1 %USERNAME %D2
#SAY
Has sacado del store {FCOLOR/14}<$OUTPUT(D1)> <$OUTPUT(A1)>{FCOLOR/12}\
Aun te quedan <$OUTPUT(D2)> <$OUTPUT(A1)>\\
<[Atras]/@warepotions>____<[Salir]/@exit>\
#ELSESAY
No puedes sacar esa cantidad, ya que no dispones de ella en el store\\
<[Atras]/@warepotions>____<[Salir]/@exit>\

;;Release - Add title's in game.

Spoiler

;----------------------------------------------
;;Explain:
;----------------------------------------------
How to put titles in the game without using rebiths, use a flag.
;----------------------------------------------
;;Explicacion:
;----------------------------------------------
Como poner titulos dentro del juego sin utilizar rebiths, utilizaremos una flag.
;----------------------------------------------


;;MapQuest

MAP [0] 0 [MonDie] Moob * [System\MapQuest\Moob] [@WoomaTaurus]

;----------------------------------------------
;----------------------------------------------


[@WoomaTaurus]
#IF
check [100] 0
#act
break
#ELSEACT
SET [100] 1 ;Add TITLE!
EventMsg Grobal "%USERNAME Is now a new Cazatesoros!" 10025 ;Last number is for img
break

;----------------------------------------------
;----------------------------------------------

;;00DEFAULT
[@main]
#if
#act
break

[@_HLSCRIPTSYSTEM]
#ACT
Delaygoto [Local] 3 @CheckUserLogin

[@CheckUserLogin]
#CALL [HLSCRIPT\UserLogin.txt] @Login

;----------------------------------------------
;----------------------------------------------

;;UserLogin

[@Login]
{
#IF
Check [100] 1
#act
EventMsg Grobal "Cazatesoros %USERNAME is now Online!" 10025
break

#IF
IsGuildMaster
IsCastleGuild Sabuk
#ACT
EventMsg Grobal "Sabuk Guild lider <$USERNAME> del clan <$CS_SABUK_OWNER> se ha conectado!" 10025
break
}

 

[Yolom]

Nice one! Gob Job!

 

[tkila]

xDD thx

 

[Zisha]

Update: 16 March of 2012
New release : Store Essence or others special items

- Again personal requests are met, but only Hispared scripts!
Plis MP /Zisha

 

[tkila]

estoy muy curioso por ver lo que dice el ash o el demon XD

good post m8 again and thx very much

im curious what demon will say about it XD

 

[Geordiehc]

nice release

 

[Ashran]

estoy muy curioso por ver lo que dice el ash o el demon XD

good post m8 again and thx very much

im curious what demon will say about it XD

What I have to say? Some like "please, stop revealing my secrets!! Oh no!!". What a foolishness.

As I said to Zisha alias Josiko when we PM'd two days ago, do watever you want. If we scripted something, you (theorically) can do it for yourselves. If you want to post it here, go forward. We're not afraid of you.

But, what I've seen atm, that it's posted already and nothing it's the same.

Finally, I'll not enter in this game of kids. If you think that you're offending someone, you're wrong.

Regards

 

[Zisha]

English:

My intention was not to call for help Ashran, since I do not need help but I hate to enter into LOMCN cojáis and aid post and you saw things and not help the cojáis nothing. Still I hope some post done for you to put [RELEASE] when you are the most complete server mir 3 to date.

Spanish:

Mi intención no era de pedirte ayuda ashran , dado que no necesito ayuda pero si que me da rabia que cojais entreis en LOMCN y veiais post de ayudas y cojais cosas y no ayudeis en nada. Aun espero algun post hecho por vosotros que ponga [RELEASE] cuando sois el servidor mas completo de mir 3 hasta la fecha.

Como ultimo decir: Es de bien nacido ser agradecido!

---------- Post added at 08:45 PM ---------- Previous post was at 05:58 PM ----------

18 March of 2012
New Release - Add title's in game.

---------- Post added 19-03-2012 at 11:40 AM ---------- Previous post was 18-03-2012 at 08:45 PM ----------

NEW POST SORRY CAN DELETE THIS?

http://www.lomcn.co.uk/forum/showthread.php?75636-Origins-Server-The-discovery-to-Hispared-server

 

[Ashran]

You hadn't enough with one thread?

 

[Zisha]

=) , No