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)
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)