glife/locations/hairsalon

# hairsalon
if $ARGS[0] = 'start':
	cla
	cls
	'<center><b><font color="maroon">The Golden Curl Salon</font></b></center>'
	'<center>A well reviewed hair salon, capable of creating the most beautiful hairstyles. For a price of course.</center>'
	'<center>Next to the check out are two aisles filled with premium merchandise for you hair, including Scrunchies, Hairpins and Shampoo.</center>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	lcolor = rgb(106, 90, 205)

	if hour =< 8 or hour >= 20:
		cls
		'The hair salon is closed. You should come back during their working hours.'
		act 'Leave':minut += 2 & gt 'torgcentr'
		exit
	end

	''
	'<a href=' + iif(money >= 750, '"exec:gt ''hairsalon'', ''cuthair''"', '') + '>Get a haircut - 750 <b>₽</b></a>'
	''
	'<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''curlhair''"', '') + '>Get your hair curled - 500 <b>₽</b></a>'
	''
	'<a href=' + iif(money >= 1000, '"exec:gt ''hairsalon'', ''dyehair''"', '') + '>Get your hair dyed - 1000 <b>₽</b></a>'
	''
	'<a href=' + iif(money >= 1250, '"exec:gt ''hairsalon'', ''braidhair''"', '') + '>Get your hair braided - 1250 <b>₽</b></a>'

	act 'Leave':minut += 2 & gt 'torgcentr'

	if money >= 100:
		act 'Buy Scrunchies - 100 <b>₽</b>':
			cls
			money -= 100
			hscrunch += 10
			'You pay the cashier and bought the small box.'

			act 'Move away':gt 'hairsalon', 'start'
		end
	end

	if money >= 120:
		act 'Buy Hair accessories - 120 <b>₽</b>':
			cls
			money -= 120
			hpingrip += 10
			'You pay the cashier and bought the small box.'

			act 'Move away':gt 'hairsalon', 'start'
		end
	end
end

if $ARGS[0] = 'cuthair':
	cla
	*clr
	'You approach the female hairdresser and ask, "Hi, I would like to get my hair cut. Can someone do it now or do I have to wait?"'
	'She smiles, "Sure thing, have you already decided on how much we shall cut off?"'

	act 'Change your mind':gt 'hairsalon', 'start'

	if hairlength > 10:
		act 'Very short':
			cla
			*clr
			'"I''d like to have my hair cut very short", you say.'
			'"Of course", she says with a friendly smile on her face, while leading you to a free seat.'
			'"Yes, please", you answer and sit down.'

			act 'Sit down':
				cla
				*clr
				minut += 30
				hairlength = 10
				money -= 750
				'About half an hour later she is done and what''s left from you former hairstyle is a very short buzzcut.'
				'You stand up and pay the women at the counter.'

				act 'Look in the mirror':gt 'hairsalon', 'mirror'
			end
		end
	end

	if hairlength > 31:
		act 'Short, but not too short':
			cla
			*clr
			'"I''d like to have my hair cut short, but not too short", you tell her.'
			'"I know what you mean, that''s not problem at all", she says, as she turns around one of the free seats and makes a gesture to you, to sit down.'

			act 'Sit down':
				if hairlength > 60:
					cla
					*clr
					'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'

					act 'Yes':
						cla
						*clr
						minut += 30
						hairlength = 31
						hbangs = 1
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 31
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					hairlength = 31
					hapri = 1
					money -= 750
					'30 minutes later, she is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
					'You stand up and pay the women at the counter.'

					act 'Look in the mirror':gt 'hairsalon', 'mirror'
				end
			end
		end
	end

	if hairlength > 81:
		act 'About chin-line length':
			cla
			*clr
			'"Could you cut my hair back to my chin line, please?", you ask her.'
			'"Sure, no problem", she tells you getting a chair for you ready.'

			act 'Sit down.':
				if hairlength > 90:
					cla
					*clr
					'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'

					act 'Yes':
						cla
						*clr
						minut += 30
						hairlength = 81
						hbangs = 1
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line and you have a fringe, covering your forehead.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 81
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					hairlength = 31
					hapri = 1
					money -= 750
					'30 minutes later, she is done cutting your hair. Your new hairstyle goes down to you chin-line.'
					'You stand up and pay the women at the counter.'

					act 'Look in the mirror':gt 'hairsalon', 'mirror'
				end
			end
		end
	end

	if hairlength > 161:
		act 'Shoulder Length':
			cla
			*clr
			'"I would like to have my hair cut back to about the height of my shoulder. Would you please be so kind and do that?", you ask her.'
			'"Sure, no problem", she tells you, geasturing you, to sit down into a free chair.'

			act 'Sit down.':
				if hairlength > 170:
					cla
					*clr
					'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'

					act 'Yes':
						cla
						*clr
						minut += 30
						hairlength = 161
						hbangs = 1
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders and you have a fringe, covering your forehead.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 161
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					hairlength = 161
					hapri = 1
					money -= 750
					'30 minutes later, she is done cutting your hair. Your hair now goes just to your shoulders..'
					'You stand up and pay the women at the counter.'

					act 'Look in the mirror':gt 'hairsalon', 'mirror'
				end
			end
		end
	end

	if hairlength > 261:
		act 'About Brastrap length':
			cla
			*clr
			'"Could you cut my hair back to where my bra-strap sits?", you ask her.'
			'"That''s absolutely no problem.", she says, when gesturing you sit down on one of the free seat'

			act 'Sit down.':
				if hairlength > 280:
					cla
					*clr
					'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'

					act 'Yes':
						cla
						*clr
						minut += 30
						hairlength = 261
						hbangs = 1
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits, in addition she made you a fringe, covering your forehead, as requested.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 261
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					hairlength = 261
					hapri = 1
					money -= 750
					'30 minutes later, she is done cutting your hair. She cut your hair back to about the line where your bra sits.'
					'You stand up and pay the women at the counter.'

					act 'Look in the mirror':gt 'hairsalon', 'mirror'
				end
			end
		end
	end

	if hairlength > 401:
		act 'Cut the tips':
			cla
			*clr
			'"Could you cut my hair back a bit?", you ask her. '
			'"Wow, your hair is beautiful! But, sure, that''s no problem.", she tells you, geasturing you, to sit down into a free chair.'

			act 'Sit down.':
				if hairlength > 401:
					cla
					*clr
					'"Before we begin, I need to ask, if I should cut you a fringe or not.", she tells you.'

					act 'Yes':
						cla
						*clr
						minut += 30
						hairlength = 401
						hbangs = 1
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter and as requested, she cut you a nice fringe, , which now covers your forehead.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 401
						hapri = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					hairlength = 401
					hapri = 1
					money -= 750
					'30 minutes later, she is done cutting your hair. She just cuts the tips of your, barely making it shorter. '
					'You stand up and pay the women at the counter.'

					act 'Look in the mirror':gt 'hairsalon', 'mirror'
				end
			end
		end
	end
