# salon
if $ARGS[0]='start':
gs'stat'
$zavivka={
set minut+=60
set curly+=10
set money-=1000
if salonrand=0 and masha=0:gt 'salon','0'
'You curled hair.'
gs'stat'
gt'salon','start'
}
$pokraska={
cla
set money = money - 1000
'You get paid and sat down in the chair, you went and asked the girl beautician what color you would like repainted.'
if hcol ! 0:
	 act 'black':
		 cla
		 set minut = minut + 60
		 set hcol = 0
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
if hcol ! 1:
	 act 'Brown color':
		 cla
		 set minut = minut + 60
		 set hcol = 1
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
if hcol ! 2:
	 act 'red color':
		 cla
		 set minut = minut + 60
		 set hcol = 2
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
if hcol ! 3:
	 act 'Light color':
		 cla
		 set minut+=60
		 set hcol = 3
		 if salonrand=0 and masha=0:gt 'salon','0'
		 'Do you dye your hair.'
		 gt'salon','start'
		 end
	 end
gs'stat'
}
$solyariy={
set minut+=60
set tan+=10
set money-=1000
if salonrand>6 and nastjaqw>2:gt 'etoexhib','pos1'
if salonrand=0 and masha=0:gt 'salon','0'
'You sunbathe in the solarium.'
gs'stat'
gt'salon','start'
}
$resnici={
set minut+=60
set resnic = resnic + 1
set money = money - 5000
if salonrand=0 and masha=0:gt 'salon','0'
'You lengthen lashes.'
gs'stat'
gt'salon','start'
}
$epilyaciya={
set minut+=60
set leghair = -20
set lobok = -20
set money = money - 5000
if salonrand=0 and masha=0:gt 'salon','0'
'You had a full body hair removal.'
gs'stat'
gt'salon','start'
}
$ozdormas={
set minut+=60
set salo-=2
set vidageday+=3
set money-=5000
if salonrand=0:
	 cla
	 *clr
	 '<center><img src="img/centr/mass.jpg" ></center>'
	 'During the massage guy enjoys his masljannye fingers begin to slip it in your pussy then in the ass.'
	 set picrand=rand(25,28)
	 act 'rebel':gt'salon','start'
	 act 'enjoy':
		 set guy+=1
		 gt'sex','minet'
		 end
	 end
gs'stat'
gt'salon','start'
}
$tatyadd={
set minut+=60
cla
if tatlip = 0:
   	 act 'View tattoo on lip number1':
		 cla
		 *clr
		 '<center><img src="picBody/tatlip1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatlip = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 set vaf+=10
			 gs'stat'
			 'You lie on the couch, open your mouth and you stuffed a tattoo on the lip.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on lip number2':
		 cla
		 *clr
		 '<center><img src="picBody/tatlip2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatlip = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 set vaf+=10
			 gs'stat'
			 'You lie on the couch, open your mouth and you stuffed a tattoo on the lip.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on lip number3':
		 cla
		 *clr
		 '<center><img src="picBody/tatlip3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatlip = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 set vaf+=10
			 'You lie on the couch, open your mouth and you stuffed a tattoo on the lip.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatplech = 0:
   	 act 'View tattoo on shoulder "flowers"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open arms and, you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on shoulder "butterfly"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open arms and, you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on shoulder "flowers number2"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech3.jpg" ></center>'
	     act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open shoulders, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on shoulder "The Queen of Spades"':
		 cla
		 *clr
		 '<center><img src="picBody/tatplech4.jpg" ></center>'
	     act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatplech = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open shoulders, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatback = 0:
   	 act 'View tattoo "wings" number on the back1':
		 cla
		 *clr
		 '<center><img src="picBody/tatb1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo "wings" number on the back2':
		 cla
		 *clr
		 '<center><img src="picBody/tatb2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo "corset" on his back':
		 cla
		 *clr
		 '<center><img src="picBody/tatb3.jpg" ></center>'
	     act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo "characters" on his back':
		 cla
		 *clr
		 '<center><img src="picBody/tatb4.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatback = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, open back, and you stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatupb = 0:
	 act 'View tattoo on the lower back number1':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb1.jpg" ></center>'
		 'Tattoo on the lower back are traditionally called trump stamp, shlyuhino stigma, tattoo girls are not burdened with the weight of Conduct.'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch,  and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on the lower back number2':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on the lower back number3':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
	     end
	 act 'View tattoo on the lower back number4':
		 cla
		 *clr
		 '<center><img src="picBody/tatupb4.jpg" ></center>'
		 'Tattoo on the lower back are traditionally called trump stamp, shlyuhino stigma, tattoo girls are not burdened with the weight of Conduct.'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatupb = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on lower back.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatvag = 0:
	 act 'View tattoo in the groin "star"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "lick me"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "Black Owned"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "Lucky_You"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag4.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo in the groin "Angel sin"':
		 cla
		 *clr
		 '<center><img src="picBody/tatvag5.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatvag = 5
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, Lingerie and shoot you in the groin stuffed tattoo.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
if tatleg = 0:
	 act 'View tattoo on her ankle number1':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg1.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 1
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on her ankle number2':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg2.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 2
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on her ankle number3':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg3.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 3
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 act 'View tattoo on her ankle number4':
		 cla
		 *clr
		 '<center><img src="picBody/tatleg4.jpg" ></center>'
		 act 'Go_Out':gt 'salon','start'
		 act 'a tattoo':
			 cla
			 Set tatleg = 4
			 Set horny = horny + 5
			 Set money = money - 8000
			 Set vnesh = vnesh + 5
			 minut+=60
			 gs'stat'
			 'You lie on the couch, and you stuffed tattoo on ankle.'
			 act 'Go_Out':gt 'salon','start'
			 end
		 end
	 end
gs'stat'
}
$uhodkosha={
set minut+=60
set skin = skin + 1
set money = money - 15000
if salonrand=0 and masha=0:gt 'salon','0'
'You Put the mask on your face, after some time beautician remove it.'
gs'stat'
gt'salon','start'
}
$delgub={
set minut+=60
set lip = lip - 1
set money = money - 15000
'You reduce the lips.'
gs'stat'
gt'salon','start'
}
$addgub={
set minut+=60
set lip = lip + 1
set money = money - 25000
'You will augment the lips.'
gs'stat'
gt'salon','start'
}
$addglaza={
set minut+=60
set glaraz = glaraz + 1
set money = money - 30000
'You enlarge the eyes.'
gs'stat'
gt'salon','start'
}
$addtitki={
set minut+=60
set silicone = silicone + 10
set money = money - 150000
'You have inserted silicone in breast size by increasing their 10 cm.'
gs'stat'
gt'salon','start'
}
$delshir={
set minut+=60
set fat=0
set salo=0
set money = money - 150000
'You totally suck the fat out of the body.'
gs'stat'
gt'salon','start'
}
$omoloshenie={
set minut+=60
set vidageday = vidageday + 50
set money = money - 250000
if salonrand=0 and masha=0:gt 'salon','0'
'You had a rejuvenation procedures, they can not turn the clock in the balmy, they can only pause during aging.'
gs'stat'
gt'salon','start'
}
$dshorthair={
set minut+=60
set money = money - 1000
shorthair=1
shorthairday=0
'You have cut her hair very short hair making you a boy.'
gs'stat'
act'Go_Out':gt'salon','start'
}
$permtatbro={
set minut+=60
set money = money - 6000
browper=1
'You have made a permanent tattoo eyebrows.'
gs'stat'
act'Go_Out':gt'salon','start'

}

