;;Ҫɾ

[@DraperyMain]
{
#SAY
Welcome <$USERNAME>,\
How may i help you?\
{FCOLOR/10}
Buy: <Armour/@Buy>\
Sell: <Armour/@Sell>\
Repair: <Armour/@Repair>\
Special Repair: <Armour/@SpecialRepair>\
<Change Armour Color/@ChangeArmourColor>\\
<Talk with/@CALL_Npc_TodayQuest> <$NPCNAME>\\
<Leave/@Exit>

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

[@CALL_Npc_TodayQuest]
#CALL [TodayQuest\QT_NPCSetting.txt] @NPCSetDairyQuest

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

[@Buy]
#SAY
Please select what you wish to buy.\\
<Back/@Main>\
<Leave/@Exit>

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

[@Sell]
#SAY
Please select what you wish to sell.\\
<Back/@Main>\
<Leave/@Exit>

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

[@Repair]
#SAY
What do you want me to repair?\\
<Back/@Main>\
<Leave/@Exit>

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

[~@repair]
#SAY
Repair Complete.\\
<Back/@Main>\
<Leave/@Exit>

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

[@SpecialRepair]
#SAY
What do you want me to repair?\\
<Armour/@SRepair(0)> <$@GetArmourCost>\
<Helmet/@SRepair(4)> <$@GetHelmetCost>\
<Shoes/@SRepair(10)> <$@GetFootWearCost>\
<Back/@Main>\
<Leave/@Exit>

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

[@SRepair()]
#ACT
mov P0 %ARG(1)
GetRepairCost %P0
#IF
CheckGold %P9
#ACT
RepairItem %P0
Take Gold %P9
Goto @SpecialRepair
#ELSESAY
You do not have enought gold...\\
<Leave/@Exit>

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

[@GetArmourCost]
#ACT
;mov P0 0
GetRepairCost 0
#IF
Equal P9 0
#SAY
{FCOLOR/10}Repaired{FCOLOR/12}
#ELSESAY
Cost: {FCOLOR/10}<$OUTPUT(P9)>{FCOLOR/12}

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

[@GetHelmetCost]
#ACT
;mov P0 4
GetRepairCost 4
#IF
Equal P9 0
#SAY
{FCOLOR/10}Repaired{FCOLOR/12}
#ELSESAY
Cost: {FCOLOR/10}<$OUTPUT(P9)>{FCOLOR/12}

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

[@GetFootWearCost]
#ACT
;mov P0 1
GetRepairCost 10
#IF
Equal P9 0
#SAY
{FCOLOR/10}Repaired{FCOLOR/12}
#ELSESAY
Cost: {FCOLOR/10}<$OUTPUT(P9)>{FCOLOR/12}

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

[@ChangeArmourColor]
#SAY
What colour Armour would you like?\ \
<Black/@ArmourColor(Black,0,0,0,10000)> Cost: 10000\
<White/@ArmourColor(White,255,255,255,10000)> Cost: 10000\
<Slate Gray/@ArmourColor(SlateGray,112,128,144,10000)> Cost: 10000\
<Blue/@ArmourColor(Blue,0,0,255,10000)> Cost: 10000\
<Brown/@ArmourColor(Brown,165,42,42,10000)> Cost: 10000\
<Dark Green/@ArmourColor(DarkGreen,0,100,0,10000)> Cost: 10000\
<Green/@ArmourColor(Green,0,255,0,10000)> Cost: 10000\
<Orange/@ArmourColor(Orange,255,165,0,10000)> Cost: 10000\
<Pink/@ArmourColor(Pink,255,192,203,10000)> Cost: 10000\
<Red/@ArmourColor(Red,255,0,0,10000)> Cost: 10000\
<Purple/@ArmourColor(Purple,160,32,240,10000)> Cost: 10000\
<Gold/@ArmourColor(Gold,255,215,0,10000)> Cost: 10000\
<Yellow/@ArmourColor(Yellow,255,255,0,10000)> Cost: 10000\
<$@RandomColor>\
<Leave/@Exit>

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

[@ArmourColor()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
Mov D1 %ARG(3)
Mov D2 %ARG(4)
Mov D3 %ARG(5)

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

#IF
checkgold %D3
#SAY
Do you like your new Armour colour? \ \
You chose: {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}\
Please feel free to change again.\
<Change Colour Again/@ChangeArmourColor> \ \
<Leave/@exit>

#ACT
take Gold %D3
wearcolor %D2 %D0 %D1
break
#ELSESAY
Sorry you do not have {FCOLOR/10}<$OUTPUT(D3)>{FCOLOR/12} Gold.\ \
<Leave/@exit>

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

[@RandomColor]
#IF
Random 13
#SAY
<Random/@ArmourColor(Yellow,255,255,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 12
#SAY
<Random/@ArmourColor(Gold,255,215,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 11
#SAY
<Random/@ArmourColor(Purple,160,32,240,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 10
#SAY
<Random/@ArmourColor(Red,255,0,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 9
#SAY
<Random/@ArmourColor(Pink,255,192,203,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 8
#SAY
<Random/@ArmourColor(Orange,255,165,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 7
#SAY
<Random/@ArmourColor(Green,0,255,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 6
#SAY
<Random/@ArmourColor(DarkGreen,0,100,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 5
#SAY
<Random/@ArmourColor(Brown,165,42,42,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 4
#SAY
<Random/@ArmourColor(Blue,0,0,255,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 3
#SAY
<Random/@ArmourColor(SlateGray,112,128,144,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 2
#SAY
<Random/@ArmourColor(White,255,255,255,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
#IF
Random 1
#SAY
<Random/@ArmourColor(Black,0,0,0,10000)> Cost: 10000\
#ACT
BREAK
;---------------------------------------------------------------
}

;;Ҫɾ