//wheninbattle kim yazdı bunu yaw :D
[DIALOG d_travgate]
0,28
NOMOVE
resizepic 10 50 9200 250 455
//checkertrans 0 0 260 505
text 30 68 100 0 0
button 30 100 2714 2715 1 0 1
text 60 100 800 1
button 30 125 2714 2715 1 0 2
text 60 125 800 2
button 30 150 2714 2715 1 0 3
text 60 150 800 3
button 30 175 2714 2715 1 0 4
text 60 175 800 4
button 30 200 2714 2715 1 0 5
text 60 200 800 5
button 30 225 2714 2715 1 0 6
text 60 225 800 6
button 30 250 2714 2715 1 0 7
text 60 250 800 7
button 30 275 2714 2715 1 0 8
text 60 275 800 8
button 30 300 2714 2715 1 0 9
text 60 300 800 9
button 30 325 2714 2715 1 0 10
text 60 325 800 10
button 30 350 2714 2715 1 0 11
text 60 350 800 11
button 30 375 2714 2715 1 0 12
text 60 375 800 12
button 30 400 2714 2715 1 0 13
text 60 400 800 13
button 30 425 2714 2715 1 0 14
text 60 425 100 14
button 30 465 2714 2715 1 0 15
text 60 465 1100 15
[DIALOG d_travgate TEXT]
You are in <region.name>.
Britain
Luna
Skara Brae
Moonglow
Minoc
The Heartwood
Nujel'm
Magincia
Umbra
Yew
Jhelom
Zento
Ilshenar
Heloma [Vendor's Zone]
Cancel
[DIALOG d_travgate BUTTON]
ON=0
ON=1
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 1339,1996
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=2
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 1015,525,-70,3
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=3
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 644,2067,5
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=4
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 4468,1283,5
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=5
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go minoc-vesper moongate
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=6
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go the heartwood
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=7
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<eval <src.tag0.level>><20)
src.sysMESSAGE @,3,1 You must be Level 20 to go to Nujel'm with moongates.
return 1
endif
if (<DISTANCE> < 3)
src.go 3614,1310
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=8
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go magincia moongate
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=9
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 1996,1386,-85,3
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=10
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 772,752,5
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=11
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go jhelom moongate
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=12
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<DISTANCE> < 3)
src.go 801,1206,25,4
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=13
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<eval <src.tag0.level>><10)
src.sysMESSAGE @,3,1 You must be Level 10 to go to Ilshenar with moongates.
return 1
endif
if (<DISTANCE> < 3)
src.go 1098,406,-75,2
src.flags |= statf_invisible
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=14
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<eval <src.tag0.level>><3)
src.sysMESSAGE @,3,1 You must be Level 3 to go to Heloma with moongates.
return 1
endif
if (<DISTANCE> < 3)
src.go 1973,2079,5
src.fix
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
[ITEMDEF i_moongate_travel]
ID=i_moongate_blue
NAME=Moongate
TYPE=t_script
ON=@CREATE
TYPE=t_script
ON=@DCLICK
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<distance><3)
SDIALOG d_travgate 1
if (<src.tag0.sound><1)
src.sound 508
src.tag0.sound 1
src.timerf 6 , src.tag0.sound
endif
return 1
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
ON=@STEP
FORCHARS 100
FORCHARMEMORYTYPE memory_war_targ
IF <LINK.UID>==<SRC.UID>
IF <CONT.CANSEELOS <LINK.UID>>
SRC.sysMESSAGE @,3,1 You cannot use moongates when in battle.
Return 1
ENDIF
ENDIF
ENDFOR
ENDFOR
if (<distance><3)
SDIALOG d_travgate 1
if (<src.tag0.sound><1)
src.sound 508
src.tag0.sound 1
src.timerf 6 , src.tag0.sound
endif
return 1
else
src.sysMESSAGE @,3,1 You cannot reach that.
endif
