stwork 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123
  1. # stwork
  2. if $ARGS[0] = 'start':
  3. $sexloc = $CURLOC
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $location_type = 'private'
  7. clr
  8. minut += 5
  9. stripMir = 1
  10. gs 'stat'
  11. if night_mode = 1:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(0, 0, 0)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. '<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
  21. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/stripclub/striprazd.jpg"></center>'
  22. '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.'
  23. '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>.'
  24. 'Behind a wooden door is the <a href="exec:gt ''stwork'', ''toilet''">staff toilets</a>.'
  25. if tatlech > 0:stripKoef = rand(1, 3)
  26. if tatback > 0:stripKoef2 = rand(1, 3)
  27. if tatback > 0:stripKoef3 = rand(1, 3)
  28. if tatupb > 0:stripKoef4 = rand(3, 6)
  29. if tatleg > 0:stripKoef5 = rand(1, 3)
  30. publichot = pcs_apprnc/4 - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
  31. publichotstart = publichot
  32. if hour >= 15 or hour <= 2:
  33. 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:
  34. if pcs_makeup >= 4:
  35. if pcs_hairbsh = 1:
  36. if pcs_sweat < 20:
  37. if pcs_leghair <= 3 and pcs_pubes <= 3:
  38. if fingal <= 0:
  39. act 'Go on stage':stpredmet = 3 & gt 'stwork2'
  40. else
  41. 'With such a black eye as you have, you aren''t allowed on stage.'
  42. end
  43. else
  44. 'There is nothing more terrible than a stripper with hairy legs or pubis, have a shave before you can work.'
  45. end
  46. else
  47. 'Damn, you stink like a horse, have a wash first.'
  48. end
  49. else
  50. 'The least you can do is brush your hair.'
  51. end
  52. else
  53. 'You need to very thick makeup if you want people to see it in this light.'
  54. end
  55. else
  56. 'There is visible semen on your body. Wash yourself off before going on stage.'
  57. end
  58. else
  59. 'That''s it for today. Time to go home.'
  60. end
  61. end
  62. if $ARGS[0] = 'stripgirl':
  63. cls
  64. gs 'stat'
  65. striptalkrand = rand(0, 10)
  66. 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.'
  67. if striptalkrand = 1:$striptalk = 'I''m telling you, men give birth to girls with tattoos.'
  68. 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.'
  69. 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.'
  70. if striptalkrand = 4:$striptalk = 'You know what, those private dances might be guaranteed money, but the real cash is in the extras.'
  71. 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.'
  72. 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.'
  73. if striptalkrand = 7:$striptalk = 'That cute security guard was telling me about the problems with this job. Half of the strippers end up whores.'
  74. 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.'
  75. 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.'
  76. 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.'
  77. 'The girls are doing their makeup and hair in the mirror, laughing and gossiping.'
  78. '<<$striptalk>>'
  79. act 'Move away':gt 'stwork', 'start'
  80. end
  81. if $ARGS[0] = 'guard':
  82. cls
  83. gs 'stat'
  84. 'A bored looking, slab of a guard stands by the door. Seeing you he lazily nods, "Hello <<$pcs_nickname>>."'
  85. act 'Move away':gt 'stwork', 'start'
  86. end
  87. if $ARGS[0] = 'toilet':
  88. $location_type = 'bathroom'
  89. cls
  90. $gt1 = 'stwork'
  91. $gt2 = 'toilet'
  92. gs 'stat'
  93. '<center><img <<$set_imgh>> src="images/locations/shared/bathroom/toilet.jpg"></center>'
  94. 'Dirty and smelly toilet that seems to have never been cleaned'
  95. dynamic $basin
  96. act 'Look in the mirror':
  97. cla
  98. gt 'portmirror', 'start'
  99. end
  100. if pcs_hairbsh = 0:
  101. act 'Brush your hair': gt 'portmirror', 'brush'
  102. end
  103. dynamic $shower
  104. dynamic $quickwash
  105. act 'Leave the toilet':gt 'stwork', 'start'
  106. end
  107. --- stwork ---------------------------------