gLakeNude.qsrc 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514
  1. # gLakeNude
  2. $location_type = 'secluded'
  3. $loc = 'gLakeNude'
  4. $metka = ''
  5. $menu_loc = 'gLakeNude'
  6. $menu_arg = ''
  7. $locclass = 'beach'
  8. menu_off = 0
  9. *clr & cla
  10. gs 'stat'
  11. if sound = 0: PLAY 'sound/lakeshore2.mp3',20
  12. '<center><H4>Secluded beach</H4></center>'
  13. if month >= 3 and month <= 5:
  14. if hour >= 6 and hour <= 17:
  15. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
  16. else
  17. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
  18. end
  19. '<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
  20. *nl
  21. elseif month >= 6 and month <= 8:
  22. if hour >= 6 and hour <= 19:
  23. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
  24. else
  25. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.night.jpg"></center>'
  26. end
  27. '<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
  28. *nl
  29. elseif month >= 9 and month <= 11:
  30. if hour >= 6 and hour <= 18:
  31. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
  32. else
  33. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
  34. end
  35. '<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
  36. *nl
  37. elseif month < 3 or month = 12:
  38. if hour >= 7 and hour <= 16:
  39. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
  40. else
  41. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
  42. end
  43. '<center>This small natural beach is hidden away from the general public on a inlet of the lake. To reach it you had to travel around the lake along a forest trail. Not many people use this area of the beach, other than some those seeking privacy, or some of the local kids. Except in winter, so they can use the sauna at the edge of the forest.</center>'
  44. '<center>Ever since winter arrived, the lake in Pavlovsk has been frozen over. A small part of the inlet has the ice broken, so those that wish to take a refershing dip in the icy cold water can, after using the sauna.</center>'
  45. *nl
  46. end
  47. if storyline = 1 and month >= 3 and month <= 8 and week >= 6 and hour >= 8 and hour <= 10 and ivanfedorseennaked ! daystart and rand(0,3) = 0:
  48. if $clothingworntype = 'nude':
  49. gs 'exhibitionism', 3
  50. gs 'fame', 'pav', 'sex', 3
  51. 'You''re walking down the secluded beach, enjoying the sensation of feeling free and the cool breeze on your naked body. When all of a sudden you hear some heavy running steps coming up behind you followed by heavy panting. Expecting the worse, you turn around only to see a sweaty Ivan with a huge grin on his face, closely followed by Feodor. As they get a look at your face and realize who you are, they slow down and stop, looking a bit surprised to see... well all of you on display.'
  52. act 'Run away': ivanfedorseennaked = daystart & gt 'gLakeNude'
  53. act 'Say hi to them': ivanfedorseennaked = daystart & gt 'gschool_socialchg1', 'ivan_fedor_naked'
  54. else
  55. 'You''re walking down the secluded beach, enjoying the tranquility when all of a sudden you hear some heavy running steps coming up behind you followed by heavy panting. Expecting the worse, you turn around only to see a sweaty <a href="exec:gt ''gschool_socialchg1'', ''tIvan''">Ivan</a>, closely followed by <a href="exec:gt ''gschool_socialchg1'', ''tFedor''">Feodor</a>.'
  56. end
  57. end
  58. act'Leave the secluded beach': minut += 10 & gt 'glake'
  59. if month >= 5 and month <= 9:
  60. if arrsize('swimwear') > 0:
  61. act 'Use changing room':gt 'changingroom', 'view_swim_list'
  62. else
  63. *nl
  64. 'You should probably buy some swimwear if you intend of spending time at the beach'
  65. *nl
  66. end
  67. if $clothingworntype ! 'nude' and (pcs_inhib > 30 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
  68. gs 'willpower', 'exhib', 'self'
  69. if will_cost <= pcs_willpwr:
  70. act 'Take off your clothes (<<will_cost>> Willpower)':
  71. *clr & cla
  72. minut += 5
  73. menu_off = 1
  74. sauna_stripped = 0
  75. if pcs_inhib < 60: inhib_exp += rand(1,3)
  76. gs 'willpower', 'exhib', 'self', 'easy'
  77. gs 'willpower', 'pay', 'self'
  78. gs 'clothing', 'strip'
  79. gs 'underwear', 'remove'
  80. gs 'stat'
  81. if pcs_horny >= 80 and exhibitionist_lvl > 1:
  82. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
  83. 'You strip off. A couple of passing men do a double-take and pause a moment to look at your sopping wet panties, probably thinking about what is making you so excited. You don''t care about what they might say or think of you.'
  84. elseif pcs_inhib >= 60:
  85. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  86. 'Not caring if anyone is looking at you, you slowly take off your clothes. You peel off each item like a stripper. Soon, you are completely naked.'
  87. elseif pcs_inhib < 60:
  88. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  89. 'You quickly check to see if anyone is watching, and when you''re satisfied no one is paying you undue attention, you take off your clothes. You''re naked now.'
  90. end
  91. act 'Continue': gt 'gLakeNude'
  92. end
  93. else
  94. act 'Take off your clothes (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  95. end
  96. elseif $clothingworntype = 'nude' and sauna_stripped = 0:
  97. act 'Put your clothes back on':
  98. *clr & cla
  99. menu_off = 1
  100. minut += 5
  101. gs 'clothing', 'wear_last_worn'
  102. gs 'underwear', 'wear'
  103. nudelake = rand(1,10)
  104. if nudelake <= 2:
  105. minut += 5
  106. pcs_mood -= 5
  107. gs 'exhibitionism', 4
  108. gs 'stat'
  109. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/noclothes.jpg"></center>'
  110. 'You return to the place where you thought you put your clothes to get dressed... except you can''t find them. Oh crap, you can''t find them! You desperately search the beach for a while, while a few passers-by look amused at the naked girl running around the beach. When you can''t find them, you panic and run all the way home... hopefully they''ll turn up.'
  111. act 'Run home naked': gt 'glake', 'nude_home'
  112. else
  113. 'You return to the place where you left your clothes, and put them back on.'
  114. act 'Continue': gt 'gLakeNude'
  115. end
  116. end
  117. end
  118. end
  119. act 'Go to the sauna': gt 'gLakeNude', 'sauna'
  120. if temper >= 15 and month >= 5 and month <= 9:
  121. act 'Take a walk along the beach (30 minutes)':
  122. *clr & cla
  123. menu_off = 1
  124. minut += 30
  125. pcs_mood += 5
  126. gs 'stat'
  127. if $clothingworntype = 'swimwear' and pcs_hips<=90:
  128. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg"></center>'
  129. elseif $clothingworntype = 'swimwear' and pcs_hips >= 90 and pcs_hips<=110:
  130. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg"></center>'
  131. elseif $clothingworntype = 'swimwear' and pcs_hips>=110:
  132. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,1.jpg"></center>'
  133. if pcs_inhib < 50:inhib_exp += rand(1,2)
  134. elseif $clothingworntype = 'nude':
  135. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/walknude.jpg"></center>'
  136. inhib_exp += rand(1,3)
  137. else
  138. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk0,'+rand(0,2)+'.jpg"></center>'
  139. end
  140. 'You walk along the beach, enjoying the feeling of the sun on your body.'
  141. act 'Continue':gt'gLakeNude'
  142. end
  143. if hour >= 6 and hour <= 20 and ($clothingworntype = 'swimwear' or $clothingworntype = 'nude'):
  144. act 'Go swimming (30 minutes)':
  145. menu_off = 1
  146. *clr & cla
  147. cumspclnt = 4
  148. gs 'cum_cleanup'
  149. minut = minut + 30
  150. pcs_mood += 5
  151. ! Seems appropriate. Potentially worth revisiting
  152. if willday_swim ! daystart: willday_swim = daystart & pcs_willpwr += 1
  153. if $clothingworntype = 'swimwear':
  154. if pcs_inhib < 50:inhib_exp += rand(1,2)
  155. elseif $clothingworntype = 'nude':
  156. inhib_exp += rand(1,3)
  157. end
  158. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  159. if pcs_stren < 30: stren_exp += 1
  160. fat -= 1
  161. if $clothingworntype = 'nude':
  162. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swimnude.jpg"></center>'
  163. if pcs_inhib < 60:inhib_exp += rand(1,2)
  164. else
  165. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/swim.jpg"></center>'
  166. if pcs_inhib < 40:inhib_exp += rand(1,2)
  167. end
  168. 'You play around and have fun in the lake, enjoying the feeling of the warm water on your naked body. The clean lake water refreshes and invigorates you.'
  169. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  170. act 'Get out of the water': gt 'gLakeNude'
  171. end
  172. end
  173. if sunWeather = 1 and hour >= 6 and hour <= 20 and ($clothingworntype = 'swimwear' or $clothingworntype = 'nude'):
  174. act 'Go sunbathing (30 minutes)':
  175. menu_off = 1
  176. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  177. *clr & cla
  178. minut = minut + 30
  179. if pcs_sweat < 35 : gs 'sweat', 'add', 5
  180. pcs_mood += 5
  181. if $clothingworntype = 'swimwear':
  182. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbath.jpg"></center>'
  183. if pcs_inhib < 50:inhib_exp += rand(1,2)
  184. else
  185. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/sunbathnude.jpg"></center>'
  186. inhib_exp += rand(1,3)
  187. end
  188. if krem = 0:
  189. pcs_tan += 1
  190. 'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun on your body.'
  191. else:
  192. krem -= 1
  193. pcs_tan += 3
  194. 'You smear your body with sunscreen and lie down on your towel for some sunbathing, hoping to work on your tan. You enjoy the warm rays of the sun on your body.'
  195. end
  196. act 'Continue': gt 'gLakeNude'
  197. else
  198. cla
  199. 'You have to take off your clothes before you can lay down to sunbathe.'
  200. act 'Continue': gt 'gLakeNude'
  201. end
  202. end
  203. end
  204. if voyeurism_start = 0:
  205. act 'Look around the beach':
  206. *clr & cla
  207. menu_off = 1
  208. voyeurism_start_view = rand(1,3)
  209. gs 'stat'
  210. if voyeurism_start_view <= 2:
  211. minut += 5
  212. '<center><img <<$set_imgh>> src="images/locations/shared/lake/lake_beach1.jpg"></center>'
  213. 'You look around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
  214. else
  215. voyeurism_start = 1
  216. voyeurism += 1
  217. gs 'arousal', 'voyeur_sex', 5
  218. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  219. 'You look around and notice that a little ways off at the end of the small beach is a pair of lovers laying on the sand. The girl is completely naked and her hand is stroking the guy''s cock through his white pants. The guy turns his head and notices that you look at them. You immediately turn away, blushing terribly and begin to explore your feet as if seeing them for the first time.'
  220. end
  221. act'Back': gt 'gLakeNude'
  222. end
  223. elseif voyeurism_start = 1:
  224. gs 'willpower', 'voyeur', 'self'
  225. if will_cost <= pcs_willpwr:
  226. act 'Watch couple on the beachs (<<will_cost>> Willpower)':
  227. *clr & cla
  228. gs 'willpower', 'voyeur', 'self'
  229. gs 'willpower', 'pay', 'self'
  230. menu_off = 1
  231. gs 'stat'
  232. if voyeurism = 0:
  233. gs 'arousal', 'voyeur_sex', 5
  234. voyeurism += 1
  235. gs 'stat'
  236. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg"></center>'
  237. 'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own feet.<br><dh>"Wha....What am I doing?! Why do I feel like watching... Am I a voyeur? Yes, I am! I''m a girl who likes to watch nude people!"</dh> you think.<br> You can''t remember a single instance in your life when you were watching someone. So is it worth to start doing it now? YES!'
  238. act'Stop Watching!': gt'gLakeNude'
  239. else
  240. voyeurism_start = 2
  241. gs 'arousal', 'voyeur_sex', 30
  242. voyeurism += 1
  243. gs 'stat'
  244. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  245. 'From the corner of your eye you see several naked people. You think they look right at you. You blush and you freeze in terror, tears well up in the corner of your eyes. After a few moments you find yourself looking at your own feet.<br><dh>"Wha....What am I doing?! Why do I feel like watching... Am I a voyeur? Yes, I am! I''m a girl who likes to watch nude people!"</dh> you think.<br> But then you remember how you recently were watching others on the beach and think: <dh>"That was scary, cool, and hot. I need to keep at least one eye always watching."</dh>'
  246. act'Watch the couple': gs'gLakeNudeEvent','gLakeNude_sex'
  247. end
  248. end
  249. else
  250. act 'Watch couple on the beach (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  251. end
  252. elseif voyeurism_start = 2 and (pcs_horny < 90 or pav_slut < 50):
  253. gs 'willpower', 'voyeur', 'self', 'easy'
  254. if will_cost <= pcs_willpwr:
  255. act 'Spy on other nudists on the beach (<<will_cost>> Willpower)':
  256. gs 'willpower', 'voyeur', 'self', 'easy'
  257. gs 'willpower', 'pay', 'self'
  258. menu_off = 1
  259. gs 'stat'
  260. if voyeurism_nudist <= 14 or pav_slut > 50:
  261. voyeurism_nudist += 1
  262. gs 'gLakeNudeEvent','gLakeNude_nudist'
  263. act 'Continue': gt 'gLakeNude'
  264. else
  265. *clr & cla
  266. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
  267. 'You want to watch for nudists, but suddenly notice that you start to feel weird.<br><dh>"Probably spying too much."</dh> you think and look straight ahead.'
  268. act 'Continue': gt'gLakeNude'
  269. end
  270. end
  271. else
  272. act 'Spy on other nudists on the beach (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  273. end
  274. end
  275. if voyeurism >= 17 and voyeurism_start = 2:
  276. if voyeurism_forest = 0:
  277. act 'Explore the forest': gt 'gLakeNudeForest'
  278. else
  279. act 'Hide in the woods near the beach': gt 'gLakeNudeForest'
  280. end
  281. end
  282. end
  283. if $ARGS[0] = 'sauna':
  284. *clr & cla
  285. $menu_loc = 'gLakeNude'
  286. $menu_arg = 'sauna'
  287. $metka = 'sauna'
  288. menu_off = 0
  289. minut += 3
  290. gs 'stat'
  291. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/sauna.jpg"></center>'
  292. 'You walk up the small trail from the beach to the sauna, it is newly built. They say it was built for the tourist, but if that is true, you wonder why they put it on the secluded beach and even then a little ways back from the beach. Surely no tourist would ever find it, either way you and many others are glad they built it. It is well built and nice inside and out, there is three areas to the sauna. The mens section, womens section, and a co-ed section, to use the sauna you need a bikini or some people use it naked.'
  293. if $clothingworntype ! 'nude' or sauna_stripped = 0:
  294. act 'Go back to the beach': gt 'gLakeNude'
  295. else
  296. gs 'willpower', 'exhib', 'self'
  297. if will_cost <= pcs_willpwr:
  298. act 'Go to the beach (<<will_cost>> Willpower)':
  299. gs 'willpower', 'pay', 'self'
  300. gt 'gLakeNude'
  301. end
  302. else
  303. act 'Go to the beach (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  304. end
  305. end
  306. if arrsize('swimwear') > 0:
  307. act 'Use changing room':gt 'changingroom', 'view_swim_list'
  308. else
  309. *nl
  310. 'You should probably buy some swimwear if you intend of spending time at the beach'
  311. end
  312. if $clothingworntype ! 'nude' and (pcs_inhib > 25 or (exhibitionist_lvl > 1 and pcs_horny >= 60)):
  313. act 'Take off your clothes':
  314. *clr & cla
  315. menu_off = 1
  316. minut += 5
  317. sauna_stripped = 1
  318. gs 'clothing', 'strip'
  319. gs 'underwear', 'remove'
  320. gs 'stat'
  321. 'You strip out of your clothes, folding them neatly and placing them in one of the open shelves.'
  322. act 'Continue': gt 'gLakeNude', 'sauna'
  323. end
  324. elseif sauna_stripped = 1:
  325. act 'Put your clothes back on':
  326. cla
  327. menu_off = 1
  328. minut += 5
  329. gs 'clothing', 'wear_last_worn'
  330. gs 'underwear', 'wear'
  331. 'You put your clothes back on.'
  332. act 'Continue': gt 'gLakeNude', 'sauna'
  333. end
  334. end
  335. if $clothingworntype = 'nude' or $clothingworntype = 'swimwear':
  336. act 'Go to the womens section':
  337. *clr & cla
  338. menu_off = 1
  339. minut += 2
  340. gs 'stat'
  341. if hour < 8 or hour > 22:
  342. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
  343. 'It appears to be empty at the moment.'
  344. else
  345. saunarand = rand(1,5)
  346. if saunarand = 4:
  347. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/womennude.jpg"></center>'
  348. 'You find several other girls inside completely naked using the sauna.'
  349. elseif saunarand > 4:
  350. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/womenbikini.jpg"></center>'
  351. 'You find several other girls inside using the sauna while wearing their bikinis.'
  352. else
  353. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
  354. 'It appears to be empty at the moment.'
  355. end
  356. end
  357. act 'Leave': gt 'gLakeNude', 'sauna'
  358. act 'Use the sauna':
  359. *clr & cla
  360. minut +=30
  361. pcs_mood += 10
  362. if sauna_daystart ! daystart:
  363. sauna_daystart = daystart
  364. pcs_skin += rand(2,4)
  365. pcs_willpwr += 3
  366. end
  367. if $clothingworntype = 'swimwear':
  368. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
  369. if pcs_inhib < 40: inhib_exp += rand(0,1)
  370. else
  371. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
  372. if pcs_inhib < 60: inhib_exp += rand(1,2)
  373. end
  374. gs 'stat'
  375. 'You spend 30 minutes relaxing in the sauna.'
  376. act 'Leave': gt 'gLakeNude', 'sauna'
  377. if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
  378. end
  379. end
  380. act 'Go to the mens section':
  381. *clr & cla
  382. menu_off = 1
  383. minut += 2
  384. gs 'stat'
  385. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
  386. 'It appears to be empty at the moment.'
  387. act 'Leave': gt 'gLakeNude', 'sauna'
  388. gs 'willpower', 'exhib', 'self', 'hard'
  389. if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 3
  390. if will_cost <= pcs_willpwr:
  391. act 'Use the sauna (<<will_cost>> Willpower)':
  392. *clr & cla
  393. minut += 30
  394. pcs_mood += 10
  395. if sauna_daystart ! daystart:
  396. sauna_daystart = daystart
  397. pcs_skin += rand(2,4)
  398. pcs_willpwr += 3
  399. end
  400. if $clothingworntype = 'swimwear':
  401. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
  402. if pcs_inhib < 40: inhib_exp += rand(0,1)
  403. else
  404. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
  405. if pcs_inhib < 60: inhib_exp += rand(1,2)
  406. end
  407. 'You spend 30 minutes relaxing in the sauna.'
  408. act 'Leave': gt 'gLakeNude', 'sauna'
  409. if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
  410. end
  411. else
  412. act 'Use the sauna (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  413. end
  414. end
  415. act 'Go to the co-ed section':
  416. *clr & cla
  417. menu_off = 1
  418. minut += 2
  419. gs 'stat'
  420. if hour < 8 or hour > 22:
  421. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
  422. 'It appears to be empty at the moment.'
  423. else
  424. saunarand = rand(1,5)
  425. if saunarand = 4:
  426. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/coednude.jpg"></center>'
  427. 'You find several other people in here, men and women. All of them completely naked.'
  428. elseif saunarand > 4:
  429. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/coedtowel.jpg"></center>'
  430. 'You find several other people in here, men and women. Some are wearing swim wear and others towels.'
  431. else
  432. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunaempty.jpg"></center>'
  433. 'It appears to be empty at the moment.'
  434. end
  435. end
  436. gs 'willpower', 'exhib', 'self', 'easy'
  437. if saunarand < 4 or $clothingworntype = 'swimwear': will_cost = 0
  438. if will_cost <= pcs_willpwr:
  439. act iif(saunarand < 4 or $clothingworntype = 'swimwear', 'Use the sauna', 'Use the sauna (<<will_cost>> Willpower)'):
  440. *clr & cla
  441. gs 'willpower', 'pay', 'self'
  442. minut += 30
  443. pcs_mood += 10
  444. if sauna_daystart ! daystart:
  445. sauna_daystart = daystart
  446. pcs_skin += rand(2,4)
  447. pcs_willpwr += 3
  448. end
  449. if $clothingworntype = 'swimwear':
  450. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunabikini.jpg"></center>'
  451. if pcs_inhib < 40: inhib_exp += rand(0,1)
  452. else
  453. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/saunanude.jpg"></center>'
  454. if pcs_inhib < 60: inhib_exp += rand(1,3)
  455. end
  456. gs 'stat'
  457. 'You spend 30 minutes relaxing in the sauna.'
  458. act 'Leave': gt 'gLakeNude', 'sauna'
  459. if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
  460. end
  461. else
  462. act 'Use the sauna (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  463. end
  464. act 'Leave': gt 'gLakeNude', 'sauna'
  465. end
  466. else
  467. *nl
  468. 'You need to undress or wear a swimsuit to enter the sauna.'
  469. end
  470. end
  471. if $ARGS[0] = 'ice_plunge':
  472. act 'Take a ice plunge':
  473. *clr & cla
  474. minut += 10
  475. pcs_mood += 10
  476. if pcs_sweat > 10: pcs_sweat = 10 + rand(0,4)
  477. if $clothingworntype = 'swimwear':
  478. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/icedipbikini.jpg"></center>'
  479. if pcs_inhib < 50:inhib_exp += rand(0,1)
  480. else
  481. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/sauna/icedipnude.jpg"></center>'
  482. inhib_exp += rand(1,2)
  483. end
  484. gs 'stat'
  485. 'You leave the sauna and as soon as you do the cold air nips at your body, you rush down to the edge of the lake where the ice is broken and a ladder as been put in place and you take the plunge into the ice cold water. It is refreshing the sudden change from the hot sauna to the freezing waters of the lake. After a couple of minutes you climb out of the water.'
  486. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  487. act 'Go back to the sauna': gt 'gLakeNude', 'sauna'
  488. end
  489. end
  490. --- gLakeNude ---------------------------------