095_saunawork 5.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228
  1. # saunawork
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $metkaBroom = $ARGS[0]
  5. $locBroom = $CURLOC
  6. $metkaM = $ARGS[0]
  7. $locM = $CURLOC
  8. saunaYouRoom = 1
  9. if paymamka = 0:paymamka = 300
  10. if workDolg > 0:paymamka = 300
  11. if workDolg <= 0:paymamka = 500
  12. gs 'stat'
  13. '<center><b><font color="maroon">Sauna</font></b></center>'
  14. '<center><img src="images/etogame/sauna1.jpg"></center>'
  15. 'On the walls are full of <a href="exec:GT ''mirror'', ''start''">mirrors</a>.'
  16. if saunaWorkNow = 1:
  17. set saunaWorkNow = 0
  18. set money -= paymamka
  19. 'Nurse came to you and took you to <<paymamka>> per customer.'
  20. end
  21. if money > 0 and workDolg > 0:workDolg -= money & money = 0
  22. if workDolg > 0:'Your debt is <<workDolg>> rubles'
  23. gs 'stat'
  24. if workDolg <= 0:act 'Leave':gt 'sauna'
  25. if workDolg > 0:act 'Go to your room':gt 'saunaroom'
  26. if hour > 8 and hour < 12 and whorehour ! hour:
  27. whorehour = hour
  28. klientrand = rand(0, 100)
  29. if klientrand >= 80:saunaWorkKlient = 1
  30. end
  31. if hour >= 12 and hour < 16 and whorehour ! hour:
  32. whorehour = hour
  33. klientrand = rand(0, 100)
  34. if klientrand >= 50:saunaWorkKlient = 1
  35. end
  36. if hour >= 16 and hour < 21 and whorehour ! hour:
  37. whorehour = hour
  38. klientrand = rand(0, 100)
  39. if klientrand >= 10:saunaWorkKlient = 1
  40. end
  41. if hour >= 21 and whorehour ! hour:
  42. whorehour = hour
  43. saunaWorkKlient = 1
  44. end
  45. if saunaWorkKlient = 1:
  46. cls
  47. gs 'stat'
  48. '<center><img src="images/etogame/saunawhore.jpg"></center>'
  49. 'In the sauna arrived client, girls lined up that would be a customer could choose your favorite.'
  50. if mop > 1 and hapri = 1 and sweat <= 0 and leghair <= 0 and lobok <= 0:
  51. whorerand = rand(0, 25)
  52. if whorerand < vnesh:
  53. 'Client jabbed a finger at you "This one."'
  54. act 'Go to the sauna with a client':saunaWorkKlient = 0 & gt 'saunawhore'
  55. else
  56. 'Client examined picky eyes and turned away you chose another girl.'
  57. act 'Exit':saunaWorkKlient = 0 & gt $curloc
  58. end
  59. else
  60. 'Looking at your client immediately turned away and chose another girl.'
  61. act 'Exit':saunaWorkKlient = 0 & gt $curloc
  62. end
  63. exit
  64. end
  65. if vnesh = -10 or SLomka > 0:
  66. cls
  67. gs 'stat'
  68. workDolg += 1500
  69. 'You beckoned nurse. "Hey slut come here."'
  70. 'You came up to her and she demanded to bare your hand. You have done the required and she took a syringe with what that rubbish. "Sit still, do a shot now and will bring you into a normal form."'
  71. act 'Exit':StrongNarkota += 25 & SNarkTimes += 1 & minut += 10 & gt $curloc
  72. exit
  73. end
  74. act 'Sit on the couch (1:00)':
  75. cls
  76. minut += 60
  77. gs 'stat'
  78. '<center><img src="images/etogame/saunawork.jpg"></center>'
  79. 'You are within an hour sitting on the couch waiting for customers.'
  80. act 'Exit':gt $curloc
  81. end
  82. if clenerSauna ! day:
  83. act 'Clean toilets (1:00)':
  84. cla
  85. *clr
  86. set minut += 60
  87. set clenerSauna = day
  88. set manna -= 25
  89. workDolg -= 100
  90. set sweat += 3
  91. '<center><img src="images/etogame/clener2.jpg"></center>'
  92. 'You scrubbed toilets for an hour in the sauna to shine.'
  93. act 'Exit':gt $curloc
  94. end
  95. end
  96. if clenerSauna2 ! day:
  97. act 'Scrubbing floors (1:00)':
  98. cla
  99. *clr
  100. set minut += 60
  101. set clenerSauna2 = day
  102. set manna -= 25
  103. workDolg -= 100
  104. set sweat += 3
  105. '<center><img src="images/etogame/clener1.jpg"></center>'
  106. 'You within the hour scrubbed floors mopped to shine.'
  107. act 'Exit':gt $curloc
  108. end
  109. end
  110. act 'Take a shower (0:15)':
  111. cla
  112. *clr
  113. set minut += 15
  114. set sweat = -3
  115. set horny += 1
  116. set hapri = 0
  117. set mop = 1
  118. dynamic $showerdin
  119. if frost > 0:frost = 0
  120. '<center><img src="images/pics/dush.jpg"></center>'
  121. 'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
  122. act 'Get razor':dynamic $saunabrit
  123. if horny >= 90:
  124. act 'Send shower pussy':
  125. cla
  126. *clr
  127. set horny = 0
  128. set minut += 30
  129. set mastr += 1
  130. set orgasm += 1
  131. set manna += 15
  132. set willpower += 15
  133. '<center><img src="images/pics/wash2.jpg"></center>'
  134. '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.'
  135. act 'Get out and get dressed':gt $curloc
  136. end
  137. end
  138. if horny >= 40 and hormy < 90:
  139. act 'Send shower pussy':
  140. cla
  141. *clr
  142. set horny += 5
  143. set minut += 30
  144. set manna += 10
  145. set willpower += 10
  146. '<center><img src="images/pics/wash2.jpg"></center>'
  147. '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.'
  148. act 'Get out and get dressed':gt $curloc
  149. end
  150. end
  151. act 'Get out and get dressed':gt $curloc
  152. end
  153. $saunabrit = {
  154. cls
  155. 'You rinsed the razor blade which will be enough for <<stanok>> time.'
  156. if leghair > 0:
  157. act 'Shave your legs (0:15)':
  158. cla
  159. *clr
  160. set minut += 15
  161. set leghair = -5
  162. set horny += 5
  163. '<center><img src="images/pics/shave.jpg"></center>'
  164. 'You lathered up and shaved hair with them.'
  165. act 'Postpone machine':dynamic $saunabrit
  166. end
  167. end
  168. if lobok > 0:
  169. act 'Shave pubis (0:15)':
  170. cla
  171. *clr
  172. set minut += 15
  173. set lobok = -5
  174. set horny += 5
  175. '<center><img src="images/pics/shave3.jpg"></center>'
  176. 'You lathered pubis, then shaved all the hair from it.'
  177. act 'Postpone machine':dynamic $saunabrit
  178. end
  179. end
  180. act 'Get out and get dressed':gt $curloc
  181. }
  182. --- saunawork ---------------------------------