# stwork
if $ARGS[0] = 'start':
$sexloc = $CURLOC
$metkaM = $ARGS[0]
$locM = $CURLOC
set minut += 5
stripMir = 1
'
Dressing for strippers'
''
'On the wall of the set mirrors to whom girls lead myself up before performances.'
'Do not noticeable, steel door in the hallway overlooks the back yard and all the staff goes through the door to work, and not through the front door. About this entry is always worth guard.'
'Behind wooden door located toilet for staff'
clr
gs 'stat'
fcolor = rgb(0, 0, 0)
bcolor = rgb(255, 255, 255)
lcolor = rgb(106, 90, 205)
if tatplech > 0:stripKoef = rand(1, 3)
if tatback > 0:stripKoef2 = rand(1, 3)
if tatback > 0:stripKoef3 = rand(1, 3)
if tatupb > 0:stripKoef4 = rand(3, 6)
if tatleg > 0:stripKoef5 = rand(1, 3)
publichot = vnesh - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
publichotstart = publichot
if hour >= 15 or hour <= 2:
if mop >= 4:
if hapri = 1:
if sweat <= 0:
if leghair <= 0 and lobok <= 0:
if fingal <= 0:
act 'Go on stage':stpredmet = 3 & gt 'stwork2'
else
'With such a black eye as you have nothing to do on stage.'
end
else
'There is nothing more terrible than a stripper with hairy legs or pubis, in this form can not work.'
end
else
'Lord, from you the same stinks like a horse, one must first wash.'
end
else
'Not with this disheveled hair pokazyvatsya in public.'
end
else
'Need to work very defiant makeup.'
end
else
'Working time is over. Time to go home.'
end
$stripgirl = {
cls
gs 'stat'
striptalkrand = rand(0, 10)
if striptalkrand = 0:$striptalk = 'Have you heard? Then came one somehow the girl, all so beautiful, but the stage was full of zero can not do anything, so it only booed.'
if striptalkrand = 1:$striptalk = 'I´m telling you, men give birth to girls with tattoos.'
if striptalkrand = 2:$striptalk = 'On a pole over much more profitable than just dance striptease, easier to excite the customer, but this pole is difficult.'
if striptalkrand = 3:$striptalk = 'Phew, it does not go out on stage, going back all sweaty, disheveled hair and makeup certainly splyvet. Here one can go bankrupt cosmetics.'
if striptalkrand = 4:$striptalk = 'Generally these private dances, though guaranteed money but it is not on the scene can make more money.'
if striptalkrand = 5:$striptalk = 'Then the girl was ugly one, came on the scene, immediately let her boo, but she started spinning around a pole, customers jaw dropped, it is not bad earned.'
if striptalkrand = 6:$striptalk = 'And why the manager never says male or female day? I recently rushed to work, even nail broke, I take refuge, and here these bears jump on stage. Turned around and went back.'
if striptalkrand = 7:$striptalk = 'Some dechonki told that they had problems arise on the job. For many stritizersha power whore.'
if striptalkrand = 8:$striptalk = 'Here one fat woman trying to dance on the pole, so muzzle flopped on the floor and put a strong bruise.'
if striptalkrand = 9:$striptalk = 'Recently one zhirnuhu raised a laugh in the hall. Like and simpotnaya and dances well, but to no avail.'
if striptalkrand = 10:$striptalk = 'I heard a decent clubs abroad strippers themselves pay for the right to work in the club.'
'Girls are engaged with their appearance in the mirror fun chatting about all sorts of trivia.'
'<<$striptalk>>'
act 'Move away':gt $curloc, 'start'
}
$stripohr = {
cls
gs 'stat'
'Hefty bored guard at the door. Seeing you it lazily throws "Hello <<$name>>."'
act 'Move away':gt $curloc, 'start'
}
$striptoilet2 = {
cls
gs 'stat'
'You rinsed the razor blade which will be enough for <> time.'
if leghair > 0 and stanok > 0:
act 'Shave your legs (0:15)':
cla
*clr
set minut += 15
set leghair = -5
set horny += 5
set stanok -= 1
''
'You lathered up and shaved hair with them.'
act 'Postpone machine':dynamic $striptoilet2
end
end
if lobok > 0 and stanok > 0:
act 'Shave pubis (0:15)':
cla
*clr
set minut += 15
set lobok = -5
set horny += 5
set stanok -= 1
''
'You lathered pubis, then shaved all the hair from it.'
act 'Postpone machine':dynamic $striptoilet2
end
end
act 'Out of the shower and get dressed':dynamic $striptoilet
}
$striptoilet = {
cls
''
'Dirty and smelly toilet that seems to have never been cleaned'
gs 'stat'
if tanga = 1:
act 'Remove Underwear':
cla
set tanga = 0
dynamic $striptoilet
end
end
act 'Look in the mirror':
cla
gs 'portmirror'
set $gt1 = 'stwork'
set $gt2 = ''
dynamic $portmirror
act 'Move away from the mirror':
cla
dynamic $striptoilet
end
end
if mop ! 1:
act 'Wash off makeup':
cla
*clr
minut += 5
mop = 1
''
'You flushed makeup.'
act 'Exit':dynamic $striptoilet
end
end
act 'Take a shower (0:15)':
cla
*clr
set minut += 15
set sweat = -3
set horny += 1
set hapri = 0
set mop = 1
set cumpussy = 0
set cumbelly = 0
set cumass = 0
set cumanus = 0
set cumlip = 0
set cumface = 0
set cumanus =0
''
'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
act 'Get razor':dynamic $striptoilet2
end
if horny >= 90:
act 'Send shower pussy':
cla
*clr
set horny = 0
set minut += 30
set mastr += 1
set orgasm += 1
set manna += 15
set willpower += 15
''
'You sent a shower pussy and tight jet of warm water began to caress you. Soon you will feel like a warm wave covers your entire body and you began to shudder in orgasm.'
act 'Get out and get dressed':dynamic $striptoilet
end
end
if horny >= 40 and hormy < 90:
act 'Send shower pussy':
cla
*clr
set horny += 5
set minut += 30
set manna += 10
set willpower += 10
''
'You sent a shower pussy and tight jet of warm water began to caress you. First you were very nice, but after a while, even as it was painful. Excitation of sleep and you stop masturbating.'
act 'Get out and get dressed':dynamic $striptoilet
end
end
act 'Out of the shower and get dressed':dynamic $striptoilet
end
!!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
!!Removed sweat =- 1 when cum is wiped off clothes
!!clrbelo: Amount of clean panties available
if (cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0) and clrbelo > 0:
act 'Quick wash (0:15)':
cla
*clr
dynamic $showerdin
set sweat -= 1
set minut += 15
set clrbelo -= 1
set dirtbelo += 1
''
'You gave yourself a catlick, thus removing any traces of cum.'
act 'Finish':dynamic $striptoilet
end
end
if cumlip > 0 or cumface > 0:
act 'Wash cum off face (0:15)':
cla
*clr
set mop = 1
set cumlip = 0
set cumface = 0
set sweat -= 1
set minut += 15
''
'You clean your face and got rid of any trace of cum.'
act 'Finish':dynamic $striptoilet
end
end
if cumfrot > 0:
act 'Wipe the cum off your clothes (0:10)':
cla
*clr
set cumfrot = 0
set minut += 10
!!''
'You remove traces of cum from the clothes.'
act 'Finish':dynamic $striptoilet
end
end
!!
act 'Off the toilet':gt $curloc, 'start'
}
end
--- stwork ---------------------------------