saunawork 5.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219
  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. saunaWorkNow = 0
  18. 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. elseif hour >= 12 and hour < 16 and whorehour ! hour:
  31. whorehour = hour
  32. klientrand = rand(0, 100)
  33. if klientrand >= 50:saunaWorkKlient = 1
  34. elseif hour >= 16 and hour < 21 and whorehour ! hour:
  35. whorehour = hour
  36. klientrand = rand(0, 100)
  37. if klientrand >= 10:saunaWorkKlient = 1
  38. elseif hour >= 21 and whorehour ! hour:
  39. whorehour = hour
  40. saunaWorkKlient = 1
  41. end
  42. if saunaWorkKlient = 1:
  43. cls
  44. gs 'stat'
  45. '<center><img src="images/etogame/saunawhore.jpg"></center>'
  46. 'In the sauna arrived client, girls lined up that would be a customer could choose your favorite.'
  47. if mop > 1 and hapri = 1 and sweat <= 0 and leghair <= 0 and lobok <= 0:
  48. whorerand = rand(0, 25)
  49. if whorerand < vnesh:
  50. 'Client jabbed a finger at you "This one."'
  51. act 'Go to the sauna with a client':saunaWorkKlient = 0 & gt 'saunawhore'
  52. else
  53. 'Client examined picky eyes and turned away you chose another girl.'
  54. act 'Leave':saunaWorkKlient = 0 & gt $curloc
  55. end
  56. else
  57. 'Looking at your client immediately turned away and chose another girl.'
  58. act 'Leave':saunaWorkKlient = 0 & gt $curloc
  59. end
  60. exit
  61. end
  62. if vnesh = -10 or SLomka > 0:
  63. cls
  64. workDolg += 1500
  65. gs 'stat'
  66. 'You beckoned nurse. "Hey, come here."'
  67. '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."'
  68. act 'Leave':StrongNarkota += 25 & SNarkTimes += 1 & minut += 10 & gt $curloc
  69. exit
  70. end
  71. act 'Sit on the couch (1:00)':
  72. cls
  73. minut += 60
  74. gs 'stat'
  75. '<center><img src="images/etogame/saunawork.jpg"></center>'
  76. 'You are within an hour sitting on the couch waiting for customers.'
  77. act 'Leave':gt $curloc
  78. end
  79. if clenerSauna ! day:
  80. act 'Clean toilets (1:00)':
  81. cla
  82. *clr
  83. minut += 60
  84. clenerSauna = day
  85. manna -= 25
  86. workDolg -= 100
  87. sweat += 3
  88. '<center><img src="images/etogame/clener2.jpg"></center>'
  89. 'You scrubbed toilets for an hour in the sauna to shine.'
  90. act 'Leave':gt $curloc
  91. end
  92. end
  93. if clenerSauna2 ! day:
  94. act 'Scrubbing floors (1:00)':
  95. cla
  96. *clr
  97. minut += 60
  98. clenerSauna2 = day
  99. manna -= 25
  100. workDolg -= 100
  101. sweat += 3
  102. '<center><img src="images/etogame/clener1.jpg"></center>'
  103. 'You within the hour scrubbed floors mopped to shine.'
  104. act 'Leave':gt $curloc
  105. end
  106. end
  107. act 'Take a shower (0:15)':
  108. cla
  109. *clr
  110. minut += 15
  111. sweat = -3
  112. horny += 1
  113. hapri = 0
  114. mop = 1
  115. dynamic $showerdin
  116. if frost > 0:frost = 0
  117. '<center><img src="images/pics/dush.jpg"></center>'
  118. 'You got into the bathroom and turned on the shower. Lathered body and washed off in the shower.'
  119. act 'Get razor':dynamic $saunabrit
  120. if horny >= 90:
  121. act 'Send shower pussy':
  122. cla
  123. *clr
  124. horny = 0
  125. minut += 30
  126. mastr += 1
  127. orgasm += 1
  128. manna += 15
  129. willpower += 15
  130. '<center><img src="images/pics/wash2.jpg"></center>'
  131. '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.'
  132. act 'Get out and get dressed':gt $curloc
  133. end
  134. elseif horny >= 40 and hormy < 90:
  135. act 'Send shower pussy':
  136. cla
  137. *clr
  138. horny += 5
  139. minut += 30
  140. manna += 10
  141. willpower += 10
  142. '<center><img src="images/pics/wash2.jpg"></center>'
  143. '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.'
  144. act 'Get out and get dressed':gt $curloc
  145. end
  146. end
  147. act 'Get out and get dressed':gt $curloc
  148. end
  149. $saunabrit = {
  150. cls
  151. 'You rinsed the razor blade which will be enough for <<stanok>> time.'
  152. if leghair > 0:
  153. act 'Shave your legs (0:15)':
  154. cla
  155. *clr
  156. minut += 15
  157. leghair = -5
  158. horny += 5
  159. '<center><img src="images/pics/shave.jpg"></center>'
  160. 'You lathered up and shaved hair with them.'
  161. act 'Postpone machine':dynamic $saunabrit
  162. end
  163. end
  164. if lobok > 0:
  165. act 'Shave pubis (0:15)':
  166. cla
  167. *clr
  168. minut += 15
  169. lobok = -5
  170. horny += 5
  171. '<center><img src="images/pics/shave3.jpg"></center>'
  172. 'You lathered pubis, then shaved all the hair from it.'
  173. act 'Postpone machine':dynamic $saunabrit
  174. end
  175. end
  176. act 'Get out and get dressed':gt $curloc
  177. }
  178. --- saunawork ---------------------------------