$sexloc = $CURLOC
if week=1 and hour>=9 and hour<=10 and worksalon=1:gt'salon','beginwork'
if week=3 and hour>=9 and hour<=10 and worksalon=1:gt'salon','beginwork'
if week=5 and hour>=9 and hour<=10 and worksalon=1:gt'salon','beginwork'
cla
*clr
set salonrand=rand(0,9)
set minut+=5
'<center><B><font color=maroon>beauty salon</font></B></center>'
'<center><img src="pic/salon.jpg" ></center>'
'to approach <a href="exec:gt''salon'',''1''">administrator.</a>'
if money >= 1000:'<a href="exec: dynamic $zavivka ">curl the hair - 1sput</a>'
if money<1000:'curl the hair - 1sput'
if money >= 1000:'<a href="exec: dynamic $pokraska ">dye your hair - 1sput</a>'
if money<1000:'hair coloring 1 sput'
if money >= 1000:'<a href="exec: dynamic $solyariy ">solarium - 1sput</a>'
if money<1000:'solarium - 1 sput'
if money >= 1000:'<a href="exec: dynamic $dshorthair ">short hairstyle - 1sput</a>'
if money<1000:'short hairstyle - 1 sput'
if money >= 5000:'<a href="exec: dynamic $resnici ">lengthening eyelashes - 5 sput</a>'
if money<5000:'lengthening eyelashes - 5 sput'
if money >= 5000:'<a href="exec: dynamic $epilyaciya ">complete Hair Removal - 5 sput</a>'
if money<5000:'complete Hair Removal - 5 sput'
if money >= 5000:'<a href="exec: dynamic $ozdormas ">Wellness Massage (accelerates fat, rejuvenates the body), 5000 RUB</a>'
if money<5000:'Wellness Massage (accelerates fat, rejuvenates the body), 5000 RUB'
if money >= 8000:'<a href="exec: dynamic $tatyadd ">Tatuiroka or piercing - 8 thousand rubles</a>'
if money<8000:'Tatuiroka or piercing - 8 thousand rubles'
if money >= 15000:'<a href="exec: dynamic $uhodkosha ">Skin care - 15 sput</a>'
if money<15000:'Skin care - 15 sput'
if money >= 15000 and lip > 0:'<a href="exec: dynamic $delgub ">Reducing the lips - 15 sput</a>'
if money<15000 or lip < 1:'Reducing the lips - 15 sput'
if money >= 25000 and lip < 4:'<a href="exec: dynamic $addgub ">lip augmentation - 25 sput</a>'
if money<25000 or lip >= 4:'lip augmentation - 25 sput'
if money >= 30000:'<a href="exec: dynamic $addglaza ">The increase in eye - 30 sput</a>'
if money<30000:'The increase in eye - 30 sput'
if money >= 150000:'<a href="exec: dynamic $addtitki ">breast Augmentation - 150 sput</a>'
if money<150000:'breast Augmentation - 150 sput'
if money >= 150000:'<a href="exec: dynamic $delshir ">sucking fat - 150 sput</a>'
if money<150000:'sucking fat - 150 sput'
if money >= 250000:'<a href="exec: dynamic $omoloshenie ">rejuvenation procedures - 250 sput</a>'
if money<250000:'rejuvenation procedures - 250 sput'
if money >= 6000 and browper=0:'<a href="exec: dynamic $permtatbro ">Permanent tattoo eyebrows - 6 sput</a>'
if money<6000 and browper=1:'Permanent tattoo eyebrows - 6 sput'
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
	 'Beauty salon is closed and you are asked to retire.'
	 act 'GO_OUT':set minut = minut + 5&gt'torgcentr'
	 exit
	 end
