glife/locations/barbershop

# barbershop
!!! Maruda Hair Mod

if $ARGS[0] = 'start':
	gs 'stat'
	'<center><b><font color="maroon">The Barber Shop</font></b></center>'
	'<center>The only barber shop in the area owned by Oleg Anatolyevich Syomin. He denies ever playing football, but your brother is convinced he is "The Oleg Anatolyevich Syomin". While he can''t do very special hairstyles, he''s cheap and works fast.</center>'
	clr
	gs 'stat'
	fcolor = rgb(0, 0, 0)
	bcolor = rgb(255, 255, 255)
	Lcolor = rgb(106, 90, 205)
	''

	if money >= 500 and hairlength > 15:'<a href="exec:gt ''barbershop'', ''cuthair''">Cut your hair - 750 <b>₽</b></a>'
	if money < 500 and hairlength <= 15:'You don''t have enough money to get your hair properly cut. It costs 750 <b>₽</b> but you only have <<money>>.'

	''

	if money >= 300 and hairlength > 80:'<a href="exec:gt ''barbershop'', ''perm''">Curl your hair - 300 <b>₽</b></a>'
	if money < 300:'You cannot afford curling your hair, as it costs 300 <b>₽</b>, which you do not have at the moment.'
	if hairlength <= 80:'Your hair is not long enough to be curled.'

	''

	if money >= 750:'<a href="exec:gt ''barbershop'', ''dyehair''">Dye your hair - 750 <b>₽</b></a>'
	if money < 750:'You cannot afford to dye your hair, as you are short the 750 <b>₽</b> required for it.'

	''

	if hour =< 8 or hour >= 20:
		cls
		'The barber shop is closed at the moment, you should probably come back, when Mr. Syomin is in'

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

		exit
	end

	act 'Leave':minut += 2 & gt 'pavCommercial'
end

if money >= 60:
	act 'Buy Scrunchies - 60 <b>₽</b>':
		cls
		money -= 60
		hscrunch += 10
		'You pay Mr. Syomin and buy the small box.'

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

if money >= 80:
	act 'Buy Hairaccessories - 80 <b>₽</b>':
		cls
		money -= 80
		hpingrip += 10
		'You pay Mr. Syomin and buy the small box.'

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

if barbershop_wrk = 0:
	act 'Ask for work':
		cla
		*clr
		minut += 5
		'You walk up to Mr. Syomin, the owner of the barbershop.'
		'"Hello Mr. Syomin", you greet him.'
		'"Hello <<$name>>! What can I do for you today?", he asks you in his usual soothing voice.'
		'"I was wondering if you''re looking for some help around here"'
		'"Well, I don''t think you have experience as a hairdresser..." He thinks for a second. "..., but my back isn''t the best anymore, so I could use some help keeping the shop clean. It''s not much work, but I''d be happy if you could come in once a day for about an hour. Just come by, when you''re done with school and when I''m still open, obviously."'
		'You smile cheerfully. "That sound great! What would I have to do?"'
		'"Well," he says, while looking around and gathering tasks for you. "...,  you''d have to mop the floor here in the main room and the break room in the back as well. Take out all the trash, clean the breakroom kitchen, clean the mirrors, windows, chairs and toilet and of course dust the shelves. It might sound like a lot, but don''t worry, even doing one thing, makes my life easier."'
		'You think about it for a second, but you guess it won''t be too bad and you could need any amount of money... "I...uhm...hate to ask, but how much would I earn per hour?"'
		'"Ah yes," Mr. Syomin chuckles. "..., the most important question. Are you alright with 100 <b>₽</b> per hour?"'
			
			act 'Agree to work':
			cla
			*nl
			'"That''s great", you nod. "When can I start?"'
			'"If you could come back tomorrow, that''d be great."'
			barbershop_wrk = 1
				act 'Leave': gt 'barbershop','start'
			end
			
			act 'Think about it':
			cla
			*nl
			'"I guess I''ll think about it some more.", you answer.'
			'"Sure <<$name>>, come back when you want to work."'
				act 'Leave': gt 'barbershop','start'
			end
	end
elseif barbershop_wrk = 1 and barbershop_wrk_day ! daystart:
	act 'Get to work (1h)':
		cla
		*clr
		minut += 60
		money += 100
		barbershop_wrk_day = daystart
		gs 'stat'
		'You work diligently and fast. You clean the floor, take out the trash, dust off the shelves and wipe some mirrors and windows. Before you know an hour has passed and you''re 100 <b>₽</b> richer.'
			act 'Leave': gt 'barbershop','start'
	end
end

