123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118 |
- # stwork
- if $ARGS[0] = 'start':
- $sexloc = $CURLOC
- $location_type = 'private'
- clr
- minut += 5
- stripMir = 1
- gs 'stat'
- if night_mode = 1:
- fcolor = rgb(255, 255, 255)
- bcolor = rgb(0, 0, 0)
- lcolor = rgb(106, 90, 205)
- else
- fcolor = rgb(0, 0, 0)
- bcolor = rgb(255, 255, 255)
- lcolor = rgb(106, 90, 205)
- end
- '<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
- '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/striprazd.jpg"></center>'
- 'The walls are lined with <a href="exec:gt ''mirror'', ''start''">mirrors</a>. There are steps leading to the <a href="exec:gt ''stwork'', ''stripgirl''">stage</a> where you and the girls perform.'
- 'To the side is a <a href="exec:stripMir = 0 & gt ''stripclub'', ''start''">steel door</a> which overlooks the back yard and all the staff use as an entrance, to save them going through the front door. By this entrance is always a <a href="exec:gt ''stwork'', ''guard''">guard</a>.'
- 'Behind a wooden door is the <a href="exec:gt ''stwork'', ''toilet''">staff toilets</a>.'
- if tatlech > 0:stripKoef = rand(1, 3)
- if tatback > 0:stripKoef2 = rand(1, 3)
- if tatblly > 0:stripKoef3 = rand(1, 3)
- if tatupb > 0:stripKoef4 = rand(3, 6)
- if tatleg > 0:stripKoef5 = rand(1, 3)
- if tatarm > 0:stripKoef6 = rand(1, 3)
- if tatside > 0:stripKoef7 = rand(1, 3)
- publichot = pcs_dancero/2 + pcs_apprnc/4 + city_stripping/4 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5 + stripKoef6 + stripKoef7
- publichotstart = publichot
- if hour >= 15 or hour <= 2:
- if cumloc[1] = 0 and cumloc[2] = 0 and cumloc[4] = 0 and cumloc[5] = 0 and cumloc[6] = 0 and cumloc[7] = 0 and cumloc[11] = 0 and cumloc[14] = 0:
- if pcs_makeup >= 4:
- if pcs_hairbsh = 1:
- if pcs_sweat < 20:
- if pcs_leghair <= 3 and pcs_pubes <= 3:
- if fingal <= 0:
- act 'Go on stage':stpredmet = 3 & gt 'stwork2'
- else
- 'With such a black eye as you have, you aren''t allowed on stage.'
- end
- else
- 'There is nothing more terrible than a stripper with hairy legs or pubis, have a shave before you can work.'
- end
- else
- 'Damn, you stink like a horse, have a wash first.'
- end
- else
- 'The least you can do is brush your hair.'
- end
- else
- 'You need to very thick makeup if you want people to see it in this light.'
- end
- else
- 'There is visible semen on your body. Wash yourself off before going on stage.'
- end
- else
- 'That''s it for today. Time to go home.'
- end
- end
- if $ARGS[0] = 'stripgirl':
- cls
- gs 'stat'
- striptalkrand = rand(0, 10)
- if striptalkrand = 0:$striptalk = 'Have you heard? There''s this new girl, all beautiful and everything, but on stage she is a complete zero, can not do anything, all she earned was boos.'
- if striptalkrand = 1:$striptalk = 'I''m telling you, men give birth to girls with tattoos.'
- if striptalkrand = 2:$striptalk = 'Working the pole is much more profitable than just dance striptease, easier to excite the customer, but it''s hard work.'
- if striptalkrand = 3:$striptalk = 'Phew, you really have to leave it all out on the stage, getting back all sweaty, disheveled hair and makeup ruined. The cost in cosmetics is enough to bankrupt you.'
- if striptalkrand = 4:$striptalk = 'You know what, those private dances might be guaranteed money, but the real cash is in the extras.'
- if striptalkrand = 5:$striptalk = 'Remember that ugly girl? Got on stage and immediately the crowd boo, but as soon as she started spinning around the pole, the customers jaws dropped, and she made a fortune in tips.'
- if striptalkrand = 6:$striptalk = 'Why doesn''t the manager ever says if it''s a male or female day? I recently rushed to work, even broke a nail, then I get here and it''s these bears up on stage. Had to turn around and go back.'
- if striptalkrand = 7:$striptalk = 'That cute security guard was telling me about the problems with this job. Half of the strippers end up whores.'
- if striptalkrand = 8:$striptalk = 'There was a fat woman trying to dance on the pole, she fell face first on the floor. I thought she had knocked herself out, you should have seen the bruise.'
- if striptalkrand = 9:$striptalk = 'Recently one joker raised a laugh in the hall. Pretty little thing and dances well, but that''s not how you earn tips here.'
- if striptalkrand = 10:$striptalk = 'I heard about these clubs abroad where the tips are so good, that the strippers pay for the right to work there.'
- 'The girls are doing their makeup and hair in the mirror, laughing and gossiping.'
- '<<$striptalk>>'
- act 'Move away':gt 'stwork', 'start'
- end
- if $ARGS[0] = 'guard':
- cls
- gs 'stat'
- 'A bored looking, slab of a guard stands by the door. Seeing you he lazily nods, "Hello <<$pcs_nickname>>."'
- act 'Move away':gt 'stwork', 'start'
- end
- if $ARGS[0] = 'toilet':
- $location_type = 'bathroom'
- $loc = 'stwork'
- $metka = 'toilet'
- $locM = 'stwork'
- $metkaM = 'toilet'
- gs 'stat'
- '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
- 'Dirty and smelly toilet that seems to have never been cleaned'
- dynamic $basin
- act 'Look in the mirror': gt 'mirror', 'start'
- if pcs_hairbsh = 0: act 'Brush your hair': gt 'mirror', 'brush'
- dynamic $shower
- dynamic $quickwash
- act 'Leave the toilet':gt 'stwork', 'start'
- end
- --- stwork ---------------------------------
|