[Convert]

[@Convert_HairChange_0]
{
Welcome, How may I help you?\
<Dye my Hair/@ChangeHairColor> \
<Change Hair Shape/@ChangeHairShape> \
<Exit/@exit>

}

[@Convert_HairChange_1]
{
Change hair Colour?\ \
<WhiteCost: 5000 Gold/@HairColor(White,255,255,255,5000)> \
<BlackCost: 5000 Gold/@HairColor(Black,60,60,60,5000)> \
<GreyCost: 5000 Gold/@HairColor(Grey,170,170,170,5000)> \
<RandomCost:10000Gold/@HairColor(Random,0,0,0,10000)> \
<Return/@main>

}

[@Convert_HairChange_2]
{
The cost to alter your hairstyle is {FCOLOR/10}10000Gold{FCOLOR/12}.\
Please choose the hairstyle.\ \
<Bald/@HairShape(Bald,0)> \
<Short/@HairShape(Long,1)> \
<PonyTail/@HairShape(PonyTail,2)> \
<Long/@HairShape(Short,3)> \
<Bun/@HairShape(Bun,4)> \
<Spiky/@HairShape(Spikey,5)> \
<Return/@main> \
}

[@Convert_HairChange_3]
{
The cost to alter your hairstyle is {FCOLOR/10}10000Gold{FCOLOR/12}.\
Please choose the hairstyle.\ \
<Bald/@HairShape(Bald,0)> \
<Short/@HairShape(Long,1)> \
<PonyTail/@HairShape(PonyTail,2)> \
<Long/@HairShape(Short,3)> \
<Bun/@HairShape(Bun,4)> \
<Spiky/@HairShape(Spikey,5)> \
<Return/@main> \

}

[@Convert_HairChange_4]
{
Are you happy with this style. \ \
Cost <$OUTPUT(D3)> GoldAgain <Dye/@ChangeHairColor> \ \
<Exit/@exit>

}

[@Convert_HairChange_5]
{
The Hair Dye {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}. \ \
<Exit/@exit>
}

[@Convert_HairChange_6]
{
You do not have enough money to change your hair.\ \
<Next/@ChangeHairColor>

}

[@Convert_HairChange_7]
{
You hair Style altered to {FCOLOR/10}<$OUTPUT(A0)>{FCOLOR/12}. Hope you Like it.\ \
<Exit/@exit>
}

[@Convert_HairChange_8]
{
You do not have enough Gold.\ \
<Exit/@exit>
}
