1
0

saunawork 7.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287
  1. # saunawork
  2. $metka = ''
  3. $loc = 'saunawork'
  4. $metkaBroom = ''
  5. $locBroom = 'saunawork'
  6. $metkaM = ''
  7. $locM = 'saunawork'
  8. $location_type = 'public_indoors'
  9. saunaYouRoom = 1
  10. if paymamka = 0:paymamka = 300
  11. if workDolg > 0:paymamka = 300
  12. if workDolg <= 0:paymamka = 500
  13. gs 'stat'
  14. '<center><b><font color="maroon">Sauna</font></b></center>'
  15. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna1.jpg"></center>'
  16. 'All the walls are covered in <a href="exec:gt ''mirror'', ''start''">mirrors</a>.'
  17. if saunaWorkNow = 1:
  18. saunaWorkNow = 0
  19. money -= paymamka
  20. 'Nurse cames to you and takes from you <<paymamka>> per customer.'
  21. end
  22. if money > 0 and workDolg > 0:workDolg -= money & money = 0
  23. if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
  24. gs 'stat'
  25. if workDolg <= 0:act 'Leave':gt 'sauna'
  26. if workDolg > 0:act 'Go to your room':gt 'saunaroom'
  27. if workDolg > 0 and pcs_mood <= 10 or workDolg > 0 and SLomka > 0:
  28. cls
  29. workDolg += 1500
  30. gs 'stat'
  31. 'You are beckoned by the nurse. "Hey, come here."'
  32. 'You go up to her and she demands your bared arm. You present your arm as required and she takes out a syringe filled with drugs. "Sit still, I''ll give you a shot now and it will make you feel like normal again."'
  33. act 'Leave':StrongNarkota += 25 & SNarkTimes += 1 & minut += 10 & gt 'saunawork'
  34. exit
  35. end
  36. if cumcondslip > 0 and cumcondslip_aware > 0:
  37. act 'Ask to see a doctor':
  38. cla
  39. *clr
  40. minut += 25
  41. 'You explain how you feel nauseous and have pain in your pubic area.'
  42. 'The nurse checks you over and eventually comes to a conclusion.'
  43. '"I think it might be toxic shock, we''ll have to get you sorted out. Wait here I''ll call the doctor."'
  44. act 'Some time later':
  45. cla
  46. minut += 15
  47. gs 'cum_cleanup', 'cleanloc', 17
  48. cumcondslip = 0
  49. gs 'stat'
  50. 'When he arrives the doctor quickly examines you, and establishes that you are suffering from toxic shock from a spent condom in your body.'
  51. '"I removed it as soon as I found it. If you were feeling sick, it should slowly subside."'
  52. 'You reflexively thank the Doctor even though he''s visiting you in this place.'
  53. act 'Return':gt 'saunawork'
  54. end
  55. end
  56. end
  57. act 'Sit on the couch (1:00)':
  58. if pcs_makeup > 1 and pcs_hairbsh = 1 and pcs_sweat < 26 and pcs_leghair <= 3 and pcs_pubes <= 3:
  59. cls
  60. minut += 60
  61. gs 'stat'
  62. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunawork.jpg"></center>'
  63. 'You spend an hour sitting on the couch waiting for customers.'
  64. saunaWorkKlient = 0
  65. if hour >= 21:
  66. saunaWorkKlient = 1
  67. elseif hour >= 16:
  68. if rand(0, 100) >= 10:saunaWorkKlient = 1
  69. elseif hour >= 12:
  70. if rand(0, 100) >= 50:saunaWorkKlient = 1
  71. elseif hour > 8:
  72. if rand(0, 100) >= 80:saunaWorkKlient = 1
  73. end
  74. if saunaWorkKlient = 1:
  75. cls
  76. gs 'stat'
  77. 'A client has arrived at the sauna, and the girls line up so that the customer can choose his favorite.'
  78. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunawhore.jpg"></center>'
  79. if rand(0, 120) < pcs_apprnc:
  80. 'Client jabs a finger at you, "This one."'
  81. act 'Go to the sauna with client':
  82. saunaWorkKlient = 1
  83. guy += 1
  84. slutty += 1
  85. SaunaWhore += 1
  86. gt 'saunawhore', 'clientGate'
  87. end
  88. else
  89. 'The client examines you closely but turns away to chose another girl.'
  90. act 'Continue':gt 'saunawork'
  91. end
  92. else
  93. 'The client chooses another girl and she leads him to one of the back rooms.'
  94. act 'Continue':gt 'saunawork'
  95. end
  96. else
  97. cla
  98. 'The brothel madam comes over to you and says, "Our customers expect you to be clean, shaven, made-up and with your hair looking nice. Go and sort yourself out, now!"'
  99. act 'Leave':gt 'saunawork'
  100. end
  101. exit
  102. end
  103. if clenerSauna ! daystart:
  104. act 'Clean toilets (1:00)':
  105. cla
  106. *clr
  107. minut += 60
  108. clenerSauna = daystart
  109. pcs_mood -= 25
  110. workDolg -= 100
  111. pcs_sweat += 30
  112. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener2.jpg"></center>'
  113. 'You scrub the sauna toilets for an hour until they shine.'
  114. act 'Leave':gt 'saunawork'
  115. end
  116. end
  117. if clenerSauna2 ! daystart:
  118. act 'Scrub floors (1:00)':
  119. cla
  120. *clr
  121. minut += 60
  122. clenerSauna2 = daystart
  123. pcs_mood -= 25
  124. workDolg -= 100
  125. pcs_sweat += 30
  126. '<center><img <<$set_imgh>> src="images/locations/city/residential/office/clener1.jpg"></center>'
  127. 'You spend an hour mopping and scrubbing all the floors.'
  128. act 'Leave':gt 'saunawork'
  129. end
  130. end
  131. act 'Take a shower (0:15)':
  132. cla
  133. *clr
  134. minut += 15
  135. pcs_horny += 1
  136. pcs_hairbsh = 0
  137. pcs_makeup = 1
  138. dynamic $showerdin
  139. if frost > 0:frost = 0
  140. '<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
  141. 'You go into the bathroom and turn on the shower. Lather your body and wash it off in the shower.'
  142. if pcs_leghair > 3 or pcs_pubes > 3:
  143. act 'Get razor':dynamic $saunabrit
  144. end
  145. if pcs_horny >= 90:
  146. act 'Point shower at pussy':
  147. cla
  148. *clr
  149. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  150. pcs_mood += 15
  151. pcs_willpwr += 15
  152. '<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
  153. 'You turn the shower head on your pussy and let the jet of warm water caress you. Soon you feel like a warm wave covers your entire body and you begin to shudder in orgasm.'
  154. $orgasm_or = 'yes'
  155. gs 'arousal', 'masturbate', 30
  156. gs 'arousal', 'end'
  157. gs 'stat'
  158. act 'Get out and get dressed':gt 'saunawork'
  159. end
  160. elseif pcs_horny >= 40 and pcs_horny < 90:
  161. act 'Point shower at pussy':
  162. cla
  163. *clr
  164. pcs_mood += 10
  165. pcs_willpwr += 10
  166. '<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
  167. 'You turn the shower head on your pussy and let the jet of warm water caress you. First you find this very nice, but after a while, it gets a little painful. You realise this is pointless and stop masturbating.'
  168. gs 'arousal', 'masturbate', 30
  169. gs 'arousal', 'end'
  170. gs 'stat'
  171. act 'Get out and get dressed':gt 'saunawork'
  172. end
  173. end
  174. act 'Get out and get dressed':gt 'saunawork'
  175. end
  176. $saunabrit = {
  177. cls
  178. if workDolg > 0:
  179. 'There are a handful of cheap razors you can use. At least they don''t make you pay for them, but only because they don''t know who has used which blades.'
  180. else
  181. 'You rinse the razor blade it will be good for another <<stanok>> uses.'
  182. end
  183. if pcs_pubes > 3 or pcs_leghair > 3:
  184. act 'Shave legs and pubes (0:20)':
  185. cla
  186. *clr
  187. minut += 20
  188. pcs_leghair = 0
  189. pcs_pubes = 0
  190. pcs_horny += 10
  191. if workDolg = 0:stanok -= 1
  192. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  193. 'You lathered your pubis and legs, then shave all the hair off them. You run your hands over your lower body to make sure its nice and smooth which makes you feel a bit horny.'
  194. act 'Get out and get dressed':gt 'saunawork'
  195. end
  196. end
  197. if pcs_leghair > 3:
  198. act 'Shave your legs (0:15)':
  199. cla
  200. *clr
  201. minut += 15
  202. pcs_leghair = 0
  203. pcs_horny += 5
  204. if workDolg = 0:stanok -= 1
  205. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave.jpg"></center>'
  206. 'You lathered up and shaved the hair off them.'
  207. act 'Rinse razor':dynamic $saunabrit
  208. end
  209. end
  210. if pcs_pubes > 3:
  211. act 'Shave pubes (0:15)':
  212. cla
  213. *clr
  214. minut += 15
  215. pcs_pubes = 0
  216. pcs_horny += 5
  217. if workDolg = 0:stanok -= 1
  218. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/shave3.jpg"></center>'
  219. 'You lathered your pubis, then shaved all the hair from it.'
  220. act 'Rinse razor':dynamic $saunabrit
  221. end
  222. end
  223. act 'Get out and get dressed':gt 'saunawork'
  224. }
  225. if mesec > 0 and isprok = 0 and workdolg > 0:
  226. act 'Use a tampon (0:05)':
  227. cla
  228. *clr
  229. isprok = 1
  230. minut += 5
  231. pcs_mood -= 5
  232. workDolg += 10
  233. '<center><img <<$set_imgh>> src="images/shared/home/bathroom/wash3.jpg"></center>'
  234. 'You use a tampon, it will add another 10rub to your debt, but the alternative is unpleasant.'
  235. act 'Finish':gt $locM, $metkaM
  236. end
  237. end
  238. --- saunawork ---------------------------------