Release [Origins Server] The discovery to Hispared server

[Zisha]

Helps to create scripts hispared
How to fit hispared systems:

• Add Treasures chest when Player Kill Boss:

Spoiler

;;Example in hispared if are "cazatesoros" Respawn cazatesoros treasure, if are noble : nobletreasure.
#IF
check [100] 1 ; Are cazatesoros
check [101] 0 ; Aren't noble
#ACT
Mov A0 %USERMAP
Mov A1 %USERX
Mov A2 %USERY
ForMatStr "%s,%s,%s,1" %A0 %A1 %A2
MonGenP "%A9" CazatesorosTreasure 2 1 ;Moob,Number,Arround
break

#IF
check [100] 1 ; Are cazatesoros
check [101] 1 ; But Are noble
#ACT
Mov A0 %USERMAP
Mov A1 %USERX
Mov A2 %USERY
ForMatStr "%s,%s,%s,1" %A0 %A1 %A2
MonGenP "%A9"NobleTreasure 3 1 ;Moob,Number,Arround
break

#IF
check [100] 0 ; Aren't cazatesoros
check [101] 0 ; Aren't noble
#ACT
Mov A0 %USERMAP
Mov A1 %USERX
Mov A2 %USERY
ForMatStr "%s,%s,%s,1" %A0 %A1 %A2
MonGenP "%A9" Treasure 1 1 ;Moob,Number,Arround
break

• Add FamePoints , and Popularity Points

Spoiler

;Map quest;

D501 [0] 0 [MonDie] Zombie * [System\MapQuest\Zombie] [@Script]

;;Zombie.txt

[@Script]
#IF
Checkfame ;Check if have fp
#ACT
MOV D4 %P9
INC D4 100 ;Quantity
SETFAME %D4
HLSCRIPTCMD SETPOPULARITY + 1000 ;ADD Popularity Points.

• (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



}

• 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
}

---------- Post added 21-03-2012 at 09:17 PM ---------- Previous post was 19-03-2012 at 11:26 AM ----------

Any need any more scripts to hispared?

 

[Xplot]

Can u tell me how to make the maximum magic level is 3, not 5?

 

[Zisha]

Can u tell me how to make the maximum magic level is 3, not 5?

This need change it in , crueldragon.ini , not is script friend. use bottom search

 

[tkila]

zisha could you ALLL Envir from hispared? xD would be better i thought

 

[Zisha]

I make scripts ,i haven't it's.
If need any script can write here.

 

[MrCruque]

Hola Zisha, quiciera saber si pudieras hacer un Script para Titulos o rebirths, digamos que no sea necesario lvl, sino Items gracias, en realidad esa parte la se hacer, lo que no se como otorgarle el titulo a esa persona :S gracias
Hi Zisha i would to know if u could do a Script to get titles/ rebirths, a kaind of script thats not necesary lvl to get a title but items, i do know how to do the item and stuff part, what i dont know is the giving the title stuff :S thanks

 

[tkila]

porque no das tus files si ers tan buena persona? xD


why you don't release your files xD

 

[Geordiehc]

These are very simple scripts so whoever thinks there getting 1 up on the GM is sadly mistaken, anyone could reprouduce them

 

[sprite110911]

呵呵 看看