1
0

sauna.qsrc 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208
  1. # sauna
  2. CLOSE ALL
  3. gs 'themes', 'indoors'
  4. if $ARGS[0] = '':
  5. *clr & cla
  6. $loc = 'sauna'
  7. $metka = ''
  8. sauna += 1
  9. gs 'stat'
  10. '<center><b>Sauna</b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna.jpg"></center>'
  12. 'Luxurious high quality public sauna founded long time ago. The sauna houses separate changing rooms and shower facilities for men and women.'
  13. act 'Leave':minut += 10 & gt 'street'
  14. if SaunaWhore > 0:act 'Head to work':gt 'saunawhore', 'saunawork'
  15. if week = 5 and workDisk = 2:
  16. 'There''s a security guard waiting at the entrance for you to arrive.'
  17. act 'Hand over the disk':
  18. cls
  19. minut += 20
  20. workDisk = 3
  21. konvert = 1
  22. gs 'stat'
  23. 'You hand over the disk to him and you are handed back a thick envelope.'
  24. act 'Leave':minut += 10 & gt 'street'
  25. end
  26. end
  27. if hour >= 8 and hour <= 23:act 'Head to the sauna':gt 'sauna', 'sauna2'
  28. end
  29. if $ARGS[0] = 'sauna2':
  30. *clr & cla
  31. $loc = 'sauna'
  32. $metka = 'sauna2'
  33. $location_type = 'indoors'
  34. minut += 5
  35. gs 'stat'
  36. '<center><b><font color="maroon">Sauna</font></b></center>'
  37. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/sauna1.jpg"></center>'
  38. 'One hour visit - 2,000 <b>₽</b>'
  39. act 'Leave':gt 'sauna'
  40. if money >= 2000 and saunaday ! daystart:
  41. act 'Stay (2,000 <b>₽</b>)':
  42. cls
  43. money = money - 2000
  44. minut += 60
  45. fat -= 10
  46. pcs_sweat = rand(0,5)
  47. dynamic $showerdin
  48. saunaday = daystart
  49. pcs_mood = 100
  50. gs 'stat'
  51. '<center><img <<$set_imgh>> src="images/locations/city/shared/sauna/sau.jpg"></center>'
  52. 'You spend an hour relaxing in the heat of the sauna, having a cool shower and dressing. You feel revitalised.'
  53. act 'Leave':gt 'sauna'
  54. end
  55. end
  56. end
  57. if $ARGS[0] = 'saunaroom':
  58. *clr & cla
  59. $loc = 'sauna'
  60. $metka = 'saunaroom'
  61. $locBroom = 'sauna'
  62. $metkaBroom = 'saunaroom'
  63. $locM = 'sauna'
  64. $metkaM = 'saunaroom'
  65. $location_type = 'private'
  66. saunaYouRoom = 1
  67. gs 'stat'
  68. gs 'kit_din'
  69. '<center><b><font color="maroon">Room</font></b></center>'
  70. '<center><img <<$set_imgh>> src="images/locations/city/residential/sauna/saunaroom.jpg"></center>'
  71. '<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).'
  72. '<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>.'
  73. if budilnikOn = 0:
  74. '<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>.'
  75. else
  76. '<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>.'
  77. end
  78. if SaunaWhore > 0 and money > 0 and workDolg > 0:
  79. workDolg = dolg_temp
  80. workDolg -= money
  81. money -= dolg_temp
  82. if money < 0: money = 0
  83. if workDolg < 0: workDolg = 0
  84. end
  85. if workDolg > 0:'Your debt is <<workDolg>> <b>₽</b>'
  86. act '<b>Exit to the sauna</b>':gt 'saunawhore', 'saunawork'
  87. if workDolg > 0:
  88. act 'Have some food (0:15)':
  89. gs 'food', 'm_meal'
  90. workDolg += 100
  91. end
  92. act 'Drink some water (0:05)':
  93. gs 'beverage', 'bev_wat'
  94. end
  95. act 'Borrow cosmetics':
  96. workDolg += 1000
  97. kosmetica += 25
  98. gt 'sauna', 'saunaroom'
  99. end
  100. end
  101. if workDolg <= 0 and SaunaWhore > 0:
  102. if money >= 100:
  103. act 'Buy some food (0:15) (100 <b>₽</b>)':
  104. gs 'food', 'm_meal'
  105. money -= 100
  106. end
  107. end
  108. act 'Drink some water (0:05)':
  109. gs 'beverage', 'bev_wat'
  110. end
  111. dynamic $fatdel
  112. dynamic $lekarstvo
  113. dynamic $vitamin
  114. end
  115. gs 'events', 'read_porn'
  116. if pcs_horny >= 50:
  117. act 'Masturbate':gt 'selfplay', 'start'
  118. end
  119. if pcs_sleep <= 80:
  120. if $clothingworntype = 'nude':
  121. $sleep_txt = 'Go to sleep'
  122. else
  123. $sleep_txt = 'Undress and go to sleep'
  124. end
  125. if succubusQW = 2:
  126. act '<<$sleep_txt>>':
  127. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  128. gt 'bed2', 'succhoice'
  129. end
  130. else
  131. act '<<$sleep_txt>>':
  132. if SaunaWhore = 0:
  133. workDolg += 850
  134. elseif SaunaWhore > 0:
  135. money -= 850
  136. end
  137. if disable_autosave = 0:
  138. if StoryLine = 0:
  139. savegame 'autosave.sav'
  140. else
  141. savegame 'autosave_alt.sav'
  142. end
  143. end
  144. if $clothingworntype ! 'nude': gs 'clothing', 'strip'
  145. if magf2bdo = 2:
  146. gt 'bed2', 'magbstchoice'
  147. else
  148. gt 'bed2', 'sleep'
  149. end
  150. end
  151. killvar '$sleep_txt'
  152. end
  153. end
  154. end
  155. if $ARGS[0] = 'saunafitness':
  156. $loc = 'sauna'
  157. $metka = 'saunaroom'
  158. $location_type = 'indoors'
  159. cla
  160. *clr
  161. '<center><video autoplay loop src="images/pc/activities/push_naked.mp4"></video></center>'
  162. gs 'exercise', 'tier2', 30, 'stren_exp'
  163. 'You do push-ups for 30 minutes, improving your strength.'
  164. randpushfact = rand(-5,5)
  165. if pcs_energy < 40: randpushfact -= RAND(1,10)
  166. pushnum = (pcs_stren * pcs_sleep * pcs_health) / ( 1 * 67 * healthmax) + randpushfact
  167. if pushnum < 1: pushnum = rand(1,5)
  168. KILLVAR 'randpushfact'
  169. '<br>You managed to do <<pushnum>> push-ups. Your previous record is <<pushrecord>>.'
  170. if pushrecord < pushnum:pushrecord = pushnum & 'This is a new record!'
  171. gs 'stat'
  172. act 'Finish': gt $loc, $metka
  173. end
  174. --- sauna ---------------------------------