;;Ҫɾ
[@Castle_Manager]
{
#IF
IsCastleGuild [Sabuk]
IsGuildMaster

#SAY
Attacking Guilds : <$CS_SABUK_ATTACKGUILDS>\\
Cash Total : <$CS_SABUK_CASTLEGOLD> Gold\
cash Today : <$CS_SABUK_TODAYTAX> Gold\\
Gate Conditions\\
<$@DoorState1>\
<$@DoorState2>\
<$@DoorState3>\\

<[ Withdraw Cash ]/@@DrawTax>\\
<[ View War Schedule ]/@view_warschedule>\\
<[ Propose War ]/@Propse_CastleWar>\\

#ELSESAY
<[ View War Schedule ]/@view_warschedule>\\
<[ Propose War ]/@Propse_CastleWar>\\
<[ War Info ]/@requestcastlewar>\\

#IF
IsCastleGuild [Sabuk]
#SAY
<[ Sabuk Palace ]/@MoveDungeon>\\

#IF
#SAY
<[ Exit ]/@exit>\\\



[@MoveDungeon]
#IF
#SAY
....
#ACT
Map 0_000

[@@DrawTax]
#ACT
mov D1 %SABUKGOLD
mov D2 %INPUTNUM
goto @DrawTax

[@DrawTax]
#IF
large D2 %D1
or small d2 1
#SAY
You do not have that much in the Wall\
Funds\\
<[ Exit ]/@exit>\\\

#ELSESAY
You have withdrawn <$OUTPUT(D2)> Gold\\
<[ Exit ]/@exit>\\\
#ELSEACT
mov P9 1
makelog 62 9999 %D2 %NPCNAME
GetBackCastleGold [SABUK] %d2


[@Propse_CastleWar]
#IF
IsOnCastleWar [SaBuk]
#SAY
There is a war on at the moment\
Please apply later\\
<[ Exit ]/@exit>\\\
#ACT
break

#IF
!IsGuildMaster
#SAY
Only GuildMaster's can apply for a war\\
<[ Exit ]/@exit>\\\
#ACT
break

#IF
IsCastleGuild [Sabuk]
#SAY
You cannot apply for a war with yourself!!!\\
<[ Exit ]/@exit>\\\
#ACT
break

#IF
IsCastleGuild [TAOSUNG]
#SAY
You cannoy apply for a war while owning\
Samak Wall\\
<[ Exit ]/@exit>\\\
#ACT
break

#IF
!checkitem ZumaRelic 1
#SAY
You don't have a ZumaRelic, you cannot\
Apply for a war.. 
<[ Exit ]/@exit>\\\
#ACT
break

#IF
CanProposeCastleWar [Sabuk]
#ACT
ProposeCastleWar [Sabuk]
take ZumaRelic 1
#SAY
Application for War Accepted, it will be held\
in 1 days time at 8pm (UK Time)\\
<[ Exit ]/@exit>\\\

#ELSESAY
You have already applied for a war\
You cannot Apply again\\
<[ Exit ]/@exit>\\\

[@requestcastlewar]
#SAY
You need a ZumaRelic to apply for a war\
The war is held 1 days after at 8pm (UK Time)\\
<[ Exit ]/@exit>\\\

[@view_warschedule]
#SAY
SabukWall War on <$CS_SABUK_WARDATE>\
SamakWall War on <$CS_TAOSUNG_WARDATE>\\
<[ Exit ]/@exit>\\\


[@DoorState1]
#IF
#SAY
Front Door

#IF
CheckCastleDoor [SABUK] 1
#SAY
#ELSESAY
__<[ Make Front Door ]/@Make_door(1)>
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 1
#SAY
__<[ Close Front Door ]/@Close_Door(1)>
#ELSESAY
__<[ Open Front Door ]/@Open_door(1)>

[@DoorState2]
#IF
#SAY
Left Door

#IF
CheckCastleDoor [SABUK] 3
#SAY
#ELSESAY
__<[ Make Left Door ]/@Make_door(3)>
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 3
#SAY
__<[ Close Left Door ]/@Close_Door(3)>
#ELSESAY
__<[ Open Left Door ]/@Open_door(3)>

[@DoorState3]
#IF
#SAY
Right Door

#IF
CheckCastleDoor [SABUK] 4
#SAY
#ELSESAY
__<[ Make Right Door ]/@Make_door(4)>
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 4
#SAY
__<[ Close Right Door ]/@Close_Door(4)>
#ELSESAY
__<[ Open Right Door ]/@Open_door(4)>

[@Make_door()]
#IF
#ACT
Mov D0 %ARG(1)

#IF
!IsOnCastleWar Sabuk
#SAY
This will cost you 500000 Gold!\
<[ Comfirm Payment ]/@Make_door_comfirm>\\\

#ELSESAY
You can't do this while a war is on\\
<[ Exit ]/@exit>\\\

[@Make_door_comfirm]
#IF
!checkgold 500000

#SAY
You don't have 500000 Gold!!!
<[ Exit ]/@exit>\\\
#ACT
break

#IF
!CheckCastleDoor [SABUK] %D0
#ACT
take Gold 400000
MakeCastleDoor [SABUK] %D0

#SAY
Door Created :)\\
<[ Exit ]/@exit>\\\

#ELSESAY
There is already a Door there!!\\
<[ Exit ]/@exit>\\\

[@Open_door()]
#IF
#ACT
Mov D0 %ARG(1)

#IF
Equal D0 1
#ACT
mov D1 234
mov D2 151

#IF
Equal D0 3
#ACT
mov D1 169
mov D2 151

#IF
Equal D0 4
#ACT
mov D1 234
mov D2 87

#IF
CheckCastleDoor [SABUK] %D0
!CheckCastleDoorOpen [SABUK] %D0
#ACT
Formatstr "CastleGate%s" %D0
mov A8 %A9
Formatstr "3,%s,%s,50" %D1 %D2
SENDCMD %A9 %A8 OPEN

#SAY
Door Opened\\
<[ Back ]/@Main>\\\

#ELSESAY
You do not have a Door there, or it is already open!\\
<[ Back ]/@Main>\\\

[@Close_door()]
#IF
#ACT
Mov D0 %ARG(1)

#IF
Equal D0 1
#ACT
mov D1 234
mov D2 151

#IF
Equal D0 3
#ACT
mov D1 169
mov D2 151

#IF
Equal D0 4
#ACT
mov D1 234
mov D2 87

#IF
CheckCastleDoor [SABUK] %D0
CheckCastleDoorOpen [SABUK] %D0
#ACT
Formatstr "CastleGate%s" %D0
mov A8 %A9
Formatstr "3,%s,%s,50" %D1 %D2
SENDCMD %A9 %A8 CLOSE

#SAY
Door Closed \\
<[ Back ]/@Main>\\\

#ELSESAY
You do not have a Door there, or it is already closed!\\
<[ Back ]/@Main>\\\

}
;;Ҫɾ
