# barbershop
!!! Maruda Hair Mod
$pokraska = {
clr
cla
set money -= 750
'You ask the barber, if he could dye your hair.'
'"Sure.", he says.'
'"Which colour would like to have your hair dyed in?"'
if hcol ! 0:
	act 'Black':
		cla
		*clr
		'"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
			set minut += 45
			set hcol = 0
			'Not even an hour later everything seems to have dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave':gt 'barbershop', 'start'
		end
	end
end
if hcol ! 1:
	act 'Brown':
		cla
		*clr
		'"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
			set minut += 45
			set hcol = 1
			'45 minutes later, everything should be dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave':gt 'barbershop', 'start'
		end
	end
end
if hcol ! 2:
	act 'Red':
		cla
		*clr
		'"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
			set minut += 45
			set hcol = 2
			'45 minutes later, everything should be dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave':gt 'barbershop', 'start'
		end
	end
end
if hcol ! 3:
	act 'Blonde':
		cla
		*clr
		'"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
			set minut += 45
			set hcol = 3
			'About an hour later, everything should be dried up.'
			'He removes the dryer hood. "And we''re all done."'
			'You stand up from the chair and pay him 750 rubles.'
		act 'Leave':gt 'barbershop', 'start'
		end
	end
end
gs 'stat'
}
$zavivka = {
	set minut += 20
	set curly += 10
	set money -= 300
	'You have your hair curled'
	gs 'stat'
	gt 'barbershop', 'start'
}
$cuthair = {
cla
*clr
set money -= 500
'You approach the barber 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
			set minut += 30
			set 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 him 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
						set minut += 20
						set hairlength = 31
						set hbangs = 1
						set 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 him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
					act 'No':
						cla
						*clr
						set minut += 20
						set hairlength = 31
						set 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 the barber at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 31
				set 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 him 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
						set minut += 20
						set hairlength = 81
						set hbangs = 1
						set 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 him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 81
						set hapri = 1
						'20 minutes later, he is done cutting your hair.'
						'You stand up and pay him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 31
				set hapri = 1
				'20 minutes later, he is done cutting your hair.'
				'You stand up and pay him 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
						set minut += 20
						set hairlength = 161
						set hbangs = 1
						set 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 him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
					act 'No':
						cla
						*clr
						set minut += 30
						set hairlength = 161
						set 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 him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 161
				set 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 him 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
						set minut += 20
						set hairlength = 261
						set hbangs = 1
						set 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 him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
					act 'No':
						cla
						*clr
						set minut += 20
						set hairlength = 261
						set 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 him at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 261
				set 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 him 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
						set minut += 20
						set hairlength = 401
						set hbangs = 1
						set 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 the barber at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
					act 'No':
						cla
						*clr
						set minut += 20
						set hairlength = 401
						set hapri = 1
						'20 minutes later, he is done cutting your hair.'
						'You stand up and pay the barber at the counter.'
						act 'Stand up':gt 'barbershop', 'start'
					end
			else 
				cla
				*clr
				set minut += 20
				set hairlength = 401
				set hapri = 1
				'20 minutes later, he is done cutting your hair.'
				'You stand up and pay him at the counter.'
				act 'Stand up':gt 'barbershop', 'start'
			end
		end
	end
end
}
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. While he can''t do 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:dynamic $cuthair">Cut your hair - 750 rubles</a>'
if money < 500 and hairlength <= 15:'You don''t have enough money to get your hair properly cut. It costs 750 rubles but you only have <<money>>.'
''
if money >= 300 and hairlength > 80:'<a href="exec:dynamic $zavivka">Curl your hair - 500 rubles</a>'
if money < 300:'You cannot afford curling your hair, as it costs 500 rubles, which you do not have at the moment.'
if money >= 300 and hairlength <= 80:'Your hair is too short to be curled.'
if hairlength <= 80:'Your hair is not long enough to be curled.'
''
if money >= 750:'<a href="exec:dynamic $pokraska">Dye your hair - 1.000 rubles</a>'
if money < 750:'You cannot afford dyeing your hair, as you are missing the 1.000 rubles required for it.'
''
if hour =< 8 or hour >= 20:
	cls
	'The barber shop is closed at the moment, you should probably come back, when he''s in'
	act 'Leave':set minut += 2 & gt 'gorodok'
	exit
	end
act 'Leave':set minut += 2 & gt 'gorodok'
end

if money >= 60:
	act 'Buy Scrunchies - 60 rubles':
		cls
		money    -= 60
		hscrunch += 10
		'You pay the cashier and bought the small box.'
		act 'Move away':gt 'barbershop', 'start'
	end
end

if money >= 80:
	act 'Buy Hairaccessories - 80 rubles':
		cls
		money    -= 80
		hpingrip += 10
		'You pay the cashier and bought the small box.'
		act 'Move away':gt 'barbershop', 'start'
	end
end
!!! Maruda Hair Mod

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