;;Ҫɾ

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

[@TeleportPlayer]
{
#SAY
<Teleport to player/@@TeleportToPlayer>\

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

[@@TeleportToPlayer]
#ACT
Mov A1 %INPUTSTR
mov D3 0
mov D4 0
Goto @TeleportNow

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

[@TeleportNow]
#ACT
mov A2 %ARG(1)
#SAY
<Input Map Number/@@MapName>\
<Find Map Number/@Infomation>\

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

[@@MapName]
#ACT
mov A2 %INPUTSTR
#SAY
Character Name: {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}\
Character Map Number: {FCOLOR/10}<$OUTPUT(A2)>{FCOLOR/12}\
Character Co-Ords X: <Input X/@@InputX>\
Character Co-Ords Y: Input Y\\
<Move/@Teleport_CheckXY>\
<Leave/@Exit>

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

[@@InputX]
#ACT
Mov D3 %INPUTSTR
#SAY
Character Name: {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}\
Character Map Number: {FCOLOR/10}<$OUTPUT(A2)>{FCOLOR/12}\
Character Co-Ords X: {FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12}\
Character Co-Ords Y: <Input Y/@@InputY>\\
<Move/@Teleport_CheckXY>\
<Leave/@Exit>

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

[@@InputY]
#ACT
Mov D4 %INPUTSTR
#SAY
Character Name: {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}\
Character Map Number: {FCOLOR/10}<$OUTPUT(A2)>{FCOLOR/12}\
Character Co-Ords X: {FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12}\
Character Co-Ords Y: {FCOLOR/10}<$OUTPUT(D4)>{FCOLOR/12}\\
<Move/@Teleport_CheckXY>\
<Leave/@Exit>

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

[@Teleport_CheckXY]
#ACT
SaveValue "QuestDiary\System\PlayerTeleport.txt" %USERNAME [Request] %USERNAME
SaveValue "QuestDiary\System\PlayerTeleport.txt" %USERNAME [Character] %A1
SaveValue "QuestDiary\System\PlayerTeleport.txt" %USERNAME [Map] %A2
SaveValue "QuestDiary\System\PlayerTeleport.txt" %USERNAME [X] %D3
SaveValue "QuestDiary\System\PlayerTeleport.txt" %USERNAME [Y] %D4
#SAY
You must now tell {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12} to open\
His quest diary and click {FCOLOR/10}Allow User Teleport{FCOLOR/12}\\
<He has accepted/@Teleport_CheckDone>\

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

[@Teleport_CheckDone]
#ACT
LoadValue A7 [QuestDiary\System\PlayerTeleport.txt] %USERNAME [AllowTeleport]

#IF
Equal A7 %A1
#ACT
mapmove %A2{MAP} %D3{X} %D4{Y}
SaveValue "QuestDiary\System\PlayerTeleport.txt" %USERNAME [AllowTeleport] Failed
CLOSE
#ELSESAY
The player has not accepted yet:\\
You must now tell {FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12} to open\
His quest diary and click {FCOLOR/10}Allow User Teleport{FCOLOR/12}\\
<He has accepted/@Teleport_CheckDone>\

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

[@Account]
#SAY
What do you want to do?\\
<Character Transfer/@CharacterTransfer>\

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

}
;;Ҫɾ