end

if $ARGS[0] = 'curlhair':
	cls
	if hairlength <= 80:
		'"Sorry, your hair is too short to curl."'
		act 'Move away':gt 'hairsalon', 'start'
	elseif curly >= 10:
		'"Your hair is already as curly as I can make it."'
		act 'Move away':gt 'hairsalon', 'start'
	elseif hbraids > 0:
		'"Your hair is in braids right now, to curl it I would have to remove them. Is that what you want me to do?"'
		act 'Yes':
			cla
			minut += 20
			hbraids = 0
			curly = rand(14,21)
			money -= 500
			'Your braids were removed and your hair was curled instead.'
			gs 'stat'
			act 'Look in the mirror':gt 'hairsalon', 'mirror'
		end

		act 'No':gt 'hairsalon', 'start'
	else
		minut += 20
		curly = rand(14,21)
		money -= 500
		'You have your hair curled.'
		gs 'stat'
		act 'Look in the mirror':gt 'hairsalon', 'mirror'
	end
end

if $ARGS[0] = 'dyehair':
	clr
	cla
	'You ask the hairdresser, if she could dye your hair.'
	'"Sure.", she says.'
	'"What colour would like to have your hair dyed?"'

	act 'Change your mind':gt 'hairsalon', 'start'

	if hcol ! nathcol:
		act'Return to natural colour':
			cla
			*clr
			'"I want to go back to my natural hair colour." you say as you pick at your hair in the mirror, "I don''t think <<$hcol>> is working for me."' 
			'"Sure thing!", she says in a chearful way, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", she says and points your over to sit down on one of the seats.'

			act 'Sit down':
				cla
				*clr
				minut += 60
				money -= 1000
				hcol = nathcol
				'About an hour later your hair is dyed and dried.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end	
	if hcol ! 0:
		act 'Black':
			cla
			*clr
			'"Black", you say, "I want it to be raven black, dark as the night, please."'
			'"Sure thing!", she answers in a happy tone, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'

			act 'Sit down':
				cla
				*clr
				minut += 60
				hcol = 0
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				'About an hour later, everything should be dried up and the female hairdress comes back to you.'
				'She removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay the 1000 <b>₽</b>.'

				act 'Look in the mirror':gt 'hairsalon', 'mirror'
			end
		end
	end

	if hcol ! 1:
		act 'Brown':
			cla
			*clr
			'"I''d like to have my hair brown", you say.'
			'"Sure thing!", she answer in a happy tone, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'

			act 'Sit down':
				cla
				*clr
				minut += 60
				hcol = 1
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				'About an hour later, everything should be dried up and the female hairdress comes back to you.'
				'She removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay the 1000 <b>₽</b>.'

				act 'Look in the mirror':gt 'hairsalon', 'mirror'
			end
		end
	end

	if hcol ! 2:
		act 'Red':
			cla
			*clr
			'"I''d like to have my in a fiercely red", you say with a devilish grin.'
			'"Sure thing!", she laughs, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'

			act 'Sit down':
				cla
				*clr
				minut += 60
				hcol = 2
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				'About an hour later, everything should be dried up and the female hairdress comes back to you.'
				'She removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay the 1000 <b>₽</b>.'

				act 'Look in the mirror':gt 'hairsalon', 'mirror'
			end
		end
	end

	if hcol ! 3:
		act 'Blonde':
			cla
			*clr
			'"Blonde! Blondes have more fun. I want to see if that is true!", you giggle.'
			'"Blondes definately have more fun!", she says with a wink, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", she says happily as she turns around one of the seats for you.'

			act 'Sit down':
				cla
				*clr
				minut += 60
				hcol = 3
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				'About an hour later, everything should be dried up and the female hairdress comes back to you.'
				'She removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay the 1000 <b>₽</b>.'

				act 'Look in the mirror':gt 'hairsalon', 'mirror'
			end
		end
	end
	if hcol ! 4:
		act 'Bright Red':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"Really bright red, like a fire truck." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 4
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 5:
		act 'Dark Blue':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"I want a really dark blue, almost purple." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 5
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 6:
		act 'Medium Blue':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"I feel like trying an electric blue." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 6
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 7:
		act 'Light Blue':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"Make my hair light blue, like candy floss." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 7
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 8:
		act 'Dark Green':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"I want a deep green, like emerald." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 8
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
!	if hcol ! 9:
!		act 'Medium Green':
!			cla
!			*clr
!			gs 'stat'
!			'"I want to try something really different." you tell her.'
!			'"And what would that be?" The hairdresser asks cheerfully.'
!			'"I''d like a nice froest green, like summer leaves." you announce.'
!			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'
!
!			act 'Sit down':
!				cla
!				*clr
!				minut += 45
!				hcol = 9
!				collength = hairlength
!				money -= 1000
!				gs 'stat'
!				'About an hour later, everything should be dried up.'
!				'The hairdresser removes the dryer hood. "And we''re all done."'
!				'You stand up from the chair and pay her 1000 <b>₽</b>.'
!
!				act 'Leave':gt 'barbershop', 'start'
!			end
!		end
!	end
	if hcol ! 10:
		act 'Light Green':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"Can you do a nice light green, sort of like new leaves?" you ask.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 10
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 11:
		act 'Dark Pink':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"How about a really dark pink, almost like a cross between purple and red." you tell her with a smile.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 11
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 12:
		act 'Medium Pink':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"I want it to be pink like bubble gum with maybe a few really light pink streaks." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 12
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 13:
		act 'Light Pink':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"A soft light pink, like candy floss." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 13
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 14:
		act 'Dark Purple':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"IA nice dark purple, like a dark wine." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 14
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 15:
		act 'Medium Purple':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"I''m leaning towards purple, not so dark that you can''t tell it is purple, you know?" you tell her.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 15
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 16:
		act 'Light Purple':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"I''m thinking a really light purple, like grape soda." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 16
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 17:
		act 'Orange':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell her.'
			'"And what would that be?" The hairdresser asks cheerfully.'
			'"Really orange, like a fox." you announce.'
			'"No problem, this''ll be fun. Please have a seat.", she says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 17
				dyefade = rand(35,42)
				collength = hairlength
				money -= 1000
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'The hairdresser removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay her 1000 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	gs 'stat'
end

