saunawork 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264
  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 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. act 'Sit on the couch (1:00)':
  37. if pcs_makeup > 1 and pcs_hairbsh = 1 and pcs_sweat < 26 and pcs_leghair <= 3 and pcs_pubes <= 3:
  38. cls
  39. minut += 60
  40. gs 'stat'
  41. '<center><img src="images/locations/city/residential/sauna/saunawork.jpg"></center>'
  42. 'You spend an hour sitting on the couch waiting for customers.'
  43. saunaWorkKlient = 0
  44. if hour >= 21:
  45. saunaWorkKlient = 1
  46. elseif hour >= 16:
  47. if rand(0, 100) >= 10:saunaWorkKlient = 1
  48. elseif hour >= 12:
  49. if rand(0, 100) >= 50:saunaWorkKlient = 1
  50. elseif hour > 8:
  51. if rand(0, 100) >= 80:saunaWorkKlient = 1
  52. end
  53. if saunaWorkKlient = 1:
  54. cls
  55. gs 'stat'
  56. 'A client has arrived at the sauna, and the girls line up so that the customer can choose his favorite.'
  57. '<center><img src="images/locations/city/residential/sauna/saunawhore.jpg"></center>'
  58. if rand(0, 120) < pcs_apprnc:
  59. 'Client jabs a finger at you, "This one."'
  60. act 'Go to the sauna with client':
  61. saunaWorkKlient = 1
  62. guy += 1
  63. slutty += 1
  64. SaunaWhore += 1
  65. gt 'saunawhore', 'clientGate'
  66. end
  67. else
  68. 'The client examines you closely but turns away to chose another girl.'
  69. act 'Continue':gt 'saunawork'
  70. end
  71. else
  72. 'The client chooses another girl and she leads him to one of the back rooms.'
  73. act 'Continue':gt 'saunawork'
  74. end
  75. else
  76. cla
  77. '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!"'
  78. act 'Leave':gt 'saunawork'
  79. end
  80. exit
  81. end
  82. if clenerSauna ! daystart:
  83. act 'Clean toilets (1:00)':
  84. cla
  85. *clr
  86. minut += 60
  87. clenerSauna = daystart
  88. pcs_mood -= 25
  89. workDolg -= 100
  90. pcs_sweat += 30
  91. '<center><img src="images/locations/city/residential/office/clener2.jpg"></center>'
  92. 'You scrub the sauna toilets for an hour until they shine.'
  93. act 'Leave':gt 'saunawork'
  94. end
  95. end
  96. if clenerSauna2 ! daystart:
  97. act 'Scrub floors (1:00)':
  98. cla
  99. *clr
  100. minut += 60
  101. clenerSauna2 = daystart
  102. pcs_mood -= 25
  103. workDolg -= 100
  104. pcs_sweat += 30
  105. '<center><img src="images/locations/city/residential/office/clener1.jpg"></center>'
  106. 'You spend an hour mopping and scrubbing all the floors.'
  107. act 'Leave':gt 'saunawork'
  108. end
  109. end
  110. act 'Take a shower (0:15)':
  111. cla
  112. *clr
  113. minut += 15
  114. pcs_horny += 1
  115. pcs_hairbsh = 0
  116. pcs_makeup = 1
  117. dynamic $showerdin
  118. if frost > 0:frost = 0
  119. '<center><img src="images/shared/home/bathroom/dush.jpg"></center>'
  120. 'You go into the bathroom and turn on the shower. Lather your body and wash it off in the shower.'
  121. if pcs_leghair > 3 or pcs_pubes > 3:
  122. act 'Get razor':dynamic $saunabrit
  123. end
  124. if pcs_horny >= 90:
  125. act 'Point shower at pussy':
  126. cla
  127. *clr
  128. if pcs_exhibition < 30:exhibition_exp += rand(1,3)
  129. pcs_mood += 15
  130. pcs_willpwr += 15
  131. '<center><img src="images/shared/home/bathroom/wash2.jpg"></center>'
  132. '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.'
  133. $orgasm_or = 'yes'
  134. gs 'arousal', 'masturbate', 30
  135. gs 'arousal', 'end'
  136. gs 'stat'
  137. act 'Get out and get dressed':gt 'saunawork'
  138. end
  139. elseif pcs_horny >= 40 and pcs_horny < 90:
  140. act 'Point shower at pussy':
  141. cla
  142. *clr
  143. pcs_mood += 10
  144. pcs_willpwr += 10
  145. '<center><img src="images/shared/home/bathroom/wash2.jpg"></center>'
  146. '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.'
  147. gs 'arousal', 'masturbate', 30
  148. gs 'arousal', 'end'
  149. gs 'stat'
  150. act 'Get out and get dressed':gt 'saunawork'
  151. end
  152. end
  153. act 'Get out and get dressed':gt 'saunawork'
  154. end
  155. $saunabrit = {
  156. cls
  157. if workDolg > 0:
  158. '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.'
  159. else
  160. 'You rinse the razor blade it will be good for another <<stanok>> uses.'
  161. end
  162. if pcs_pubes > 3 or pcs_leghair > 3:
  163. act 'Shave legs and pubes (0:20)':
  164. cla
  165. *clr
  166. minut += 20
  167. pcs_leghair = 0
  168. pcs_pubes = 0
  169. pcs_horny += 10
  170. if workDolg = 0:stanok -= 1
  171. '<center><img src="images/shared/home/bathroom/shave3.jpg"></center>'
  172. '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.'
  173. act 'Get out and get dressed':gt 'saunawork'
  174. end
  175. end
  176. if pcs_leghair > 3:
  177. act 'Shave your legs (0:15)':
  178. cla
  179. *clr
  180. minut += 15
  181. pcs_leghair = 0
  182. pcs_horny += 5
  183. if workDolg = 0:stanok -= 1
  184. '<center><img src="images/shared/home/bathroom/shave.jpg"></center>'
  185. 'You lathered up and shaved the hair off them.'
  186. act 'Rinse razor':dynamic $saunabrit
  187. end
  188. end
  189. if pcs_pubes > 3:
  190. act 'Shave pubes (0:15)':
  191. cla
  192. *clr
  193. minut += 15
  194. pcs_pubes = 0
  195. pcs_horny += 5
  196. if workDolg = 0:stanok -= 1
  197. '<center><img src="images/shared/home/bathroom/shave3.jpg"></center>'
  198. 'You lathered your pubis, then shaved all the hair from it.'
  199. act 'Rinse razor':dynamic $saunabrit
  200. end
  201. end
  202. act 'Get out and get dressed':gt 'saunawork'
  203. }
  204. if mesec > 0 and isprok = 0 and workdolg > 0:
  205. act 'Use a tampon (0:05)':
  206. cla
  207. *clr
  208. isprok = 1
  209. minut += 5
  210. pcs_mood -= 5
  211. workDolg += 10
  212. '<center><img src="images/shared/home/bathroom/wash3.jpg"></center>'
  213. 'You use a tampon, it will add another 10rub to your debt, but the alternative is unpleasant.'
  214. act 'Finish':gt $locM, $metkaM
  215. end
  216. end
  217. --- saunawork ---------------------------------