# 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 -= 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 += 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 += 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 += 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 += 1
set 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 -= 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
'
'
'During the massage guy is interested and his fingers start to slip masljannye it in your pussy then in the ass.'
set picrand = rand(25, 28)
act 'Indignant':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 on the lip tattoo number 1':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatlip = 1
set horny += 5
set money -= 8000
minut += 60
set vaf += 10
gs 'stat'
'You lie on the couch, and you open your mouth stuffed with a tattoo on his lip.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View on the lip tattoo number 2':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatlip = 2
set horny += 5
set money -= 8000
minut += 60
set vaf += 10
gs 'stat'
'You lie on the couch, and you open your mouth stuffed with a tattoo on his lip.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View on the lip tattoo number 3':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatlip = 3
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
set vaf += 10
'You lie on the couch, and you open your mouth stuffed with a tattoo on his lip.'
act 'Exit':gt 'salon', 'start'
end
end
end
if tatplech = 0:
act 'View tattoo on his shoulder, "flowers"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatplech = 1
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open the shoulders and you stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo on his shoulder, "butterfly"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatplech = 2
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open the shoulders and you stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo on his shoulder, "flowers number 2"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatplech = 3
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open shoulders, and you stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo on his shoulder, "Queen of Spades"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatplech = 4
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open shoulders, and you stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
end
if tatback = 0:
act 'View tattoo "wings" on the back number 1':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatback = 1
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open back, and you are stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo "wings" on the back number 2':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatback = 2
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open back, and you are stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo "corset" on the back':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatback = 3
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open back, and you are stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattooed "characters" on the back':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatback = 4
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, open back, and you are stuffed tattoo.'
act 'Exit':gt 'salon', 'start'
end
end
end
if tatupb = 0:
act 'View tattoo on the lower back number 1':
cla
*clr
''
'Tattoo on the lower back is traditionally called trump stamp, shlyuhino stigma tattoo girls are not burdened weight behavior.'
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatupb = 1
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on the lower back.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo on the lower back number 2':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatupb = 2
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on the lower back.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo on the lower back number 3':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatupb = 3
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on the lower back.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo on the lower back number 4':
cla
*clr
''
'Tattoo on the lower back is traditionally called trump stamp, shlyuhino stigma tattoo girls are not burdened weight behavior.'
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatupb = 4
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on the lower back.'
act 'Exit':gt 'salon', 'start'
end
end
end
if tatvag = 0:
act 'View tattoo in the groin "Stars"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatvag = 1
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo in the groin "Lick me"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatvag = 2
set horny += 5
set money -= 8000
minut += 60
gs 'stat'
'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo in the groin "Black Owned"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatvag = 3
set horny += 5
set money -= 8000
set vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo in the groin "Lucky"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatvag = 4
set horny += 5
set money -= 8000
set vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View tattoo in the groin "Angel of sin"':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatvag = 5
set horny += 5
set money -= 8000
set vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you´re shooting underwear stuffed tattoo in the groin.'
act 'Exit':gt 'salon', 'start'
end
end
end
if tatleg = 0:
act 'View a tattoo on her ankle number 1':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatleg = 1
set horny += 5
set money -= 8000
set vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on her ankle.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View a tattoo on her ankle number 2':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatleg = 2
set horny += 5
set money -= 8000
set vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on her ankle.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View a tattoo on her ankle number 3':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatleg = 3
set horny += 5
set money -= 8000
vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on her ankle.'
act 'Exit':gt 'salon', 'start'
end
end
act 'View a tattoo on her ankle number 4':
cla
*clr
''
act 'Exit':gt 'salon', 'start'
act 'A tattoo':
cla
set tatleg = 4
set horny += 5
set money -= 8000
set vnesh += 5
minut += 60
gs 'stat'
'You lie on the couch, and you packed a tattoo on her ankle.'
act 'Exit':gt 'salon', 'start'
end
end
end
gs 'stat'
}
$uhodkosha = {
set minut += 60
set skin += 1
set money -= 15000
if salonrand = 0 and masha = 0:gt 'salon', '0'
'You mask the face, after a while removed her beautician.'
gs 'stat'
gt 'salon', 'start'
}
$delgub = {
set minut += 60
set lip -= 1
set money -= 15000
'You have reduced the lips.'
gs 'stat'
gt 'salon', 'start'
}
$addgub = {
set minut += 60
set lip += 1
set money -= 25000
'You increased the lips.'
gs 'stat'
gt 'salon', 'start'
}
$addglaza = {
set minut += 60
set glaraz += 1
set money -= 30000
'You have increased eye.'
gs 'stat'
gt 'salon', 'start'
}
$addtitki = {
set minut += 60
set silicone += 10
set money -= 150000
'You have inserted silicone breast increasing their size by 10 cm'
gs 'stat'
gt 'salon', 'start'
}
$delshir = {
set minut += 60
set fat = 0
set salo = 0
set money -= 150000
'You totally suck the fat out of the body.'
gs 'stat'
gt 'salon', 'start'
}
$omoloshenie = {
set minut += 60
set vidageday += 50
set money -= 250000
if salonrand = 0 and masha = 0:gt 'salon', '0'
'You spent rejuvenation procedures, they can not turn the clock to sleep, they can only stop the aging at the time.'
gs 'stat'
gt 'salon', 'start'
}
$dshorthair={
set minut += 60
set 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 -= 6000
browper = 1
'You have made a permanent tattoo eyebrows.'
gs 'stat'
act 'Exit':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
'Beauty'
''
'Approach to the administrator.'
if money >= 1000:'Solarium - 1,000 rubles'
if money < 1000:'Solarium - 1,000 rubles'
if money >= 5000:'Elongation eyelashes - sput 5'
if money < 5000:'Lengthening eyelashes - 5,000 rubles'
if money >= 5000:'Complete removal - sput 5'
if money < 5000:'Complete Hair Removal - 5,000 rubles'
if money >= 5000:'Wellness massage (accelerates fat, rejuvenates the body), 5,000 rubles'
if money < 5000:'Wellness massage (accelerates fat, rejuvenates the body), 5,000 rubles'
if money >= 8000:'Tatuiroka or piercing - 8,000 rubles'
if money < 8000:'Tatuiroka or piercing - 8,000 rubles'
if money >= 15000:'Skin Care - 15,000 rubles'
if money < 15000:'Skin Care - 15,000 rubles'
if money >= 15000 and lip > 0:'Reduction of the lips - 15,000 rubles'
if money < 15000 or lip < 1:'Lip Reduction - 15,000 rubles'
if money >= 25000 and lip < 4:'Lip Augmentation - 25,000 rubles'
if money < 25000 or lip >= 4:'Lip augmentation - 25,000 rubles'
if money >= 30000:'Increase the eye - 30,000 rubles'
if money < 30000:'Increased eye - 30, 000 rubles'
if money >= 150000:'Breast Augmentation - 150,000 rubles'
if money < 150000:'Breast Augmentation - 150,000 rubles'
if money >= 150000:'Suction fat - 150,000 rubles'
if money < 150000:'Suction of fat - 150, 000 rubles'
if money >= 250000:'Procedures for rejuvenation - 250,000 rubles'
if money < 250000:'Rejuvenation - 250, 000 rubles'
if money >= 6000 and browper=0:'Permanent tattoo eyebrows - 6,000 rubles'
if money < 6000 and browper = 1:'Permanent tattoo eyebrows - 6,000 rubles'
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 is closed and you are asked to retire.'
act 'Leave':set minut += 5 & gt 'torgcentr'
exit
end
act 'Leave':set minut += 5 & gt 'torgcentr'
end
if $ARGS[0] = '0':
cla
*clr
set cumfrot += 1
''
'During the procedure, the girl manages to stain your clothes which is a liquid, it is now on the traces are very similar to sperm. You start to vomuschatsya suits you and the administrator tries to reassure you, that obyaschaya girl will be punished and you offset 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
'Administrator looks at you not knowing what you want'
'"What is not clear, I want something to punish this bitch now" started to resent you.'
'"Do you want something to punish her?" asked the receptionist'
'"Fuck it here with me, " cried you.'
'"Sorry, but I can not do that, " stammered guy'
act '"All you can"':
cla
*clr
''
'"All you can" you said and rastegnuv pants guy got his dick dildo strongly excited by it was clear that the guy really like your idea of punishment.'
act '"Suck it bitch"':
cla
*clr
''
'With these words, you pulled the girl´s head to the penis and she obediently around his lips.'
'"Moving, deeper" you customized Woman'
act '"Put her cancer"':
cla
*clr
''
'Man obediently put her cancer, and put his dildo in her vagina, the girl quietly vzvignula, and the guy went into the role fucked her yarosno shoving member as deeply as possible into it. You took her hand and put on her pubis, she obediently began to massage your clitoris'
act '"Plant it on top"':
cla
*clr
''
'Man sat on a chair, she quickly hopped on top and started jumping, you took her buttocks and each time it jump with power lowered it to a member of the girl cried, and you continued to stick it on his dildo.'
act '"Lie down on the floor"':
cla
*clr
''
'The girl lay on the floor, and fell in with Perrin side, you´re sat on the girl´s face she did not give you a chance to give the order and once your pussy was in the zone dosigaemosti her tongue began to lick you trying not to miss a millimeter your pussy, both outside and inside , how many missed her tongue. Soon pleasant wave covered you and you left off sitting on her face'
act '"Finish"':
cla
*clr
''
'The guy stood up, lifted her to her knees and discharged, filling her mouth, face and chest with hot sperm'
'"That´s necessary to punish bitches" with these words, you take a card girl "So you have Masha, I can call you, you have a good tongue" with these words you left on the floor leaving the girl all in the semen.'
set telmasha = 1
set masha += 1
act 'Leave':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 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, we need a masseuse.''ll Work Monday, Wednesday and Friday from 9 to 10 hours, and come out to replace, will work up to 19 hours. Not come, you will not be counted this day in wages. Salary listed 25 th, for each an elaborate shift - 800 rubles. "'
'"Labor should hand over to the personnel department. You understand, will work?"'
if work = 0:
act 'Move away':gt 'salon', 'start'
act 'Find a job':
cla
set worksalon = 1
set work = 1
'You classify 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
'Beauty'
''
'You have replaced a beauty salon.'
act 'Start 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 += pay
set smena = 0
'The administrator looked at you:"Here is your payment <> rubles and employment history. Goodbye."'
act 'Leave':gt 'salon', 'start'
end
--- salon ---------------------------------