if $ARGS[0] = 'braidhair':
	cla
	*clr
	'"I''d like to have my hair braided. Could you do that?", you as the female hairdresser.'

	if hbraids = 20:
		'"Sorry, your hair is already braided as well as I can do."'
		act 'Move away':gt 'hairsalon', 'start'
		exit
	elseif hairlength <= 80:
		'"Sorry, your hair is too short for me to braid it."'
		act 'Move away':gt 'hairsalon', 'start'
		exit
	elseif hairlength > 400:
		'"Sorry, your hair is too long to make a braid that will not fall apart."'
		act 'Move away':gt 'hairsalon', 'start'
	end

	'She takes a look at you hair and nods, "Sure, you have beautiful, long hair, it shouldn''t be a problem at all."'
	'The hairdresser tells you to sit down on one of the free seats and she''ll get on it immediately.'

	act 'Sit down':
		cla
		*clr
		'"Just relax, we''ll be done in no time.", she tells you.'

		act 'Relax':
			cla
			*clr
			minut += 40
			hbraids = 20
			money -= 1250
			'"And we are done.", she says.'
			'You stand up and pay her at the counter.'

			act 'Look in the mirror':gt 'hairsalon', 'mirror'
		end
	end
end

if $ARGS[0] = 'mirror':
	cls
	'<center><img src="<<FUNC(''$face_image'')>>"></center>'
	'<center>You look at your new hairstyle in the mirror.</center>'
	act 'Move away':gt 'hairsalon', 'start'
end

--- hairsalon ---------------------------------