gLakeNude 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263
  1. # gLakeNude
  2. $location_type = 'secluded'
  3. $loc = $curloc
  4. cls
  5. gs'stat'
  6. '<center><H4>Secluded beach</H4></center>'
  7. if month>=3 and month<=5:
  8. if hour>=6 and hour<=17:
  9. '<center><img src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
  10. else
  11. '<center><img src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
  12. end
  13. '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
  14. ''
  15. end
  16. if month>=6 and month<=8:
  17. if hour>=6 and hour<=19:
  18. '<center><img src="images/locations/pavlovsk/lake/lake.summer.jpg"></center>'
  19. else
  20. '<center><img src="images/locations/pavlovsk/lake/lake.summer.night.jpg"></center>'
  21. end
  22. '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
  23. ''
  24. end
  25. if month>=9 and month<=11:
  26. if hour>=6 and hour<=18:
  27. '<center><img src="images/locations/pavlovsk/lake/lake.autumn.jpg"></center>'
  28. else
  29. '<center><img src="images/locations/pavlovsk/lake/lake.autumn.night.jpg"></center>'
  30. end
  31. '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
  32. ''
  33. end
  34. if month=1 or month=2 or month=12:
  35. if hour>=7 and hour<=16:
  36. '<center><img src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
  37. else
  38. '<center><img src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
  39. end
  40. '<center>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
  41. '<center>Ever since winter arrived, the lake in Pavlovsk has been frozen over. The lake is being used as a skating rink and lots of people go to skate there every day; if you have skates you could join them.</center>'
  42. ''
  43. end
  44. 'This small natural beach is hidden away from the general public. To reach it you had to travel around the lake along a forest trail. On this secluded beach you can often find sunbathers and people skinny dipping, including people from other towns and even some from the city.'
  45. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  46. act'Get dressed':
  47. cla
  48. *clr
  49. minut+=5
  50. gs 'clothing', 'wear_last_worn'
  51. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/dress_nudebeach.jpg"></center>'
  52. 'You put your clothes back on.'
  53. act'Continue':gt'gLakeNude'
  54. end
  55. end
  56. if temper >= 15 and month >= 5 and month <= 9:
  57. if $clothingworntype ! 'nude':
  58. act'Change into your swimwear':
  59. cla
  60. *clr
  61. minut+=5
  62. if pcs_horny >= 90:
  63. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg"></center>'
  64. '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.'
  65. '"I should sort out my arousal first." You think to yourself.'
  66. act'Continue':gt'gLakeNude'
  67. else
  68. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg"></center>'
  69. 'You wrap a towel around yourself and you''re ready to change into your swimsuit.'
  70. act'Choose outfit':gt'changingroom', 'view_swim_list'
  71. end
  72. end
  73. end
  74. end
  75. if temper >= 15 and month >= 5 and month <= 9:
  76. if $clothingworntype ! 'nude':
  77. act'Take off your clothes':
  78. if pcs_exhibition > 35 and pcs_horny >= 90:
  79. cla
  80. *clr
  81. minut+=5
  82. gs 'clothing', 'strip'
  83. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
  84. '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.'
  85. act'Continue':gt'gLakeNude'
  86. elseif pcs_exhibition >= 50:
  87. cla
  88. *clr
  89. minut+=5
  90. gs 'clothing', 'strip'
  91. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  92. 'Not caring if anyone is looking at you, you slowly take off your clothes. You peel off each item like a stripper. You feel so naughty. Soon, you completely naked.'
  93. act'Continue':gt'gLakeNude'
  94. elseif pcs_exhibition > 35 and pcs_exhibition < 50:
  95. cla
  96. *clr
  97. minut+=5
  98. gs 'clothing', 'strip'
  99. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  100. '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.'
  101. act'Continue':gt'gLakeNude'
  102. else
  103. cla
  104. *clr
  105. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
  106. '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?'
  107. act'Continue':gt'gLakeNude'
  108. end
  109. end
  110. end
  111. if hour >= 6 and hour <= 20:
  112. act'Go swimming (1:00)':
  113. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  114. cla
  115. *clr
  116. cumspclnt = 4
  117. gs 'cum_cleanup'
  118. minut = minut + 60
  119. pcs_sweat = 10 + rand(0,4)
  120. pcs_mood += 5
  121. pcs_willpwr = pcs_willpwr + 5
  122. if pcs_stren < 30: stren_exp += 1
  123. if $clothingworntype = 'nude':
  124. '<center><img src="images/locations/shared/lake/nudeswim.jpg"></center>'
  125. else
  126. '<center><img src="images/locations/shared/lake/swim.jpg"></center>'
  127. end
  128. '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.'
  129. act 'Get out of the water':gt'gLakeNude'
  130. else
  131. cla
  132. '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.'
  133. act'Continue':gt'gLakeNude'
  134. end
  135. end
  136. end
  137. if sunWeather = 1 and hour >= 6 and hour <= 20:
  138. act'Go sunbathing (1:00)':
  139. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  140. cla
  141. *clr
  142. minut = minut + 60
  143. if pcs_sweat < 35 : pcs_sweat += 5
  144. pcs_mood += 5
  145. if bikini = 1:
  146. '<center><img src="images/locations/shared/lake/zagar.jpg"></center>'
  147. else
  148. '<center><img src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
  149. end
  150. if krem = 0:
  151. pcs_tan = pcs_tan + 1
  152. 'You lie down on your towel for some sunbathing and hopefully a nicer tan, and enjoy the warm rays of the sun for an hour.'
  153. elseif krem > 0:
  154. krem = krem - 1
  155. pcs_tan = pcs_tan + 3
  156. '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 for an hour.'
  157. end
  158. act 'Continue':gt'gLakeNude'
  159. !end
  160. !if bikini ! 1 and $clothingworntype ! 'nude':
  161. else
  162. cla
  163. 'You have to take off your clothes before you can lay down to sunbath.'
  164. act'Continue':gt'gLakeNude'
  165. end
  166. end
  167. end
  168. end
  169. ! Imported from Province 03/17/2017 by Finn_Macha
  170. ! Global variable "voyeurism_start" responsible for the start of Events peeping on the beach and allows the player to peek at the nudists.
  171. ! It Is used only here, but between the first and second tick may take a lot of playing time, and therefore defined globally.
  172. if voyeurism_start = 0:
  173. act'Look around the beach':
  174. cla
  175. *clr
  176. minut += 5
  177. voyeurism_start_view = RAND(1,3)
  178. if voyeurism_start_view <= 2:
  179. '<center><img src="images/locations/shared/lake/lake_beach1.jpg"></center>'
  180. 'You looked around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
  181. else
  182. voyeurism_start = 1
  183. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  184. '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 a guy`s cock through his white pants. The guy turns his head d notices that you looking at them. You immediately turn away, blushing terribly and begin to explore your feet as if seeing them for the first time.'
  185. end
  186. act'Back': gt 'gLakeNude'
  187. end
  188. if voyeurism_start = 1:
  189. act'Watch couple on the beach':
  190. cla
  191. *clr
  192. if voyeurism = 0:
  193. minut += 5
  194. voyeurism += 1
  195. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/lake_legs.jpg"></center>'
  196. 'From the corner of your eye you see several naked people. You think they looking 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 from 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!'
  197. act'Stop Watching!': gt'gLakeNude'
  198. else
  199. voyeurism_start = 2
  200. minut += 50
  201. pcs_horny += 75
  202. voyeurism += 1
  203. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  204. 'From the corner of your eye you see several naked people. You think they looking 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 from 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>'
  205. act'Watch the couple':
  206. gs'gLakeNudeEvent','gLakeNude_sex'
  207. end
  208. end
  209. end
  210. if voyeurism_start = 2 and (psc_horny < 90 or pav_slut < 50):
  211. act 'Watch other people on the beach':
  212. if voyeurism_nudist <= 14 or pav_slut > 50:
  213. voyeurism_nudist += 1
  214. gs'gLakeNudeEvent','gLakeNude_nudist'
  215. act'Continue': gt 'gLakeNude'
  216. else
  217. cla
  218. *clr
  219. '<center><img src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself"></center>'
  220. 'You want to podsmatrivanie for nudists, but suddenly notice that you started to talk weird.<br><dh>— Probably enough to spy.</dh> — you think and look straight ahead.'
  221. act'Continue': gt'gLakeNude'
  222. end
  223. end
  224. end
  225. if voyeurism >= 40 and voyeurism_start = 2:
  226. if voyeurism_forest = 0:
  227. act'Explore the forest': gt'gLakeNudeForest'
  228. else
  229. act'Hide in the woods near the beach': gt'gLakeNudeForest'
  230. end
  231. end
  232. end
  233. end
  234. if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_exhibition > 50):
  235. act'Leave the secluded beach without changing':
  236. cla
  237. minut += 10
  238. gt'glake'
  239. else
  240. msg '<center>You are not willing to show off your naked body on the main beach, what would people say?</center>'
  241. gt'gLakeNude'
  242. end
  243. end
  244. --- gLakeNude ---------------------------------