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

#SAY
Welcome to my Salon.\
What you would like me to do?\
<[ Hair Dye ]/@ChangeHairColor>\
<[ Style ]/@ChangeHairShape> \
<[ Exit ]/@exit>\

[@ChangeHairColor]

#SAY
What colour would you like?\
A Normal colour costs 5000 Gold\
A Random Colour costs 10000 Gold\
<[ White ]/@HairColor(White,255,255,255,5000)> \
<[ Black ]/@HairColor(Black,60,60,60,5000)>\
<[ Grey ]/@HairColor(Grey,170,170,170,5000)> \
<[ Blue ]/@HairColor(Blue,255,0,0,5000)> \
<[ Red ]/@HairColor(Red,0,255,0,5000)> \
<[ Green ]/@HairColor(Green,0,0,255,5000)> \
<[ Random ]/@HairColor(Random,0,0,0,10000)> \
<[ Back ]/@Main>\

[@ChangeHairShape]
#IF
gender man

#SAY
What style would you like?\
Each sytle costs 10,000 Gold\
<[ Bald ]/@HairShape(Bald,0)> \
<[ Style 1 ]/@HairShape(Style 1,1)> \
<[ Style 2 ]/@HairShape(Style 2,2)> \
<[ Style 3 ]/@HairShape(Style 3,3)> \
<[ Style 4 ]/@HairShape(Style 4,4)> \
<[ Style 5 ]/@HairShape(Style 5,5)> \
<[ Back ]/@Main>\


#ELSESAY
What style would you like?\
Each sytle costs 10,000 Gold\
<[ Bald ]/@HairShape(Bald,0)> \
<[ Style 1 ]/@HairShape(Style 1,1)> \
<[ Style 2 ]/@HairShape(Style 2,2)> \
<[ Style 3 ]/@HairShape(Style 3,3)> \
<[ Style 4 ]/@HairShape(Style 4,4)> \
<[ Style 5 ]/@HairShape(Style 5,5)> \
<[ Back ]/@Main>\

[@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
Do you like your new {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} Coloured Hair?\
<[ Try again ]/@ChangeHairColor>\
<[ Exit ]/@exit>\

#IF
checkgold %D3

#SAY
Do you like your new {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12} Coloured Hair?\
<[ Try again ]/@ChangeHairColor>\
<[ Exit ]/@exit>\

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

#ELSESAY
You do not have enough Gold!\
<[ Exit ]/@exit>\

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

#IF
checkgold 10000

#SAY
Hairstyle changed to {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}\
<[ Exit ]/@exit>\

#ACT
take Gold 10000
hairstyle %D0
break

#ELSESAY
You do not have enough Gold!\
<[ Exit ]/@exit>\

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