1
0

stwork 8.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287
  1. # stwork
  2. if $ARGS[0] = 'start':
  3. $stripgirl = {
  4. cls
  5. gs 'stat'
  6. striptalkrand = rand(0, 10)
  7. 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.'
  8. if striptalkrand = 1:$striptalk = 'I''m telling you, men give birth to girls with tattoos.'
  9. 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.'
  10. 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.'
  11. if striptalkrand = 4:$striptalk = 'You know what, those private dances might be guaranteed money, but the real cash is in the extras.'
  12. 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.'
  13. 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.'
  14. if striptalkrand = 7:$striptalk = 'That cute security guard was telling me about the problems with this job. Half of the strippers end up whores.'
  15. 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.'
  16. 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.'
  17. 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.'
  18. 'The girls are doing their makeup and hair in the mirror, laughing and gossiping.'
  19. '<<$striptalk>>'
  20. act 'Move away':gt $curloc, 'start'
  21. }
  22. $stripohr = {
  23. cls
  24. gs 'stat'
  25. 'A bored looking, slab of a guard stands by the door. Seeing you he lazily nods, "Hello <<$name>>."'
  26. act 'Move away':gt $curloc, 'start'
  27. }
  28. $striptoilet2 = {
  29. cls
  30. gs 'stat'
  31. 'You rinsed the razor blade which looks good enough for <<stanok>> more uses.'
  32. if leghair > 0 and stanok > 0:
  33. act 'Shave your legs (0:15)':
  34. cla
  35. *clr
  36. minut += 15
  37. leghair = -5
  38. horny += 5
  39. stanok -= 1
  40. '<center><img src="images/pics/shave.jpg"></center>'
  41. 'You lather up and shave the hair from your legs.'
  42. act 'Rinse':dynamic $striptoilet2
  43. end
  44. end
  45. if lobok > 0 and stanok > 0:
  46. act 'Shave pubis (0:15)':
  47. cla
  48. *clr
  49. minut += 15
  50. lobok = -5
  51. horny += 5
  52. stanok -= 1
  53. '<center><img src="images/pics/shave3.jpg"></center>'
  54. 'You lather your pubis, then shave all the hair from it.'
  55. act 'Rinse':dynamic $striptoilet2
  56. end
  57. end
  58. act 'Exit shower and get dressed':dynamic $striptoilet
  59. }
  60. $striptoilet = {
  61. cls
  62. gs 'stat'
  63. '<center><img src="images/LakeCafe/Toilet.jpg"></center>'
  64. 'Dirty and smelly toilet that seems to have never been cleaned'
  65. if tanga = 1:
  66. act 'Remove Underwear':
  67. cla
  68. tanga = 0
  69. dynamic $striptoilet
  70. end
  71. end
  72. act 'Look in the mirror':
  73. cla
  74. gs 'portmirror'
  75. $gt1 = 'stwork'
  76. $gt2 = ''
  77. dynamic $portmirror
  78. act 'Move away from the mirror':
  79. cla
  80. dynamic $striptoilet
  81. end
  82. end
  83. if mop ! 1:
  84. act 'Wash off makeup':
  85. cla
  86. *clr
  87. minut += 5
  88. mop = 1
  89. '<center><img src="images/etogame/mop.jpg"></center>'
  90. 'You carefully wash off your makeup.'
  91. act 'Leave':dynamic $striptoilet
  92. end
  93. end
  94. act 'Take a shower (0:15)':
  95. cla
  96. *clr
  97. minut += 15
  98. sweat = -3
  99. horny += 1
  100. hapri = 0
  101. mop = 1
  102. cumspclnt = 1
  103. gs 'cum_cleanup'
  104. '<center><img src="images/pics/dush.jpg"></center>'
  105. 'You get into the cubicle and turn on the shower. Then lather up your body and wash in the shower.'
  106. if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
  107. act 'Get razor':dynamic $striptoilet2
  108. end
  109. if horny >= 90:
  110. act 'Use shower on your pussy':
  111. cla
  112. *clr
  113. horny = 0
  114. minut += 30
  115. mastr += 1
  116. orgasm += 1
  117. manna += 15
  118. willpower += 15
  119. '<center><img src="images/pics/wash2.jpg"></center>'
  120. 'You point the shower hose at your pussy and a tight jet of warm water begins to caress you. Soon you feel a warm wave cover your entire body and you begin to shudder in orgasm.'
  121. act 'Get out and get dressed':dynamic $striptoilet
  122. end
  123. elseif horny >= 40 and horny < 90:
  124. act 'Use shower on your pussy':
  125. cla
  126. *clr
  127. horny += 5
  128. minut += 30
  129. manna += 10
  130. willpower += 10
  131. '<center><img src="images/pics/wash2.jpg"></center>'
  132. 'You point the shower hose at your pussy and a tight jet of warm water begins to caress you. At first you feel very nice, but after a while, it starts to get a little painful. You stop masturbating.'
  133. act 'Get out and get dressed':dynamic $striptoilet
  134. end
  135. end
  136. act 'Exit shower and get dressed':dynamic $striptoilet
  137. end
  138. !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
  139. !!Removed sweat =- 1 when cum is wiped off clothes
  140. !!clrbelo: Amount of clean panties available
  141. if spdirtyi > 0 or spdirtyn > 0:
  142. act 'Quick wash (0:15)':
  143. cla
  144. *clr
  145. if clrbelo > 0 and tanga = 1:
  146. clrbelo -= 1
  147. dirtbelo += 1
  148. elseif clrbelo = 0 and tanga = 1:
  149. tanga = 0
  150. dirtbelo += 1
  151. end
  152. dynamic $showerdin
  153. sweat -= 1
  154. minut += 15
  155. '<center><img src="images/pics/wash5.jpg"></center>'
  156. 'You gave yourself a catlick, thus removing any traces of cum.'
  157. act 'Finish':dynamic $striptoilet
  158. end
  159. end
  160. temp = arrpos('sparrloc',11)
  161. if sparrloc[temp] = 11 and sparrvol[temp] > 0:
  162. temp = 1
  163. else
  164. temp = arrpos('sparrloc',16)
  165. if sparrloc[temp] = 16 and sparrvol[temp] > 0:
  166. temp = 1
  167. else
  168. temp = 0
  169. end
  170. end
  171. if temp > 0 or spdirtyb > 0 :
  172. act 'Wash cum off face (0:15)':
  173. cla
  174. *clr
  175. mop = 1
  176. cumspclnt = 13
  177. gs 'cum_cleanup'
  178. sweat -= 1
  179. minut += 15
  180. '<center><img src="images/etogame/facesp.jpg"></center>'
  181. 'You clean your face and get rid of any trace of cum.'
  182. act 'Finish':dynamic $striptoilet
  183. end
  184. end
  185. if spdirtyc > 0:
  186. act 'Wipe the cum off your clothes (0:10)':
  187. cla
  188. *clr
  189. cumspclnt = 6
  190. gs 'cum_cleanup'
  191. minut += 10
  192. !!'<center><img src="images/etogame/frotsp.jpg"></center>'
  193. 'You remove traces of cum from your clothes.'
  194. act 'Finish':dynamic $striptoilet
  195. end
  196. end
  197. !!
  198. act 'Leave the toilet':gt $curloc, 'start'
  199. }
  200. $sexloc = $CURLOC
  201. $metkaM = $ARGS[0]
  202. $locM = $CURLOC
  203. clr
  204. minut += 5
  205. stripMir = 1
  206. gs 'stat'
  207. fcolor = rgb(0, 0, 0)
  208. bcolor = rgb(255, 255, 255)
  209. lcolor = rgb(106, 90, 205)
  210. '<center><b><font color="maroon">Dressing room for strippers</font></b></center>'
  211. '<center><img src="images/etogame/striprazd.jpg"></center>'
  212. 'The walls are lined with <a href="exec:gt ''mirror'', ''start''">mirrors</a>. There are steps leading to the <a href="exec:dynamic $stripgirl">stage</a> where you and the girls perform.'
  213. '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:dynamic $stripohr">guard</a>.'
  214. 'Behind a wooden door is the <a href="exec:dynamic $striptoilet">staff toilets</a>.'
  215. if tatplech > 0:stripKoef = rand(1, 3)
  216. if tatback > 0:stripKoef2 = rand(1, 3)
  217. if tatback > 0:stripKoef3 = rand(1, 3)
  218. if tatupb > 0:stripKoef4 = rand(3, 6)
  219. if tatleg > 0:stripKoef5 = rand(1, 3)
  220. publichot = vnesh/4 - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
  221. publichotstart = publichot
  222. if hour >= 15 or hour <= 2:
  223. if dirtyn <= 0 and dirtyv <= 0:
  224. if mop >= 4:
  225. if hapri = 1:
  226. if sweat <= 0:
  227. if leghair <= 0 and lobok <= 0:
  228. if fingal <= 0:
  229. act 'Go on stage':stpredmet = 3 & gt 'stwork2'
  230. else
  231. 'With such a black eye as you have, you aren''t allowed on stage.'
  232. end
  233. else
  234. 'There is nothing more terrible than a stripper with hairy legs or pubis, have a shave before you can work.'
  235. end
  236. else
  237. 'Damn, you stink like a horse, have a wash first.'
  238. end
  239. else
  240. 'The least you can do is brush your hair.'
  241. end
  242. else
  243. 'You need to very thick makeup if you want people to see it in this light.'
  244. end
  245. else
  246. 'There is visible semen on your body. Wash yourself off before going on stage.'
  247. end
  248. else
  249. 'That''s it for today. Time to go home.'
  250. end
  251. end
  252. --- stwork ---------------------------------