;;Ҫɾ

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

[@GuildMain]
{
#ACT
Loadvalue A1 "QuestDiary\Guild\Palace.txt" %GUILDNAME [News]
#SAY
Current Guild News:\
{FCOLOR/10}<$OUTPUT(A1)>{FCOLOR/12}\\
{FCOLOR/1}---------------------------------------------\\{FCOLOR/12}
Welcome <$USERNAME>\
How may i help you?\
{FCOLOR/10}
Buy: <Grocery/@Buy>\\
Store: <Item/@storage>\
Get Back: <Item/@getback>\\
<Leave/@Exit>

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

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

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

[@Rent_Pet]
#CALL [Merchant\Common\RentalService.txt] @RentalServiceMain

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

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

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

[@storage]
#SAY
What do you want to store?\\
<Back/@Main>\
<Leave/@Exit>

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

[@getback]
#SAY
What do you want to take out of storage?\\
<Back/@Main>\
<Leave/@Exit>

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

[@ChangeArmourColor]
#SAY
What colour Armour would you like?\ \
<Black/@ArmourColor(Black,0,0,0,10000)> Cost: 10000\
<White/@ArmourColor(Black,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\\
;<Random/@ArmourColor(Random,0,0,0,10000)> Cost: 10000\\
<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/@ClothDye> \ \
<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>

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

[@HairColour]
#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

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

}
;;Ҫɾ