;;Ҫɾ
%100
+59

[@main]
#SAY
Welcome <$USERNAME>,\
How may i help you?\
{FCOLOR/10}
Buy <Catapault/@buy_Shooter(Catapult,1)> or <Ballista/@buy_Shooter(Ballista,2)>\ 
Store: <seige equipment/@Leave_shooter>\
Get Back: <seige equipment/@Getback_shooter>\ 
Sell: <Shooter/@Kill_shooter>\
Buy: <Item/@Buy>\ 
Sell: <Item/@Sell>\ \
<Leave/@Exit>

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

[@Buy]
#SAY
Please select what you wish to buy:\ \
<Back/@main>

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

[@Sell]
#SAY
Please select what you wish to sell:\ \
<Back/@main>

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

[@buy_Shooter()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(3)

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

#IF
CheckGold 50000
#SAY
checkgold 50000
!CheckShooter
!CheckSavedShooter
#ACT
Take Gold 50000
MakeShooter %A0 300
#SAY
You purchased a <$OUTPUT(A0)> for {FCOLOR/12}50,000{FCOLOR/10}  gold. \ \
<Back/@main>
#ACT
break

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

#IF
CheckShooter
#ACT
LeaveShooter
#SAY
Your seige equipment has been store.\\
<Leave/@Exit>
#ELSESAY
Your do not have any seige equipment.\\
<Leave/@Exit>

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

[@Getback_shooter]
#IF
checkgold 1000
!checkshooter
checksavedshooter 1
#ACT
take Gold 1000
makeshooter Catapult
break

#IF
!checkshooter
checksavedshooter 2
#ACT
take Gold 1000
makeshooter Ballista
break

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

[@kill_shooter]
#IF
CheckShooter
#ACT
Give Gold 25000
killshooter

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

;;Ҫɾ