;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@HairControl]
{

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_0

[@ChangeHairColor]

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_1

[@ChangeHairShape]
#IF
gender man

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_2


#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_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  %D3
hairrndcol
break

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_4

#IF
checkgold %D3

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_5

#ACT
take  %D3
haircolor %D0 %D1 %D2
break

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_6

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

#IF
checkgold 10000

#SAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_7

#ACT
take  10000
hairstyle %D0
break

#ELSESAY
#INCLUDE [..\Convert_Def\QuestDiary\System\HairChange.txt] @Convert_HairChange_8

}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;