;;-----------vimascript
[@Castle_Manager]
{
#IF
IsCastleGuild [Sabuk]
IsGuildMaster
#SAY
Sabuk Wall Attackers: <$CS_SABUK_ATTACKGUILDS>\
Sabuk Wall Gold: <$CS_SABUK_CASTLEGOLD> Gold\
Sabuk Wall Tax: <$CS_SABUK_TODAYTAX> Gold\
Sabuk Wall Gate Status \
<$@DoorState1>\
<$@DoorState2>\
<$@DoorState3>\\
<Set Online Notice/@setonlinenotice>\\
#IF
!IsOnCastleWar [SaBuk]
IsCastleGuild [Sabuk]
IsGuildMaster
#SAY
<Buy Doom Blade/@lingquyingmeisha> 30m Gold.\
Does Not Drop In Death, Cant Drop. Can Not Be Worn By a Non-Leader.\\

<Get Sabuk Tax/@@DrawTax> \\
#IF
!IsOnCastleWar [SaBuk]
IsCastleGuild [Sabuk]
#SAY
<Sabuk Wall Additional Tax/@lingqusx>\\



#IF
#ACT
MOV D0 0
loadvalue D0 "ϵͳ.INI"  ɳͿ˹ʱ

#IF
Esmall D0 %CURHOUR
#SAY
<View War Schedule/@view_warschedule>\
<Apply For War/@Propse_CastleWar> \
;;лṱ5ˣ롣\\
<Enquire About War/@requestcastlewar> \\
<Close/@exit>\\
#elsesay
Temporarily not open Sabuk Wall War!\
<Close/@exit>

[@@DrawTax]
#IF
!IsOnCastleWar [SaBuk]
#ACT
mov D1 %SABUKGOLD
mov D2 %INPUTNUM
goto @DrawTax
#ELSEACT
break
#ELSESAY
Cant Do During a War!\
<Close/@exit>

[@DrawTax]
#IF
large D2 %D1
or small d2 1
#SAY
Input more than is available. \\
<Close/@exit>
#ELSESAY
Withdrew <$OUTPUT(D2)>  \\
<Close/@exit>

#ELSEACT
mov P9 1
makelog 62 9999 %D2 %NPCNAME
GetBackCastleGold [SABUK] %d2


[@Propse_CastleWar]
#IF
IsOnCastleWar [SaBuk]
#SAY
There is already a war planned, cannot apply. \\
<Return/@main>
#ACT
break

#IF
!IsGuildMaster
#SAY
Only the Guild leader may apply for War.\\
<Return/@main>
#ACT
break

#IF
IsCastleGuild [Sabuk]
#SAY
The Current owners cannot apply for war.\\
<Return/@main>
#ACT
break

#IF
IsCastleGuild [TAOSUNG]
#SAY
The Current owners cannot apply for war.\\
<Return/@main>
#ACT
break

#IF
!checkitem ZumaStatue 1
#SAY
You do not have the ZumaStatue, cannot apply.\\
<Return/@main>
#ACT
break


#IF
CanProposeCastleWar [Sabuk]
#ELSESAY
You already applied for War, cannot apply again\\
<Return/@main>
#ELSEACT
break


#IF
dayofweek wed
#ACT
ProposeCastleWar [Sabuk]
take ZumaRelic 1
#SAY
War now Applied for.\ \
{FCOLOR/10}3 Days time at 8pm{FCOLOR/12} The war will begin.\ \
<Return/@main>

#ELSESAY
Every Wednesday before they can apply only the siege.\\

<Return/@main>


[@requestcastlewar]

#SAY
Must have the ZumaStatue to apply for war.\
War will start in {FCOLOR/10}3 days time at 8pm{FCOLOR/12}.\ \
<Return/@main>

[@view_warschedule]

#SAY
Sabuk War Date:\
{FCOLOR/10}<$CS_SABUK_WARDATE>{FCOLOR/12} \ \
Mudwall War Date:\
{FCOLOR/10}<$CS_TAOSUNG_WARDATE>{FCOLOR/12} \ \
<Return/@main>



[@lingquyingmeisha]
#IF
IsCastleGuild [Sabuk]
IsGuildMaster
checkgold 30000000
#ACT
take Gold 30000000
give DoomBlade(Sand)
#SAY
ϲΪɳѿõӵ3ԣԽ.\\
ʧȥɳϵͳջظҲ޷.\
Զ䣬㶪Ȼ.\
ѵļƷ.\\
<ر/@exit>


[@DoorState1]
#IF

#SAY


#IF
CheckCastleDoor [SABUK] 1

#SAY
_

#ELSESAY
_(<û/@Make_door(1,)>)

#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 1

#SAY
_(</@Close_Door(1,)>)

#ELSESAY
_(<ر/@Open_Door(1,)>)

[@DoorState2]
#IF

#SAY


#IF
CheckCastleDoor [SABUK] 3

#SAY
_

#ELSESAY

_(<û/@Make_door(3,)>)
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 3

#SAY
_(</@Close_Door(3,)>)

#ELSESAY
_(<ر/@Open_Door(3,)>)

[@DoorState3]
#IF

#SAY
Ҳ

#IF
CheckCastleDoor [SABUK] 4

#SAY
_

#ELSESAY
_(<û/@make_door(4,Ҳ)>)
#ELSEACT
break

#IF
CheckCastleDoorOpen [SABUK] 4

#SAY
_(</@Close_Door(4,Ҳ)>)

#ELSESAY
_(<ر/@Open_Door(4,Ҳ)>)


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

#IF
!IsOnCastleWar Sabuk

#SAY
ŵķ50ҡ \\
֧50</@Make_door_comfirm><$OUTPUT(A0)>š \


#ELSESAY
սʱš \\
< /@exit>

[@Make_door_comfirm]
#IF
!checkgold 500000

#SAY
Ǯš\\
< /@main>
#ACT
break

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

#SAY
ϡ\\
< /@main>

#ELSESAY
ǶѾгˡ\\
< /@main>


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

#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 233
mov D2 87

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

#SAY
ɳͿ˳<$OUTPUT(A0)>ˡ\\
< /@main>

#ELSESAY
ûгŻųš \\
< /@main>

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

#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 233
mov D2 87

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

#SAY
رɳͿ˳ǳš\\
< /@main>

#ELSESAY
ûгŻŹرš\\
< /@main>

[@lingqusx]
#CALL [Vimascript\.txt] @˰

[@setonlinenotice]
#IF
#SAY
<趨ʾ/@setonlineon>\
<趨ʾر/@setonlineoff>\


[@setonlineon]
#ACT
set [598] 0

[@setonlineoff]
#ACT
set [598] 1

}
;;-----------vimascript