1
0

gLakeNude.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277
  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. '<center><H4>Secluded beach</H4></center>'
  12. if month>=3 and month<=5:
  13. if hour>=6 and hour<=17:
  14. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.jpg"></center>'
  15. else
  16. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.spring.night.jpg"></center>'
  17. end
  18. '<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>'
  19. *nl
  20. end
  21. if 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>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
  28. *nl
  29. end
  30. if 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>A small lake, located not far from Pavlovsk. You''re not sure whether Pavlovsk was built near the lake on purpose or not.</center>'
  37. *nl
  38. end
  39. if month=1 or month=2 or month=12:
  40. if hour>=7 and hour<=16:
  41. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.jpg"></center>'
  42. else
  43. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/lake.winter.night.jpg"></center>'
  44. end
  45. '<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>'
  46. '<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>'
  47. *nl
  48. end
  49. '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.'
  50. if month >= 3 and month <= 8:
  51. if week >= 6 and hour >= 8 and hour <= 10:
  52. '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>.'
  53. end
  54. end
  55. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  56. act'Get dressed':
  57. *clr & cla
  58. menu_off = 1
  59. minut+=5
  60. gs 'clothing', 'wear_last_worn'
  61. gs 'underwear', 'wear'
  62. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/dress_nudebeach.jpg"></center>'
  63. 'You put your clothes back on.'
  64. act'Continue':gt'gLakeNude'
  65. end
  66. end
  67. if temper >= 15 and month >= 5 and month <= 9:
  68. if ARRSIZE('swimwear') > 0 and $clothingworntype ! 'swimwear':
  69. act'Change into your swimwear':
  70. *clr & cla
  71. menu_off = 1
  72. minut+=5
  73. if pcs_horny >= 90:
  74. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg"></center>'
  75. '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.'
  76. '"I should sort out my arousal first." You think to yourself.'
  77. act'Continue':gt'gLakeNude'
  78. else
  79. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg"></center>'
  80. 'You wrap a towel around yourself and you''re ready to change into your swimsuit.'
  81. act'Choose outfit':gt'changingroom', 'view_swim_list'
  82. end
  83. end
  84. end
  85. end
  86. if temper >= 15 and month >= 5 and month <= 9:
  87. if $clothingworntype ! 'nude':
  88. act'Take off your clothes':
  89. menu_off = 1
  90. if pcs_inhib > 30:
  91. *clr & cla
  92. minut+=5
  93. gs 'clothing', 'strip'
  94. gs 'underwear', 'remove'
  95. if pcs_horny >= 80 and exhibitionist_lvl > 1:
  96. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
  97. '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.'
  98. elseif pcs_inhib >= 60:
  99. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  100. '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.'
  101. elseif pcs_inhib < 60:
  102. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  103. '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.'
  104. end
  105. else
  106. cla
  107. *clr
  108. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
  109. '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?'
  110. end
  111. act'Continue':gt'gLakeNude'
  112. end
  113. end
  114. if hour >= 6 and hour <= 20:
  115. act'Go swimming (1:00)':
  116. menu_off = 1
  117. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  118. *clr & cla
  119. cumspclnt = 4
  120. gs 'cum_cleanup'
  121. minut = minut + 60
  122. pcs_sweat = 10 + rand(0,4)
  123. pcs_mood += 5
  124. pcs_willpwr = pcs_willpwr + 5
  125. if $clothingworntype = 'swimwear':
  126. if pcs_inhib < 50:inhib_exp += rand(1,2)
  127. elseif $clothingworntype = 'nude':
  128. inhib_exp += rand(1,3)
  129. end
  130. if pcs_stren < 30: stren_exp += 1
  131. if $clothingworntype = 'nude':
  132. '<center><img <<$set_imgh>> src="images/locations/shared/lake/nudeswim.jpg"></center>'
  133. else
  134. '<center><img <<$set_imgh>> src="images/locations/shared/lake/swim.jpg"></center>'
  135. end
  136. '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.'
  137. act 'Get out of the water':gt'gLakeNude'
  138. else
  139. cla
  140. '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.'
  141. act'Continue':gt'gLakeNude'
  142. end
  143. end
  144. end
  145. if sunWeather = 1 and hour >= 6 and hour <= 20:
  146. act'Go sunbathing (1:00)':
  147. menu_off = 1
  148. if $clothingworntype = 'swimwear' or $clothingworntype = 'nude':
  149. *clr & cla
  150. minut = minut + 60
  151. if pcs_sweat < 35 : pcs_sweat += 5
  152. pcs_mood += 5
  153. if $clothingworntype = 'swimwear':
  154. '<center><img <<$set_imgh>> src="images/locations/shared/lake/zagar.jpg"></center>'
  155. if pcs_inhib < 50:inhib_exp += rand(1,2)
  156. else
  157. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
  158. inhib_exp += rand(1,3)
  159. end
  160. if krem = 0:
  161. pcs_tan = pcs_tan + 1
  162. '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.'
  163. else:
  164. krem = krem - 1
  165. pcs_tan = pcs_tan + 3
  166. '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.'
  167. end
  168. act 'Continue':gt'gLakeNude'
  169. !end
  170. !if bikini ! 1 and $clothingworntype ! 'nude':
  171. else
  172. cla
  173. 'You have to take off your clothes before you can lay down to sunbath.'
  174. act'Continue':gt'gLakeNude'
  175. end
  176. end
  177. end
  178. end
  179. ! Imported from Province 03/17/2017 by Finn_Macha
  180. ! Global variable "voyeurism_start" responsible for the start of Events peeping on the beach and allows the player to peek at the nudists.
  181. ! It Is used only here, but between the first and second tick may take a lot of playing time, and therefore defined globally.
  182. if temper >= 15 and month >= 5 and month <= 9:
  183. if voyeurism_start = 0:
  184. act'Look around the beach':
  185. *clr & cla
  186. menu_off = 1
  187. minut += 5
  188. voyeurism_start_view = RAND(1,3)
  189. if voyeurism_start_view <= 2:
  190. '<center><img <<$set_imgh>> src="images/locations/shared/lake/lake_beach1.jpg"></center>'
  191. 'You look around, but see nothing interesting. Just a few others in swimwear or relaxing on the beach.'
  192. else
  193. voyeurism_start = 1
  194. voyeurism += 1
  195. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  196. '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.'
  197. end
  198. act'Back': gt 'gLakeNude'
  199. end
  200. elseif voyeurism_start = 1:
  201. act'Watch couple on the beach':
  202. *clr & cla
  203. menu_off = 1
  204. if voyeurism = 0:
  205. minut += 5
  206. voyeurism += 1
  207. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/lake_legs.jpg"></center>'
  208. '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!'
  209. act'Stop Watching!': gt'gLakeNude'
  210. else
  211. voyeurism_start = 2
  212. minut += 50
  213. pcs_horny += 75
  214. voyeurism += 1
  215. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/voyeurism/voyeurism_start_event.jpg"></center>'
  216. '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>'
  217. act'Watch the couple':
  218. gs'gLakeNudeEvent','gLakeNude_sex'
  219. end
  220. end
  221. end
  222. elseif voyeurism_start = 2 and (pcs_horny < 90 or pav_slut < 50):
  223. act 'Spy on other nudists on the beach':
  224. menu_off = 1
  225. if voyeurism_nudist <= 14 or pav_slut > 50:
  226. voyeurism_nudist += 1
  227. gs'gLakeNudeEvent','gLakeNude_nudist'
  228. act'Continue': gt 'gLakeNude'
  229. else
  230. *clr & cla
  231. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/nudebeachself'+rand(1,3)+'.jpg"></center>'
  232. '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.'
  233. act'Continue': gt'gLakeNude'
  234. end
  235. end
  236. end
  237. if voyeurism >= 17 and voyeurism_start = 2:
  238. if voyeurism_forest = 0:
  239. act'Explore the forest': gt'gLakeNudeForest'
  240. else
  241. act'Hide in the woods near the beach': gt'gLakeNudeForest'
  242. end
  243. end
  244. $tmp_lakenude_leave = iif($clothingworntype = 'nude', ' without changing', '')
  245. act'Leave the secluded beach<<$tmp_lakenude_leave>>':
  246. if $clothingworntype ! 'nude' or ($clothingworntype = 'nude' and pcs_inhib >= 60):
  247. cla
  248. minut += 10
  249. gt'glake'
  250. else
  251. msg '<center>You are not willing to show off your naked body on the main beach, what would people say?</center>'
  252. gt'gLakeNude'
  253. end
  254. end
  255. KILLVAR '$tmp_lakenude_leave'
  256. else
  257. act'Leave the now abandoned beach':
  258. cla
  259. minut += 10
  260. gt'glake'
  261. end
  262. end
  263. --- gLakeNude ---------------------------------