1
0

sauna.qsrc 6.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256
  1. # sauna
  2. CLOSE ALL
  3. gs 'themes', 'indoors'
  4. if $ARGS[0] = '':
  5. *clr & cla
  6. $loc = 'sauna'
  7. $metka = ''
  8. $menu_loc = 'sauna'
  9. $menu_arg = ''
  10. menu_off = 0
  11. sauna += 1
  12. gs 'stat'
  13. '<center><b>Sauna</b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna.jpg"></center>'
  15. 'Luxurious high quality public sauna founded long time ago. The sauna houses separate changing rooms and shower facilities for men and women.'
  16. act 'Leave':minut += 10 & gt 'street'
  17. if SaunaWhore > 0:act 'Head to work':gt 'saunawhore', 'saunawork'
  18. if week = 5 and workDisk = 2:
  19. 'There''s a security guard waiting at the entrance for you to arrive.'
  20. act 'Hand over the disk':
  21. cls
  22. minut += 20
  23. workDisk = 3
  24. konvert = 1
  25. gs 'stat'
  26. 'You hand over the disk to him and you are handed back a thick envelope.'
  27. act 'Leave':minut += 10 & gt 'street'
  28. end
  29. end
  30. if hour >= 8 and hour <= 23:act 'Head to the sauna':gt 'sauna', 'sauna2'
  31. end
  32. if $ARGS[0] = 'sauna2':
  33. *clr & cla
  34. $loc = 'sauna'
  35. $metka = 'sauna2'
  36. $menu_loc = 'sauna'
  37. $menu_arg = 'sauna2'
  38. menu_off = 0
  39. $location_type = 'indoors'
  40. minut += 5
  41. gs 'stat'
  42. '<center><b><font color="maroon">Sauna</font></b></center>'
  43. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna1.jpg"></center>'
  44. 'One hour visit - 2,000 <b>₽</b>'
  45. act 'Leave':gt 'sauna'
  46. if money >= 2000 and saunaday ! daystart:
  47. act 'Stay (2,000 <b>₽</b>)':
  48. cls
  49. money = money - 2000
  50. minut += 60
  51. fat -= 10
  52. pcs_sweat = rand(0,5)
  53. dynamic $showerdin
  54. saunaday = daystart
  55. pcs_mood = 100
  56. pcs_horny -= 50
  57. if pcs_horny < 0: pcs_horny = 0
  58. pcs_health += healthmax/5
  59. pcs_stam = stammax
  60. if sauna_daystart ! daystart:
  61. sauna_daystart = daystart
  62. pcs_skin += rand(2,4)
  63. pcs_willpwr += 5
  64. end
  65. pcs_mana = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo
  66. gs 'stat'
  67. '<center><img <<$set_imgh>> src="images/locations/city/shared/sauna/sau.jpg"></center>'
  68. 'You spend an hour relaxing in the heat of the sauna, having a cool shower and dressing. You feel revitalised.'
  69. act 'Leave':gt 'sauna'
  70. end
  71. end
  72. end
  73. if $ARGS[0] = 'saunaroom':
  74. *clr & cla
  75. $loc = 'sauna'
  76. $metka = 'saunaroom'
  77. $locBroom = 'sauna'
  78. $metkaBroom = 'saunaroom'
  79. $locM = 'sauna'
  80. $metkaM = 'saunaroom'
  81. $menu_loc = 'sauna'
  82. $menu_arg = 'saunaroom'
  83. menu_off = 0
  84. $location_type = 'private'
  85. saunaYouRoom = 1
  86. gs 'stat'
  87. gs 'kit_din'
  88. '<center><b><font color="maroon">Room</font></b></center>'
  89. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunaroom.jpg"></center>'
  90. *nl
  91. '<br>The room has a thread bare <a href="exec:sec += 30 & gt ''bed2''">bed</a> and a cheap <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing).'
  92. *nl
  93. '<br>Hanging on the wall is a dirty <a href="exec:gt ''mirror'', ''start''">mirror</a>. The floor is littered with dozens of porn magazines, and a selection of adult toys are scattered throughout the room. There''s so much crap laying around, there''s barely enough space to do some basic <a href="exec:gt ''sauna'', ''saunafitness''">exercise</a>.'
  94. *nl
  95. if budilnikOn = 0:
  96. '<br>Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 1 & gt ''sauna'', ''saunaroom''">off</a>.'
  97. *nl
  98. else
  99. '<br>Your <a href="exec:gt ''budilnik'', ''start''">alarm clock</a> is set for <<timer>> hours <<timerM>> minutes and currently turned <a href="exec: budilnikOn = 0 & gt ''sauna'', ''saunaroom''">on</a>.'
  100. *nl
  101. end
  102. 'If you run out of personal hygeine or beauty products, you can ask for some more, but at a cost.'
  103. *nl
  104. gs 'saunawhore','debtPay'
  105. if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
  106. act '<b>Exit to the sauna</b>':gt 'saunawhore', 'saunawork'
  107. if workDolg > 0:
  108. act 'Have some food (0:15)':
  109. gs 'food', 'm_meal'
  110. workDolg += 200
  111. end
  112. act 'Drink some water (0:05)': gs 'beverage', 'bev_wat'
  113. if kosmetica = 0:
  114. act 'Ask for some cosmetics':
  115. workDolg += 1200
  116. kosmetica += 20
  117. gt 'sauna', 'saunaroom'
  118. end
  119. end
  120. if shampoo = 0:
  121. act 'Ask for some shampoo':
  122. workDolg += 400
  123. shampoo += 20
  124. gt 'sauna', 'saunaroom'
  125. end
  126. end
  127. if stanok = 0:
  128. act 'Ask for some razors':
  129. workDolg += 700
  130. stanok += 20
  131. gt 'sauna', 'saunaroom'
  132. end
  133. end
  134. if tampon = 0:
  135. act 'Ask for some tampons':
  136. workDolg += 400
  137. tampon += 20
  138. gt 'sauna', 'saunaroom'
  139. end
  140. end
  141. if deodorant = 0:
  142. act 'Ask for some deodorant':
  143. workDolg += 200
  144. deodorant += 20
  145. gt 'sauna', 'saunaroom'
  146. end
  147. end
  148. end
  149. if workDolg <= 0 and SaunaWhore > 0:
  150. if money >= 200:
  151. act 'Buy some food (0:15) (100 <b>₽</b>)':
  152. gs 'food', 'm_meal'
  153. money -= 200
  154. end
  155. end
  156. act 'Drink some water (0:05)': gs 'beverage', 'bev_wat'
  157. dynamic $fatdel
  158. dynamic $lekarstvo
  159. dynamic $vitamin
  160. end
  161. gs 'events', 'read_porn'
  162. if pcs_horny >= 50: act 'Masturbate':gt 'selfplay', 'start'
  163. if pcs_sleep <= 80:
  164. if $clothingworntype = 'nude':
  165. $sleep_txt = 'Go to sleep'
  166. else
  167. $sleep_txt = 'Undress and go to sleep'
  168. end
  169. if succubusQW = 2:
  170. act '<<$sleep_txt>>':
  171. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  172. gt 'bed2', 'succhoice'
  173. end
  174. else
  175. if workDolg > 0 or money >= 850:
  176. act '<<$sleep_txt>>':
  177. if workDolg > 0:
  178. workDolg += 850
  179. elseif workDolg <= 0:
  180. money -= 850
  181. end
  182. if disable_autosave = 0:
  183. if StoryLine = 0:
  184. savegame 'autosave.sav'
  185. else
  186. savegame 'autosave_alt.sav'
  187. end
  188. end
  189. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  190. if magf2bdo = 2:
  191. gt 'bed2', 'magbstchoice'
  192. else
  193. gt 'bed2', 'sleep'
  194. end
  195. end
  196. killvar '$sleep_txt'
  197. else
  198. '<br>You don''t have enough money (850 <b>₽</b>) to sleep her tonight.'
  199. end
  200. end
  201. end
  202. end
  203. if $ARGS[0] = 'saunafitness':
  204. $loc = 'sauna'
  205. $metka = 'saunaroom'
  206. $location_type = 'indoors'
  207. cla
  208. *clr
  209. '<center><video autoplay loop src="images/pc/activities/push_naked.mp4"></video></center>'
  210. gs 'exercise', 'tier2', 30, 'stren_exp'
  211. 'You do push-ups for 30 minutes, improving your strength.'
  212. randpushfact = rand(-5,5)
  213. if pcs_energy < 40: randpushfact -= rand(1,10)
  214. pushnum = (pcs_stren * pcs_sleep * pcs_health) / ( 1 * 67 * healthmax) + randpushfact
  215. if pushnum < 1: pushnum = rand(1,5)
  216. KILLVAR 'randpushfact'
  217. '<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
  218. if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
  219. gs 'stat'
  220. act 'Finish': gt $loc, $metka
  221. end
  222. --- sauna ---------------------------------