if $ARGS[0] = 'cuthair':
	cla
	*clr
	money -= 500
	'You approach Mr. Syomin and ask, "Hi, I would like to get my hair cut."'
	'"Of course, at which length do you want to have your hair at?", he asks you.'

	if hairlength > 10:
		act 'Very short':
			cla
			*clr
			'You sit down and say, "I want my hair to be very short."'
			'"Of course", he says with a friendly smile on her face, while leading you to a free seat.'

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

				act 'Stand up':gt 'barbershop', 'start'
			end
		end
	end

	if hairlength > 31:
		act 'Short, but not too short':
			cla
			*clr
			'"I''d like to have my hair cut short, but it shouldn''t get too short. I hope, you know what I mean.", you tell him, hoping he wouldn''t cut everything off.'
			'"I know what you mean, that''s not problem at all", he says, then he 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.", he tells you.'

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

						act 'Stand up':gt 'barbershop', 'start'
					end

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

						act 'Stand up':gt 'barbershop', 'start'
					end
				else
					cla
					*clr
					minut += 20
					hairlength = 31
					hapri = 1
					'20 minutes later, he is done cutting your hair. And you have now a hairstyle, which barely reaches your earlobes.'
					'You stand up and pay Mr. Syomin at the counter.'

					act 'Stand up':gt 'barbershop', 'start'
				end
			end
		end
	end

	if hairlength > 81:
		act 'About chin-line length':
			cla
			*clr
			'"Could you cut my hair back to between my chin and shoulder, please?", you ask him.'
			'"Sure, no problem", he 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.", he tells you.'

					act 'Yes':
						cla
						*clr
						minut += 20
						hairlength = 81
						hbangs = 1
						hapri = 1
						'20 minutes later, he 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 Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 81
						hapri = 1
						'20 minutes later, he is done cutting your hair.'
						'You stand up and pay Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end
				else
					cla
					*clr
					minut += 20
					hairlength = 31
					hapri = 1
					'20 minutes later, he is done cutting your hair.'
					'You stand up and pay Mr. Syomin at the counter.'

					act 'Stand up':gt 'barbershop', 'start'
				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.", you tell him.'
			'"Sure, no problem", he tells you, gesturing 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.", he tells you.'

					act 'Yes':
						cla
						*clr
						minut += 20
						hairlength = 161
						hbangs = 1
						hapri = 1
						'20 minutes later, he 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 Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end

					act 'No':
						cla
						*clr
						minut += 30
						hairlength = 161
						hapri = 1
						'30 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
						'You stand up and pay Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end
				else
					cla
					*clr
					minut += 20
					hairlength = 161
					hapri = 1
					'20 minutes later, he is done cutting your hair. Your hair is now just slightly longer, than your shoulders.'
					'You stand up and pay Mr. Syomin at the counter.'

					act 'Stand up':gt 'barbershop', 'start'
				end
			end
		end
	end

	if hairlength > 261:
		act 'About Brastrap length':
			cla
			*clr
			'"Could you cut my hair back to about where my bra-strap sits?", you ask him.'
			'"That''s absolutely no problem.", he says, when geasturing 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.", he tells you.'

					act 'Yes':
						cla
						*clr
						minut += 20
						hairlength = 261
						hbangs = 1
						hapri = 1
						'20 minutes later, he is done cutting your hair. He cut your hair back to about the height of where your bra sits, in addition he made you a fringe, which covers your forehead, as requested.'
						'You stand up and pay Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end

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

						act 'Stand up':gt 'barbershop', 'start'
					end
				else
					cla
					*clr
					minut += 20
					hairlength = 261
					hapri = 1
					'20 minutes later, he is done cutting your hair. She cut your hair back to about the line where your bra sits.'
					'You stand up and pay Mr. Syomin at the counter.'

					act 'Stand up':gt 'barbershop', 'start'
				end
			end
		end
	end

	if hairlength > 401:
		act 'Cut the tips':
			cla
			*clr
			'"I''d like to keep this length, but my tips might need some cutting. Could you do that?", you ask him. '
			'"Of course, please sit down.", he says.'

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

					act 'Yes':
						cla
						*clr
						minut += 20
						hairlength = 401
						hbangs = 1
						hapri = 1
						'20 minutes later, he is done cutting your hair. He just cuts the tips of your, barely making it any shorter and as requested, he cut you a nice fringe, which now covers your forehead.'
						'You stand up and pay Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end

					act 'No':
						cla
						*clr
						minut += 20
						hairlength = 401
						hapri = 1
						'20 minutes later, he is done cutting your hair.'
						'You stand up and pay Mr. Syomin at the counter.'

						act 'Stand up':gt 'barbershop', 'start'
					end
				else
					cla
					*clr
					minut += 20
					hairlength = 401
					hapri = 1
					'20 minutes later, he is done cutting your hair.'
					'You stand up and pay Mr. Syomin at the counter.'

					act 'Stand up':gt 'barbershop', 'start'
				end
			end
		end
	end
