GLifeHornguy/locations/hairsalon.qsrc

# hairsalon
if $ARGS[0] = 'start':
	cla
	cls
	'<center><b><font color="maroon">The Golden Curl Salon</font></b></center>'
	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/golden curl/golden curl.jpg"</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'
	if night_mode = 1:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(0, 0, 0)
		lcolor = rgb(106, 90, 205)
	elseif night_mode = 2:
		fcolor = rgb(255, 255, 255)
		bcolor = rgb(20, 20, 20)
		lcolor = rgb(106, 90, 205)
	else
		fcolor = rgb(0, 0, 0)
		bcolor = rgb(255, 255, 255)
		lcolor = rgb(106, 90, 205)
	end

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

	*nl
	'<a href=' + iif(money >= 750, '"exec:gt ''hairsalon'', ''cuthair''"', '') + '>Get a haircut - 750 <b>₽</b></a>'
	*nl
	'<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''curlhair''"', '') + '>Get your hair curled - 500 <b>₽</b></a>'
	*nl
	'<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''straighthair''"', '') + '>Get your hair straightened - 500 <b>₽</b></a>'
	*nl
	'<a href=' + iif(money >= 1000, '"exec:gt ''hairsalon'', ''dyehair''"', '') + '>Get your hair dyed - 1000 <b>₽</b></a>'
	*nl
	if dyefade > 0 and dyefade < 7:
		'<a href=' + iif(money >= 500, '"exec:gt ''hairsalon'', ''touchup''"', '') + '>Touch up hair color - 500 <b>₽</b></a>'
		*nl
	elseif dyefade = 0:
		'<a href=' + iif(money >= 1000, '"exec:gt ''hairsalon'', ''touchup2''"', '') + '>Re-dye your existing hair color - 1000 <b>₽</b></a>'
		*nl
	end
	'<a href=' + iif(money >= 1250, '"exec:gt ''hairsalon'', ''braidhair''"', '') + '>Get your hair braided - 1250 <b>₽</b></a>'

	act 'Leave':minut += 3 & 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 pcs_hairlng > 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
				pcs_hairlng = 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 pcs_hairlng > 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 pcs_hairlng > 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
						pcs_hairlng = 31
						hbangs = 1
						pcs_hairbsh = 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
						pcs_hairlng = 31
						hbangs = 0
						pcs_hairbsh = 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
					pcs_hairlng = 31
					pcs_hairbsh = 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 pcs_hairlng > 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 pcs_hairlng > 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
						pcs_hairlng = 81
						hbangs = 1
						pcs_hairbsh = 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
						pcs_hairlng = 81
						hbangs = 0
						pcs_hairbsh = 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
					pcs_hairlng = 31
					pcs_hairbsh = 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 pcs_hairlng > 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 pcs_hairlng > 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
						pcs_hairlng = 161
						hbangs = 1
						pcs_hairbsh = 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
						pcs_hairlng = 161
						hbangs = 0
						pcs_hairbsh = 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
					pcs_hairlng = 161
					pcs_hairbsh = 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 pcs_hairlng > 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 pcs_hairlng > 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
						pcs_hairlng = 261
						hbangs = 1
						pcs_hairbsh = 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
						pcs_hairlng = 261
						hbangs = 0
						pcs_hairbsh = 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
					pcs_hairlng = 261
					pcs_hairbsh = 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 pcs_hairlng > 401:
		act 'About Back Length':
			cla
			*clr
			'"Could you cut my hair back to about the small of my back?", 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 pcs_hairlng > 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
						pcs_hairlng = 401
						hbangs = 1
						pcs_hairbsh = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to the small of your back, 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
						pcs_hairlng = 401
						hbangs = 0
						pcs_hairbsh = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to the small of your back.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					pcs_hairlng = 401
					pcs_hairbsh = 1
					money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to the small of your back.'
						'You stand up and pay the women at the counter.'

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

	if pcs_hairlng > 601:
		act 'About Hip length':
			cla
			*clr
			'"Could you cut my hair back to about the top of your hips?", 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 pcs_hairlng > 601:
					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
						pcs_hairlng = 601
						hbangs = 1
						pcs_hairbsh = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the top of your hips, 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
						pcs_hairlng = 601
						hbangs = 0
						pcs_hairbsh = 1
						money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the top of your hips.'
						'You stand up and pay the women at the counter.'

						act 'Look in the mirror':gt 'hairsalon', 'mirror'
					end
				else
					cla
					*clr
					minut += 30
					pcs_hairlng = 601
					pcs_hairbsh = 1
					money -= 750
						'30 minutes later, she is done cutting your hair. She cut your hair back to about the top of your hips.'
						'You stand up and pay the women at the counter.'

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

	if pcs_hairlng > 801:
		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 pcs_hairlng > 801:
					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
						pcs_hairlng = 801
						hbangs = 1
						pcs_hairbsh = 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
						pcs_hairlng = 801
						hbangs = 0
						pcs_hairbsh = 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
					pcs_hairlng = 801
					pcs_hairbsh = 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] = 'straighthair':
	cls
	if pcs_hairlng <= 80:
		'"Sorry, your hair is too short to straightened."'
		act 'Move away':gt 'hairsalon', 'start'
	elseif straight >= 10 or (defcurly = 0 and curly = 0):
		'"Your hair is already as straight as I can make it."'
		act 'Move away':gt 'hairsalon', 'start'
	elseif hbraids > 0:
		'"Your hair is in braids right now, to straighten it I would have to remove them. Is that what you want me to do?"'
		act 'Yes':
			cla
			minut += 20
			hbraids = 0
			money -= 500
			curly = 0
			if defcurly = 0:
				'Your braids were removed and your hair was straightened back to its original shape.'
			else
				straight = rand(14,21)
				'Your braids were removed and your hair was straightened instead.'
			end
			gs 'stat'
			act 'Look in the mirror':gt 'hairsalon', 'mirror'
		end

		act 'No':gt 'hairsalon', 'start'
	else
		minut += 20
		curly = 0
		if defcurly = 0:
			'Your hair is straightened back to its original shape.'
		else
			straight = rand(14,21)
			'Your hair is straightened.'
		end
		money -= 500
		gs 'stat'
		act 'Look in the mirror':gt 'hairsalon', 'mirror'
	end
