1
0

gLakeNude.qsrc 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470
  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. !!check to make sure I did the sound call correct
  12. if sound = 0:PLAY 'sound/lakeshore2.mp3',20
  13. '<center><H4>Secluded beach</H4></center>'
  14. if month >= 3 and month <= 5:
  15. if hour >= 6 and hour <= 17:
  16. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
  17. else
  18. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
  19. end
  20. '<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>'
  21. *nl
  22. elseif month >= 6 and month <= 8:
  23. if hour >= 6 and hour <= 19:
  24. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
  25. else
  26. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.summer.night.jpg"></center>'
  27. end
  28. '<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>'
  29. *nl
  30. elseif month >= 9 and month <= 11:
  31. if hour >= 6 and hour <= 18:
  32. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
  33. else
  34. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
  35. end
  36. '<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>'
  37. *nl
  38. elseif month < 3 or month = 12:
  39. if hour >= 7 and hour <= 16:
  40. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
  41. else
  42. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
  43. end
  44. '<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>'
  45. '<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>'
  46. *nl
  47. end
  48. if storyline = 1 and month >= 3 and month <= 8:
  49. if week >= 6 and hour >= 8 and hour <= 10:
  50. '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>.'
  51. end
  52. end
  53. if $clothingworntype = 'nude':
  54. act'Put your clothes back on':
  55. *clr & cla
  56. menu_off = 1
  57. minut+=5
  58. gs 'clothing', 'wear_last_worn'
  59. gs 'underwear', 'wear'
  60. nudelake = rand(1,10)
  61. if nudelake <= 2:
  62. minut += 5
  63. pcs_mood -= 5
  64. pcs_willpwr -= 5
  65. gs 'exhibitionism', 4
  66. gs 'stat'
  67. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/noclothes.jpg"></center>'
  68. '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.'
  69. act 'Run home naked': gt 'glake', 'nude_home'
  70. else
  71. 'You return to the place where you left your clothes, and put them back on.'
  72. act'Continue':gt'glake'
  73. end
  74. end
  75. end
  76. if temper >= 15 and month >= 5 and month <= 9:
  77. if ARRSIZE('swimwear') > 0 and $clothingworntype ! 'swimwear':
  78. act'Change into your swimwear':
  79. *clr & cla
  80. menu_off = 1
  81. minut += 5
  82. gs 'stat'
  83. if pcs_horny >= 90:
  84. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg"></center>'
  85. 'You want to change into a swimsuit, but with no changing room here and your pussy oozing juices down your leg coupled with the thought that people will see, horrifies you. You abandon the idea.'
  86. '"I should sort out my arousal first." You think to yourself.'
  87. act'Continue':gt'gLakeNude'
  88. else
  89. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg"></center>'
  90. 'You wrap a towel around yourself and you''re ready to change into your swimsuit.'
  91. act'Choose outfit':gt'changingroom', 'view_swim_list'
  92. end
  93. end
  94. end
  95. end
  96. act 'Go to sauna': gt 'gLakeNude', 'sauna'
  97. if temper >= 15 and month>=5 and month<=9 and hour>=6 and hour<=20:
  98. act 'Take a walk along the beach (30 minutes)':
  99. *clr & cla
  100. menu_off = 1
  101. minut += 30
  102. pcs_willpwr += 5
  103. pcs_mood += 5
  104. gs'stat'
  105. if $clothingworntype = 'swimwear' and pcs_hips<=90:
  106. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini0,'+rand(0,3)+'.jpg"></center>'
  107. elseif $clothingworntype = 'swimwear' and pcs_hips >= 90 and pcs_hips<=110:
  108. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,0.jpg"></center>'
  109. elseif $clothingworntype = 'swimwear' and pcs_hips>=110:
  110. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk.bikini.fat0,1.jpg"></center>'
  111. if pcs_inhib < 50:inhib_exp += rand(1,2)
  112. elseif $clothingworntype = 'nude':
  113. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/walknude.jpg"></center>'
  114. inhib_exp += rand(1,3)
  115. else
  116. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.walk0,'+rand(0,2)+'.jpg"></center>'
  117. end
  118. 'You walk along the beach, enjoying the feeling of the sun on your body.'
  119. act 'Continue':gt'glake'
  120. end
  121. if $clothingworntype ! 'nude':
  122. act'Take off your clothes':
  123. menu_off = 1
  124. if pcs_inhib > 30:
  125. *clr & cla
  126. minut+=5
  127. inhib_exp += rand(1,3)
  128. gs 'clothing', 'strip'
  129. gs 'underwear', 'remove'
  130. if pcs_horny >= 80 and exhibitionist_lvl > 1:
  131. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
  132. '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.'
  133. elseif pcs_inhib >= 60:
  134. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  135. '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.'
  136. elseif pcs_inhib < 60:
  137. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  138. '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.'
  139. end
  140. else
  141. *clr & cla
  142. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
  143. 'Even though no one is around, you don''t feel confident enough to actually take your clothes off. What if someone would see you nude?'
  144. end
  145. act'Continue':gt'gLakeNude'
  146. end
  147. end
  148. if hour >= 6 and hour <= 20:
  149. act'Go swimming (30 minutes)':
  150. menu_off = 1
  151. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  152. *clr & cla
  153. cumspclnt = 4
  154. gs 'cum_cleanup'
  155. minut = minut + 30
  156. pcs_mood += 5
  157. pcs_willpwr = pcs_willpwr + 5
  158. if $clothingworntype = 'swimwear':
  159. if pcs_inhib < 50:inhib_exp += rand(1,2)
  160. elseif $clothingworntype = 'nude':
  161. inhib_exp += rand(1,3)
  162. end
  163. if pcs_stren < 30: stren_exp += 1
  164. fat -= 1
  165. if $clothingworntype = 'nude':
  166. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swimnude.jpg"></center>'
  167. inhib_exp += rand(1,2)
  168. else
  169. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/swim.jpg"></center>'
  170. if pcs_inhib < 50:inhib_exp += rand(1,2)
  171. end
  172. 'You play around and have fun in the lake, enjoying the feel of the warm water on your naked body. The clean lake water refreshes and invigorates you.'
  173. act 'Get out of the water':gt'gLakeNude'
  174. else
  175. cla
  176. 'You would ruin your clothes if you go swimming in them. Unless you''re feeling very daring and are prepared to strip nude to go for a swim, you''ll need a bathing suit.'
  177. act'Continue':gt'gLakeNude'
  178. end
  179. end
  180. end
  181. if sunWeather = 1 and hour >= 6 and hour <= 20:
  182. act'Go sunbathing (30 minutes)':
  183. menu_off = 1
  184. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  185. *clr & cla
  186. minut = minut + 30
  187. if pcs_sweat < 35 : pcs_sweat += 5
  188. pcs_mood += 5
  189. if $clothingworntype = 'swimwear':
  190. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbath.jpg"></center>'
  191. if pcs_inhib < 50:inhib_exp += rand(1,2)
  192. else
  193. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathnude.jpg"></center>'
  194. inhib_exp += rand(1,3)
  195. end
  196. if krem = 0:
  197. pcs_tan = pcs_tan + 1
  198. '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.'
  199. else:
  200. krem = krem - 1
  201. pcs_tan = pcs_tan + 3
  202. '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.'
  203. end
  204. act 'Continue':gt'gLakeNude'
  205. else
  206. cla
  207. 'You have to take off your clothes before you can lay down to sunbath.'
  208. act'Continue':gt'gLakeNude'
  209. end
  210. end
  211. end
  212. end
  213. if $ARGS[0] = 'sauna':
  214. *clr & cla
  215. $menu_loc = 'gLakeNude'
  216. $menu_arg = 'sauna'
  217. menu_off = 0
  218. minut += 3
  219. gs 'stat'
  220. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/sauna.jpg"></center>'
  221. '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.'
  222. act 'Go back to the beach': gt 'gLakeNude'
  223. if ARRSIZE('swimwear') > 0: act 'Use changing room':gt 'changingroom', 'view_swim_list'
  224. if $clothingworntype ! 'nude':
  225. act'Take off your clothes':
  226. *clr & cla
  227. menu_off = 1
  228. minut+=5
  229. gs 'clothing', 'strip'
  230. gs 'underwear', 'remove'
  231. gs 'stat'
  232. 'You strip out of your clothes, folding them neatly and placing them in one of the open shelves.'
  233. act 'Continue': gt 'gLakeNude', 'sauna'
  234. end
  235. end
  236. if $clothingworntype = 'nude' or $clothingworntype = 'swimwear':
  237. act 'Go to the womens section':
  238. *clr & cla
  239. menu_off = 1
  240. minut += 2
  241. gs 'stat'
  242. if hour < 8 or hour > 22:
  243. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
  244. 'It appears to be empty at the moment.'
  245. else
  246. saunarand = rand(1,5)
  247. if saunarand = 1:
  248. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/womennude.jpg"></center>'
  249. 'You find several other girls inside completely naked using the sauna.'
  250. elseif saunarand > 4:
  251. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/womenbikini.jpg"></center>'
  252. 'You find several other girls inside using the sauna while wearing their bikinis.'
  253. else
  254. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
  255. 'It appears to be empty at the moment.'
  256. end
  257. end
  258. act 'Leave': gt 'gLakeNude', 'sauna'
  259. act 'Use the sauna':
  260. *clr & cla
  261. minut +=30
  262. pcs_mood += 5
  263. pcs_willpwr += 5
  264. if $clothingworntype = 'swimwear':
  265. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunabikini.jpg"></center>'
  266. if pcs_inhib < 50:inhib_exp += rand(0,1)
  267. else
  268. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunanude.jpg"></center>'
  269. inhib_exp += rand(1,2)
  270. end
  271. gs 'stat'
  272. 'You spend 30 minutes relaxing in the sauna.'
  273. act 'Leave': gt 'gLakeNude', 'sauna'
  274. if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
  275. end
  276. end
  277. act 'Go to the mens section':
  278. *clr & cla
  279. menu_off = 1
  280. minut += 2
  281. gs 'stat'
  282. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
  283. 'It appears to be empty at the moment.'
  284. act 'Leave': gt 'gLakeNude', 'sauna'
  285. act 'Use the sauna':
  286. *clr & cla
  287. minut += 30
  288. pcs_mood += 5
  289. pcs_willpwr += 5
  290. if $clothingworntype = 'swimwear':
  291. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunabikini.jpg"></center>'
  292. if pcs_inhib < 50:inhib_exp += rand(0,1)
  293. else
  294. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunanude.jpg"></center>'
  295. inhib_exp += rand(1,2)
  296. end
  297. 'You spend 30 minutes relaxing in the sauna.'
  298. act 'Leave': gt 'gLakeNude', 'sauna'
  299. if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
  300. end
  301. end
  302. act 'Go to the co-ed section':
  303. *clr & cla
  304. menu_off = 1
  305. minut += 2
  306. gs 'stat'
  307. if hour < 8 or hour > 22:
  308. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
  309. 'It appears to be empty at the moment.'
  310. else
  311. saunarand = rand(1,5)
  312. if saunarand = 1:
  313. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/coednude.jpg"></center>'
  314. 'You find several other people in here, men and women. All of them completely naked.'
  315. elseif saunarand > 4:
  316. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/coedtowel.jpg"></center>'
  317. 'You find several other people in here, men and women. Some are wearing swim wear and others towels.'
  318. else
  319. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/secluded_beach/sauna/saunaempty.jpg"></center>'
  320. 'It appears to be empty at the moment.'
  321. end
  322. end
  323. act 'Leave': gt 'gLakeNude', 'sauna'
  324. act 'Use the sauna':
  325. *clr & cla
  326. minut +=30
  327. pcs_mood += 5
  328. pcs_willpwr += 5
  329. if $clothingworntype = 'swimwear':
  330. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunabikini.jpg"></center>'
  331. if pcs_inhib < 50:inhib_exp += rand(0,1)
  332. else
  333. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/saunanude.jpg"></center>'
  334. inhib_exp += rand(1,3)
  335. end
  336. gs 'stat'
  337. 'You spend 30 minutes relaxing in the sauna.'
  338. act 'Leave': gt 'gLakeNude', 'sauna'
  339. if month = 12 or month < 3: gs 'gLakeNude', 'ice_plunge'
  340. end
  341. end
  342. else
  343. *nl
  344. 'You need to undress or wear a swimsuit to enter the sauna.'
  345. end
  346. end
  347. if $ARGS[0] = 'ice_plunge':
  348. act 'Take a ice plunge':
  349. *clr & cla
  350. minut +=10
  351. pcs_mood += 5
  352. pcs_willpwr += 5
  353. if $clothingworntype = 'swimwear':
  354. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/icedipbikini.jpg"></center>'
  355. if pcs_inhib < 50:inhib_exp += rand(0,1)
  356. else
  357. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/icedipnude.jpg"></center>'
  358. inhib_exp += rand(1,2)
  359. end
  360. gs 'stat'
  361. '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.'
  362. act 'Go back to the sauna': gt 'gLakeNude', 'sauna'
  363. end
  364. end
  365. if temper >= 15 and month >= 5 and month <= 9:
  366. if voyeurism_start = 0:
  367. act'Look around the beach':
  368. *clr & cla
  369. menu_off = 1
  370. minut += 5
  371. voyeurism_start_view = rand(1,3)
  372. gs 'stat'
  373. if voyeurism_start_view <= 2:
  374. '<center><img <<$set_imgh>> src="images/locations/shared/lake/lake_beach1.jpg"></center>'
  375. 'You look around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
  376. else
  377. voyeurism_start = 1
  378. voyeurism += 1
  379. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  380. '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.'
  381. end
  382. act'Back': gt 'gLakeNude'
  383. end
  384. elseif voyeurism_start = 1:
  385. act'Watch couple on the beach':
  386. *clr & cla
  387. menu_off = 1
  388. if voyeurism = 0:
  389. minut += 5
  390. voyeurism += 1
  391. gs 'stat'
  392. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg"></center>'
  393. '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!'
  394. act'Stop Watching!': gt'gLakeNude'
  395. else
  396. voyeurism_start = 2
  397. minut += 50
  398. pcs_horny += 75
  399. voyeurism += 1
  400. gs 'stat'
  401. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  402. '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>'
  403. act'Watch the couple': gs'gLakeNudeEvent','gLakeNude_sex'
  404. end
  405. end
  406. elseif voyeurism_start = 2 and (pcs_horny < 90 or pav_slut < 50):
  407. act 'Spy on other nudists on the beach':
  408. menu_off = 1
  409. gs 'stat'
  410. if voyeurism_nudist <= 14 or pav_slut > 50:
  411. voyeurism_nudist += 1
  412. gs'gLakeNudeEvent','gLakeNude_nudist'
  413. act'Continue': gt 'gLakeNude'
  414. else
  415. *clr & cla
  416. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
  417. '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.'
  418. act'Continue': gt'gLakeNude'
  419. end
  420. end
  421. end
  422. if voyeurism >= 17 and voyeurism_start = 2:
  423. if voyeurism_forest = 0:
  424. act'Explore the forest': gt'gLakeNudeForest'
  425. else
  426. act'Hide in the woods near the beach': gt'gLakeNudeForest'
  427. end
  428. end
  429. $tmp_lakenude_leave = iif($clothingworntype = 'nude', ' without changing', '')
  430. act'Leave the secluded beach<<$tmp_lakenude_leave>>':
  431. if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_inhib >= 60):
  432. cla
  433. minut += 10
  434. gt'glake'
  435. else
  436. msg '<center>You are not willing to show off your naked body on the main beach, what would people say?</center>'
  437. gt'gLakeNude'
  438. end
  439. end
  440. killvar '$tmp_lakenude_leave'
  441. else
  442. act'Leave the now abandoned beach':
  443. cla
  444. minut += 10
  445. gt'glake'
  446. end
  447. end
  448. --- gLakeNude ---------------------------------