;;Ҫɾ

[@Main]
#IF
checkpkpoint 2
#ACT
Goto @Teleport_NumaOnly
#ELSEACT
Goto @Teleport

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

[@Teleport_NumaOnly]
#IF
CheckItem RedemptionKey 1
#SAY
Here you can only teleport to numa because you are a player killer.\\
<Numa Village/@Teleport(4,201,151,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\
<Back/@Main>\
<Leave/@Exit>\
#ELSESAY
Here you can only teleport to numa because you are a player killer.\\
You will require a {FCOLOR/10}Redemption Key{FCOLOR/1}
Numa Village{FCOLOR/12}
<Back/@Main>\
<Leave/@Exit>\

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

[@Teleport]
#SAY
What town do you wish to move to?\\
<Bichon Wall/@Teleport(0,139,262,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\
<Phantom Forest/@Teleport(1,139,207,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\
<Prajna Village/@Teleport(2,193,157,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\
<Numa Village/@Teleport(4,201,151,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\
<Mud Wall/@Teleport(5,63,196,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\
<Sabuk Wall West/@Teleport(3,51,222,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\\
<SnowFields/@Teleport(8,128,175,5000)> Cost: {FCOLOR/10}5000{FCOLOR/12}\\
<Back/@Main>\
<Leave/@Exit>\

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

[@Teleport()]
#IF
#ACT
Mov A1{MAP} %ARG(1)
Mov A2{X} %ARG(2)
Mov A3{Y} %ARG(3)
Mov A4{COST} %ARG(4)
goto @move

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

[@move]
#IF
checkgold %A4{COST}
#ACT
give TownTeleport 1
take gold %A4{COST}
mapmove %A1{MAP} %A2{X} %A3{Y}
close 

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

;;Ҫɾ