;;Ҫɾ
[@HairControl]
{
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_0

[@ChangeHairColor]
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_1
#SAY
<I want to do it myself/@HairColor_OWN>\\
<Leave/@Exit>

[@ChangeHairShape]
#IF
gender man
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_2
#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\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\QuestDiary\Main\HairChange.txt] @HairChange_4

#IF
checkgold %D3
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_5
#ACT
take Gold %D3
haircolor %D2 %D0 %D1
break
#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_6

[@HairShape()]
#IF
#ACT
Mov A0 %ARG(1)
Mov D0 %ARG(2)
#IF
checkgold 10000
#SAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_7
#ACT
take  10000
hairstyle %D0
break
#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\Main\HairChange.txt] @HairChange_8

[@HairColor_OWN]
#ACT
#SAY
Coming Soon!\\
<Leave/@Exit>\
}
;;Ҫɾ