;;Ҫɾ

[@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>\
<HAir/@hair>\
<Test/@test>\
#ELSESAY
Admin Only :P

[@test]
#ACT
actcmd addmagic SummonGreatShinsu

[@hair]
#SAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_0

[@ChangeHairColor]
#SAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_1
#SAY
<I want to do it myself/@HairColor_OWN>\\
<Leave/@Exit>

[@ChangeHairShape]
#IF
gender man
#SAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_2
#ELSESAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_3

[@HairColor()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)
Mov D2 %ARG(4)
Mov D3 %ARG(5)
#IF
Equal A0 "Random"
CheckGold %D3
#ACT
take Gold %D3
hairrndcol
break
#SAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_4

#IF
checkgold %D3
#SAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_5
#ACT
take Gold %D3
haircolor %D2 %D0 %D1
break
#ELSESAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_6

[@HairShape()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
#IF
checkgold 10000
#SAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_7
#ACT
take  10000
hairstyle %D0
break
#ELSESAY
#INCLUDE [..\Convert_Def\Common\HairChange.txt] @HairChange_8

[@HairColor_OWN]
#ACT
#SAY
Comlng Soon!\\
<Leave/@Exit>\


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

[@@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

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



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

[@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

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

;;Ҫɾ