act 'GO_OUT':set minut+=5&gt'torgcentr'
end

if $ARGS[0] = '0':
cla
*clr
set cumfrot+=1
'<center><img src="img/centr/pri1.jpg" ></center>'
'During the procedure, now followed very similar to sperm. You start to vomuschatsya suits you and the administrator is trying to reassure you, obyaschaya that she will be punished, and you compensate for the cost of chemical cleaning in Ramer 5000RUB.'
act 'agree':set money+=5000&gt'salon','start'
if DOM>10:
	 act 'Require punish now':
		 cla
		 set orgasm+=1
		 set DOM+=1
		 'The administrator looks at you without understanding what you want
		 "It is not clear that I want-would this bitch now punished" began to resent you.
		 "How do you want it-it would be punished?" asked the administrator
		 "Fuck her here with me" you cried.
		 "Excuse_Me, but I can not do that" babbled guy'
		 act '"All you can"':
			 cla
			 *clr
			 '<center><img src="img/centr/pri2.jpg" ></center>'
			 '"All you can" Say you and rastegnuv guy pants got his dick, on highly excited dildo was clear that the guy really like your idea of вЂ‹вЂ‹a punishment.'
			 act '"suck bitch"':
				 cla
				 *clr
				 '<center><img src="img/centr/pri3.jpg" ></center>'
				 'C these words.
				 "active, deeper" Customized you girl'
				 act'"Put her cancer"':
					 cla
					 *clr
					 '<center><img src="img/centr/pri4.jpg" ></center>'
					 'The guy obediently put her cancer, and put my dildo in her vagina, girl quietly vzvignula, and the guy went into the role fucked her yarosno shoving dick as deep as possible in her. You took the girl`s hand and put on his pubis, She obediently began to massage your clitoris'
					 act '"Put her on top"':
						 cla
						 *clr
						 '<center><img src="img/centr/pri5.jpg" ></center>'
						 'The guy sat down on the chair, she quickly hopped on top and started jumping, you took her buttocks and at every jump it with a force lowered it to the member, she cried, and you continue to stick it on his dildo.'
						 act'"Lie down on the floor"':
							 cla
							 *clr
							 '<center><img src="img/centr/pri6.jpg" ></center>'
							 'The girl lay on the floor, and Perrin was attached to the side, You sat on the girl`s face she did not give you the chance to command and once your pussy was in the zone dosigaemosti her tongue began to lick you trying not to miss any millimeter of your pussy, both outside and inside, How long does it tongue. Soon pleasant wave hit you and you are finished sitting on her face'
							 act'"Finish"':
								 cla
								 *clr
								 '<center><img src="img/centr/pri7.jpg" ></center>'
								 'The guy stood up, Woman on her knees raised and drained, filling her mouth, face and chest with hot cum
								 "That`s how it is necessary to punish bitches" With these words "So you have Masha, I can call you, you have a good tongue" With these words.'
								 set telmasha=1
								 set masha+=1
								 act 'Get_Away':gt'salon','start'
								 end
							 end
						 end
					 end
				 end
			 end
		 end
	 end
