;;Ҫɾ

[@Main]
#IF
IsAdmin
#ACT
GoTo @Admin_Coms
#ELSEACT
GoTo @Main_Coms

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

[@Admin_Coms]
#IF
IsAdmin
#SAY
<Commision/@Main_Coms>\
<Admin Control/@MainADMIN>\
<Leave/@Exit>

[@Main_Coms]
#CALL [Merchant\Common\Commission.txt] @CommissionMain

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

[@MainADMIN]
#ACT
Mov A1 %USERNAME

#IF
Equal A1 "Majestic"
Or Equal A1 "BobMarley"
Or IsAdmin
#SAY
Done\
<Speak/@@speak>\
<Admin Speak/@@Admin_Shout>\
<Reboot/@Reboot>\
<Holly Test/@Holly>\
<Teleport/@Teleport>\
#ELSESAY
Admin Only :P

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

[@@Admin_Shout]
#ACT
mov A7 %INPUTSTR
EventMsg Grobal %A7 10025
CLOSE

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

[@@Speak]
#ACT
Mov A7 %INPUTSTR
Speak %A7
#SAY
{FCOLOR/10}<$OUTPUT(A7)>{FCOLOR/12}

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

[@Reboot]
#ACT
;Loadvalue A7 "QuestDiary\HighLevel.txt" [Reboot] [Main]
LoadValue D0 [QuestDiary\System\LottoSystem\LottoNumber.txt] [Main] [Prize]
LoadValue A7 [QuestDiary\System\LottoSystem\LottoNumber.txt] [Main] [PrizeShout]
SysMsg %A7
;EventMsg Grobal %A7 10025
;DelayGoto [Local] 200 @Reboot

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

[@Holly]
#CALL [HLSCRIPT\UserLogin.TXT] @UserLogin

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

[@Teleport]
#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>\

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

[@Infomation]
#SAY
Map Name:\\
<Wooma Temple/@FindMapNumber(WT)>\
<Death Valley/@FindMapNumber(DV)>\
<Stone Temple/@FindMapNumber(ST)>\
<Prajna Stone Cave/@FindMapNumber(PSC)>\
<Red Moon Valley/@FindMapNumber(RMV)>\
<Prajna Temple/@FindMapNumber(PT)>\
<Zuma Temple/@FindMapNumber(ZT)>\
<Black Palace/@FindMapNumber(BP)>\
<Zuma Temple Version 1/@FindMapNumber(ZTV1)>\
<Prajna Temple Version 1/@FindMapNumber(PTV1)>\
<Jinchon Dungeon/@FindMapNumber(JD)>\
<Slave Cave/@FindMapNumber(SC)>\
<Magic Ship/@FindMapNumber(MS)>\
<Ancient Cave/@FindMapNumber(AC)>\
<Numa Ruins/@FindMapNumber(NR)>\
<Desert Tunnel/@FindMapNumber(DT)>\\
<Leave/@Exit>\

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

[@FindMapNumber()]
#IF
#ACT
Mov A1{MAP} %ARG(1)

#IF
Equal A1 "WT"
#SAY
D501 WoomaTemple1st
D502 WoomaTemple2nd
D503 WoomaTemple3rd
D504 WoomaTempleKingsRoom

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

;;Ҫɾ