stwork 8.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275
  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? Then came one somehow the girl, all so beautiful, but the stage was full of zero can not do anything, so it only booed.'
  8. if striptalkrand = 1:$striptalk = 'I''m telling you, men give birth to girls with tattoos.'
  9. 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.'
  10. 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.'
  11. if striptalkrand = 4:$striptalk = 'Generally these private dances, though guaranteed money but it is not on the scene can make more money.'
  12. 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.'
  13. 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.'
  14. if striptalkrand = 7:$striptalk = 'Some dechonki told that they had problems arise on the job. For many stritizersha power whore.'
  15. 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.'
  16. if striptalkrand = 9:$striptalk = 'Recently one zhirnuhu raised a laugh in the hall. Like and simpotnaya and dances well, but to no avail.'
  17. if striptalkrand = 10:$striptalk = 'I heard a decent clubs abroad strippers themselves pay for the right to work in the club.'
  18. 'Girls are engaged with their appearance in the mirror fun chatting about all sorts of trivia.'
  19. '<<$striptalk>>'
  20. act 'Move away':gt $curloc, 'start'
  21. }
  22. $stripohr = {
  23. cls
  24. gs 'stat'
  25. 'Hefty bored guard at the door. Seeing you it lazily throws "Hello <<$name>>."'
  26. act 'Move away':gt $curloc, 'start'
  27. }
  28. $striptoilet2 = {
  29. cls
  30. gs 'stat'
  31. 'You rinsed the razor blade which will be enough for <<stanok>> time.'
  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 lathered up and shaved hair with them.'
  42. act 'Postpone machine':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 lathered pubis, then shaved all the hair from it.'
  55. act 'Postpone machine':dynamic $striptoilet2
  56. end
  57. end
  58. act 'Out of the 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 flushed 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. cumpussy = 0
  103. cumbelly = 0
  104. cumass = 0
  105. cumanus = 0
  106. cumlip = 0
  107. cumface = 0
  108. cumanus =0
  109. '<center><img src="images/pics/dush.jpg"></center>'
  110. 'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
  111. if leghair > 0 and stanok > 0 or lobok > 0 and stanok > 0:
  112. act 'Get razor':dynamic $striptoilet2
  113. end
  114. if horny >= 90:
  115. act 'Send shower pussy':
  116. cla
  117. *clr
  118. horny = 0
  119. minut += 30
  120. mastr += 1
  121. orgasm += 1
  122. manna += 15
  123. willpower += 15
  124. '<center><img src="images/pics/wash2.jpg"></center>'
  125. '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.'
  126. act 'Get out and get dressed':dynamic $striptoilet
  127. end
  128. elseif horny >= 40 and horny < 90:
  129. act 'Send shower pussy':
  130. cla
  131. *clr
  132. horny += 5
  133. minut += 30
  134. manna += 10
  135. willpower += 10
  136. '<center><img src="images/pics/wash2.jpg"></center>'
  137. '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.'
  138. act 'Get out and get dressed':dynamic $striptoilet
  139. end
  140. end
  141. act 'Out of the shower and get dressed':dynamic $striptoilet
  142. end
  143. !!0.2.6 extension: reworked how quick wash and face wash was supposed to work, it is now uniform in all toilet/bathroom locations
  144. !!Removed sweat =- 1 when cum is wiped off clothes
  145. !!clrbelo: Amount of clean panties available
  146. if cumpussy > 0 or cumbelly > 0 or cumass > 0 or cumanus > 0:
  147. act 'Quick wash (0:15)':
  148. cla
  149. *clr
  150. if clrbelo > 0 and tanga = 1:
  151. clrbelo -= 1
  152. dirtbelo += 1
  153. elseif clrbelo = 0 and tanga = 1:
  154. tanga = 0
  155. dirtbelo += 1
  156. end
  157. dynamic $showerdin
  158. sweat -= 1
  159. minut += 15
  160. '<center><img src="images/pics/wash5.jpg"></center>'
  161. 'You gave yourself a catlick, thus removing any traces of cum.'
  162. act 'Finish':dynamic $striptoilet
  163. end
  164. end
  165. if cumlip > 0 or cumface > 0:
  166. act 'Wash cum off face (0:15)':
  167. cla
  168. *clr
  169. mop = 1
  170. cumlip = 0
  171. cumface = 0
  172. sweat -= 1
  173. minut += 15
  174. '<center><img src="images/etogame/facesp.jpg"></center>'
  175. 'You clean your face and got rid of any trace of cum.'
  176. act 'Finish':dynamic $striptoilet
  177. end
  178. end
  179. if cumfrot > 0:
  180. act 'Wipe the cum off your clothes (0:10)':
  181. cla
  182. *clr
  183. cumfrot = 0
  184. minut += 10
  185. !!'<center><img src="images/etogame/frotsp.jpg"></center>'
  186. 'You remove traces of cum from the clothes.'
  187. act 'Finish':dynamic $striptoilet
  188. end
  189. end
  190. !!
  191. act 'Off the toilet':gt $curloc, 'start'
  192. }
  193. $sexloc = $CURLOC
  194. $metkaM = $ARGS[0]
  195. $locM = $CURLOC
  196. clr
  197. minut += 5
  198. stripMir = 1
  199. gs 'stat'
  200. fcolor = rgb(0, 0, 0)
  201. bcolor = rgb(255, 255, 255)
  202. lcolor = rgb(106, 90, 205)
  203. '<center><b><font color="maroon">Dressing for strippers</font></b></center>'
  204. '<center><img src="images/etogame/striprazd.jpg"></center>'
  205. 'On the wall of the <a href="exec:gt ''mirror'', ''start''">mirrors</a> to whom <a href="exec:dynamic $stripgirl">girls</a> lead myself up before performances.'
  206. '<a href="exec:stripMir = 0 & gt ''stripclub'', ''start''">Do not noticeable, steel door</a> 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 <a href="exec:dynamic $stripohr">guard</a>.'
  207. 'Behind wooden door located <a href="exec:dynamic $striptoilet">toilet for staff</a>'
  208. if tatplech > 0:stripKoef = rand(1, 3)
  209. if tatback > 0:stripKoef2 = rand(1, 3)
  210. if tatback > 0:stripKoef3 = rand(1, 3)
  211. if tatupb > 0:stripKoef4 = rand(3, 6)
  212. if tatleg > 0:stripKoef5 = rand(1, 3)
  213. publichot = vnesh - 10 + stripKoef + stripKoef2 + stripKoef3 + stripKoef4 + stripKoef5
  214. publichotstart = publichot
  215. if hour >= 15 or hour <= 2:
  216. if mop >= 4:
  217. if hapri = 1:
  218. if sweat <= 0:
  219. if leghair <= 0 and lobok <= 0:
  220. if fingal <= 0:
  221. act 'Go on stage':stpredmet = 3 & gt 'stwork2'
  222. else
  223. 'With such a black eye as you have nothing to do on stage.'
  224. end
  225. else
  226. 'There is nothing more terrible than a stripper with hairy legs or pubis, in this form can not work.'
  227. end
  228. else
  229. 'Lord, from you the same stinks like a horse, one must first wash.'
  230. end
  231. else
  232. 'Not with this disheveled hair pokazyvatsya in public.'
  233. end
  234. else
  235. 'Need to work very defiant makeup.'
  236. end
  237. else
  238. 'Working time is over. Time to go home.'
  239. end
  240. end
  241. --- stwork ---------------------------------