[CD3.55] Need Help with Script

pijakus

Dedicated Member
Dedicated Member
Feb 6, 2011
184
16
45
Poland
Hello People ...
i write there because i have problem with one script... maybe whos can be help me ... when i click "Change Kr" they not open next pages... :/

[@main]
#IF
#ACT
LoadValue A1 "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport1
LoadValue A2 "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport2
LoadValue A3 "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport3
#SAY
You currently have the following Teleports set up\\
#ELSESAY
How did you get here without an EyeOfDragon?\\
#ELSEACT
Break




#IF
Equal A1 ""
#ACT
Mov A4 "Teleport 1 - None <[ Change KR ]/@ChangeKR(1)> \
#ELSEACT
Mov A4 "Teleport 1 - <$OUTPUT(A1)> <[ Teleport ]/@TeleportToKR(1)> <[ Change KR ]/@ChangeKR(1)> "


#IF
Equal A2 ""
#ACT
AddStr A4 "Teleport 2 - None <[ Change KR ]/@ChangeKR(2)> \
#ELSEACT
AddStr A4 "Teleport 2 - <$OUTPUT(A2)> <[ Teleport ]/@TeleportToKR(2)> <[ Change KR ]/@ChangeKR(2)> "


#IF
Equal A3 ""
#ACT
AddStr A4 "Teleport 3 - None <[ Change KR ]/@ChangeKR(3)> \
#ELSEACT
AddStr A4 "Teleport 3 - <$OUTPUT(A3)> <[ Teleport ]/@TeleportToKR(3)> <[ Change KR ]/@ChangeKR(3)> "


#SAY
<$OUTPUT(A4)>\
<[ Exit ]/@Exit>\\\










[@TeleportToKR()]
#ACT
Mov D1 %ARG(1)


#IF
Equal D1 1
#ACT
LoadValue A1 "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport1


#IF
Equal D1 2
#ACT
LoadValue A1 "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport2


#IF
Equal D1 3
#ACT
LoadValue A1 "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport3




#SAY
Teleporting you to <$OUTPUT(A1)>!\
#ACT
Goto @TeleportKRNow




[@ChangeKR()]
#IF
#SAY
Why are you cheating!!!\
#ACT
Break
#ELSEACT
Mov D1 %ARG(1)


#IF
#SAY
This will cost you 150 Integral to set up\
Which KR would you like to store in Teleport <$OUTPUT(D1)>\\
<[ WTKR ]/@Change1(WTKR)>\
<[ MSKR ]/@Change1(MSKR)>\
<[ BKKR ]/@Change1(BKKR)>\




[@Change1()]
#ACT
Mov A1 %ARG(1)
#SAY
Are you sure you want to set Teleport <$OUTPUT(D1)> to <$OUTPUT(A1)>\
<[ Set up Teleport ]/@Change2>\
<[ Exit ]/@Exit>\


[@Change2]
#IF
#SAY
Why are you cheating!!!\
#ACT
Break


#IF
Equal D1 1
#ACT
SaveValue "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport1 %A1


#IF
Equal D1 2
#ACT
SaveValue "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport2 %A1


#IF
Equal D1 3
#ACT
SaveValue "QuestDiary\EyeOfDragon\Teleport.txt" [%USERNAME] Teleport3 %A1


#IF
#SAY
Teleport Saved!\\
#ACT
Break




[@TeleportKRNow]
#IF
#SAY
Why are you cheating!!!\
#ACT
Break




#IF
Equal A1 "WTKR"
#ACT
MapMove D605 50 50 (Enter Map & Co-Ords for WT KR)


#IF
Equal A1 "MSKR"
#ACT
MapMove D605 50 50 (Enter Map & Co-Ords for MS KR)


#IF
Equal A1 "BKKR"
#ACT
MapMove D605 50 50 (Enter Map & Co-Ords for BK KR)
 

Josiko

LOMCN Veteran
Veteran
Loyal Member
Apr 4, 2010
428
8
44
Spain
Sorry mate but this script is a ****....

Loadvalue ...... [TELEPORT1] %USERNAME
Loadvalue [TELEPORT2] %USERNAME

#IF
EQUAL A1 ""
#SAY
Teleport stone 1 ____{FCOLOR/1} Closed {FCOLOR/12}______<Save a Map/@Save>\
#ELSESAY
Teleport stone 1 _____ {FCOLOR/10} WoomaTemple {FCOLOR/12}_____<Teleport/@Teleport>____<ChangeMap/@Save>\\



[@Save]
#IF
#SAY
List of kr's\\
_ <WoomaTemple Kr/@Save1(WoomaTemple,D024,X,Y,PRICE**)>\

[@Save1()]
#ACT
MOV A1%ARG(1);Name Temple
MOV D0 %ARG(5);:PRICE

#IF
CHECKGOLD %D0
#ACT
Take gold %D0
#ELSESAY
Havent enought gold...\\
#ELSEACT
BREAK

SaveValue ..... .. . . . . . . . . TELEPORT1] %USERNAME %A1

[@Teleport]
#IF
EQUAL A1 "WOOMATEMPLE" ->
#ACT
MAPMOVE Z X Y


If you want exist a item save maps coords and you can unlock maps with it, in script:

;;SaveMap & Teleport scroll.

#ACT
MOV A1 %USERMAP

#IF
!EQUAL A1 "MAP UNLOCKED"
!EQUAL A1 "MAP UNLOCKED"
#SAY
Can't save this map for magic teleport....\\
#ACT
BREAK
 
Upvote 0