1
0

city_sauna.qsrc 7.0 KB

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