end

if $ARGS[0] = 'perm':
	cla
	*clr
	gs 'stat'
	minut += 20
	curly = rand(12,16)
	money -= 300
	'You get your hair curled. It should hold for around 2 weeks.'
	act 'Leave': gt 'barbershop', 'start'
end

if $ARGS[0] = 'dyehair':
	clr
	cla
	gs 'stat'
	'You ask Mr. Syomin, the barber, if he could dye your hair.'
	'"Sure.", he says.'
	'"What colour would like to have your hair dyed?"'
	
	act 'Change your mind':gt 'barbershop', '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!", he says, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = nathcol
				money -= 750
				gs 'stat'
				'Less than an hour later your hair is dyed and dried.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <b>₽</b>.'

				act 'Leave':gt 'barbershop', 'start'
			end
		end
	end
	if hcol ! 0:
		act 'Black':
			cla
			*clr
			gs 'stat'
			'"Black", you say, "I want to have it as dark as possible, please."'
			'"Sure thing!", he says, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", he says and points your over to sit down on one of the seats.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 0
				dyefade = rand(28,35)
				collength = hairlength
				money -= 750
				gs 'stat'
				'Not even an hour later everything seems to have dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <b>₽</b>.'

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

	if hcol ! 1:
		act 'Brown':
			cla
			*clr
			gs 'stat'
			'"I''d like to have my hair brown", you say.'
			'"Sure thing!", he answer in a happy tone, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", he says.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 1
				dyefade = rand(28,35)
				collength = hairlength
				money -= 750
				gs 'stat'
				'45 minutes later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <b>₽</b>.'

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

	if hcol ! 2:
		act 'Red':
			cla
			*clr
			gs 'stat'
			'"Red is a colour I''d love to try out.", you say.'
			'"Sure thing!", he smiles, "Why don''t you take a seat?"'
			'"We''ll be done in no time!", he says as he turns around one of the seats for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 2
				dyefade = rand(28,35)
				collength = hairlength
				money -= 750
				gs 'stat'
				'45 minutes later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <b>₽</b>.'

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

	if hcol ! 3:
		act 'Blonde':
			cla
			*clr
			gs 'stat'
			'"I want to have my hair coloured blonde, please", you tell him.'
			'"As you wish, please have a seat.", he says and turns around one of the chairs for you.'

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

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

	if hcol ! 4:
		act 'Bright Red':
			cla
			*clr
			gs 'stat'
			'"I want to try something really different." you tell him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"Really bright red, like a fire truck." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 4
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"I want a really dark blue, almost purple." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 5
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"I feel like trying an electric blue." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 6
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"Make my hair light blue, like candy floss." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 7
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"I want a deep green, like emerald." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 8
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
!			'"And what would that be?" Mr. Syomin asks cheerfully.'
!			'"I''d like a nice froest green, like summer leaves." you announce.'
!			'"As you wish, although I''not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'
!
!			act 'Sit down':
!				cla
!				*clr
!				minut += 45
!				hcol = 9
!				collength = hairlength
!				money -= 750
!				gs 'stat'
!				'About an hour later, everything should be dried up.'
!				'Mr. Syomin removes the dryer hood. "And we''re all done."'
!				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"Can you do a nice light green, sort of like new leaves?" you ask.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 10
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"How about a really dark pink, almost like a cross between purple and red." you tell him with a smile.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 11
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"I want it to be pink like bubble gum with maybe a few really light pink streaks." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 12
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"A soft light pink, like candy floss." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 13
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"IA nice dark purple, like a dark wine." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 14
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"I''m leaning towards purple, not so dark that you can''t tell it is purple, you know?" you tell him.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 15
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"I''m thinking a really light purple, like grape soda." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

			act 'Sit down':
				cla
				*clr
				minut += 45
				hcol = 16
				dyefade = rand(23,30)
				collength = hairlength
				money -= 750
				gs 'stat'
				'About an hour later, everything should be dried up.'
				'Mr. Syomin removes the dryer hood. "And we''re all done."'
				'You stand up from the chair and pay him 750 <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 him.'
			'"And what would that be?" Mr. Syomin asks cheerfully.'
			'"Really orange, like a fox." you announce.'
			'"As you wish, although I''ve not done too many like that. Please have a seat.", he says and turns around one of the chairs for you.'

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

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

!!! Maruda Hair Mod

--- barbershop ---------------------------------