end

if $ARGS[0] = '1':
set minut+=5
cla
if worksalon=0:
	 'You ask whether you will take on the job.'
	 if masash<10:
		 'You do not be able to, come when you learn'
		 act 'move_away':gt'salon','start'
		 end
	 if masash>=10:
		 '"Well . Work will be Monday, Wednesday, Friday 9 prior_to 10 hours, and come out to replace, going to work 19 hours. do not come, This day you will not be counted in the salary. salary lists 25-th of, for each worked shift - 800 rubles."'
		 '"Labor necessary to hand over to the personnel department. You understand, will work?"'
		 if work=0:
			 act 'move_away':gt'salon','start'
			 act 'To get a job':
				 cla
				 set worksalon = 1
				 set work=1
				 'You carried working in the personnel department."'
				 act 'move_away':gt'salon','start'
				 end
			 end
		 act 'move_away':gt'salon','start'
		 end
	 end
if worksalon=1:
	 act'resign':gt'salon','discharge'
	 act 'move_away':gt'salon','start'
	 end
end

if $ARGS[0] = 'beginwork':
cla
*clr
'<center><B><font color=maroon>beauty salon</font></B></center>'
'<center><img src="pic/salon.jpg" ></center>'
'You have replaced a beauty salon.'
act'begin work':
	 set smena+=1
	 gt'worksalon','start'
	 end
act'resign':gt'salon','discharge'
end

if $ARGS[0] = 'discharge':
cla
set minut+=10
set worksalon=0
set work=0
set pay = smena * 800
set money = money + pay
set smena = 0
'The administrator looked at you: "Here`s your payment <<pay>> rubles and employment history. bye now."'
act 'Get_Away':gt'salon','start'
end
--- salon ---------------------------------