end

if $ARGS[0] = 'curlhair':
	cls
	if pcs_hairlng <= 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
			money -= 500
			if defcurly = 0:
				curly = rand(14,21)
				'Your braids were removed and your hair was curled instead.'
			else
				curly = 2147483647
				'Your braids were removed and your hair was curled back to its original shape.'
			end
			gs 'stat'
			act 'Look in the mirror':gt 'hairsalon', 'mirror'
		end

		act 'No':gt 'hairsalon', 'start'
	else
		minut += 20
		money -= 500
		if defcurly = 0:
			curly = rand(14,21)
			'You have your hair curled.'
		else
			curly = 2147483647
			'You have your hair curled back to its original shape.'
		end
		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 pcs_haircol ! 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 <<$pcs_haircol>> 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
				pcs_haircol = 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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end	
	if pcs_haircol ! 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
				pcs_haircol = 0
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 pcs_haircol ! 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
				pcs_haircol = 1
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 pcs_haircol ! 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
				pcs_haircol = 2
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 pcs_haircol ! 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
				pcs_haircol = 3
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 pcs_haircol ! 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
				pcs_haircol = 4
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 5
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 6
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 7
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 8
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
!	if pcs_haircol ! 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
!				pcs_haircol = 9
!				collength = pcs_hairlng
!				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 'Move away':gt 'hairsalon', 'start'
!			end
!		end
!	end
	if pcs_haircol ! 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
				pcs_haircol = 10
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 11
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 12
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 13
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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.'
			'"I want it 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
				pcs_haircol = 14
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 15
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 16
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	if pcs_haircol ! 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
				pcs_haircol = 17
				dyefade = rand(35,42)
				collength = pcs_hairlng
				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 'Move away':gt 'hairsalon', 'start'
			end
		end
	end
	gs 'stat'
end

if $ARGS[0] = 'touchup':
	cla
	*clr
	minut += 45
	dyefade = rand(35,42)
	collength = pcs_hairlng
	money -= 500
	gs 'stat'
	'The hairdresser nods her head excitedly and leads you to an empty chair.'
	'She has a bubbly personality, chatting about this and that without pause or much feedback from you, but you don''t mind as it keeps you distracted while you go through the usual wash and dry routine.'
	'She flits around your head with her tools, and before you know it, your hair is restored to its earlier luster and color.'
	'You stand up from the chair and pay her 500 <b>₽</b>.'

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

if $ARGS[0] = 'touchup2':
	cla
	*clr
	'The hairdresser smiles apologetically, "Sorry, but you''re going to need a completely new dye job to cover that up. I can do it, if you want? It''s only 1000 <b>₽</b>."'
	act 'Sure':
		cla
		*clr
		minut += 45
		dyefade = rand(35,42)
		collength = pcs_hairlng
		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 'Move away':gt 'hairsalon', 'start'
	end

	act 'No thanks':gt 'hairsalon', 'start'
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 pcs_hairlng <= 80:
		'"Sorry, your hair is too short for me to braid it."'
		act 'Move away':gt 'hairsalon', 'start'
		exit
	elseif pcs_hairlng > 800:
		'"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 <<$set_imgh>> src="<<FUNC(''$face_image'')>>"></center>'
	'<center>You look at your new hairstyle in the mirror.</center>'
	act 'Move away':gt 'hairsalon', 'start'
end

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