Nudelake.tw 8.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221
  1. :: Nudelake
  2. <<set $here = 'Nudelake'>>
  3. <<set $ARGS = $location_var[$here]>>
  4. <!-- !!2021/03/27-->
  5. <<set $loc = 'Nudelake'>>
  6. <<set $loc_arg = ''>>
  7. <<set $menu_loc = 'Nudelake'>>
  8. <<set $menu_arg = ''>>
  9. <<set $locclass to null>>
  10. <<set $menu_off = 0>>
  11. <<set $location_type = 'secluded'>>
  12. <center><b>nudist beach</b></center>
  13. <<image "locations/city/residential/lake/nudelake.jpg">>
  14. The nudist beach, where clothing is optional.
  15. <<if $wardrobe.PCloswimwear == 1 or $wardrobe.clothingworntype == 'nude'>>
  16. <<actCLA 'Get dressed'>>
  17. <<set $time.minutes += 5>>
  18. <<run $wardrobe.wear_clothes_legacy('clothes',$lastwornclothingtype['swim'],$lastwornclothingnumber['swim'])>>
  19. <<run $wardrobe.wear(['panties',$lastwornpantytype['swim'],$lastwornpantynumber['swim']])>>
  20. <<run $wardrobe.wear(['bra',$lastwornbratype['swim'],$lastwornbranumber['swim']])>>
  21. <<image "locations/pavlovsk/lake/secluded_beach/dress/dress_nudebeach.jpg">>
  22. You put your clothes back on.
  23. <<actCLA 'Continue'>>
  24. <<gt 'Nudelake'>>
  25. <</actCLA>>
  26. <</actCLA>>
  27. <</if>>
  28. <<if getvar("$temper") >= 15 and $time.month >= 5 and $time.month <= 9>>
  29. <<if func('changingroom','count_swim_item') > 0 and $wardrobe.PCloswimwear == 0>>
  30. <<actCLA 'Change into your swimwear'>>
  31. <<set $menu_off = 1>>
  32. <<set $time.minutes += 5>>
  33. <<if $pc.horny >= 90>>
  34. <<image "locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg">>
  35. 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.
  36. "I should sort out my arousal first." you think to yourself.
  37. <<actCLA 'Continue'>>
  38. <<gt 'Nudelake'>>
  39. <</actCLA>>
  40. <<else>>
  41. <<image "locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg">>
  42. You wrap a towel around yourself and you're ready to change into your swimsuit.
  43. <<actCLA 'Choose outfit'>>
  44. <<gt 'changingroom' 'view_swim_list'>>
  45. <</actCLA>>
  46. <</if>>
  47. <</actCLA>>
  48. <</if>>
  49. <</if>>
  50. <<if getvar("$temper") >= 15 and $time.month >= 5 and $time.month <= 9>>
  51. <<if $wardrobe.clothingworntype != 'nude'>>
  52. <<actCLA 'Take off your clothes'>>
  53. <<set $menu_off = 1>>
  54. <<if $pc.pcs_inhib > 30>>
  55. <<set $time.minutes += 5>>
  56. <<setinit $lastwornclothingtype['swim'] = $wardrobe.clothingworntype>>
  57. <<setinit $lastwornclothingnumber['swim'] = $wardrobe.clothingwornnumber>>
  58. <<setinit $lastwornpantytype['swim'] = $wardrobe.pantyworntype>>
  59. <<setinit $lastwornpantynumber['swim'] = $wardrobe.pantywornnumber>>
  60. <<setinit $lastwornbratype['swim'] = $wardrobe.braworntype>>
  61. <<setinit $lastwornbranumber['swim'] = $wardrobe.brawornnumber>>
  62. <<gs 'clothing' 'strip_all'>>
  63. <<if $pc.horny >= 80 and getvar("$exhibitionist_lvl") > 1>>
  64. <<image "locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg">>
  65. <p>You strip off. A few passing men do a double-take and pause 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.</p>
  66. <<elseif $pc.pcs_inhib >= 60>>
  67. <<image "locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg">>
  68. 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.
  69. <<elseif $pc.pcs_inhib < 60>>
  70. <<image "locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg">>
  71. 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.
  72. <</if>>
  73. <<else>>
  74. <<image "locations/pavlovsk/lake/secluded_beach/self/shyness.jpg">>
  75. Even though no one is around, you don't feel confident enough to actually take your clothes off.
  76. <</if>>
  77. <<actCLA 'Continue'>>
  78. <<gt 'Nudelake'>>
  79. <</actCLA>>
  80. <</actCLA>>
  81. <</if>>
  82. <</if>>
  83. <<if $time.hour >= 6 and $time.hour <= 20 and getvar("$temper") >= 15>>
  84. <<if $wardrobe.clothingworntype == 'nude'>>
  85. Here you can <<link "sunbathe">><<gt 'Nudelake' 'zagarat'>><</link>> and <<link "swim">><<gt 'Nudelake' 'swim'>><</link>>
  86. <<actCLA 'Go swimming'>>
  87. <<gt 'Nudelake' 'swim'>>
  88. <</actCLA>>
  89. <<actCLA 'Sunbathe'>>
  90. <<gt 'Nudelake' 'zagarat'>>
  91. <</actCLA>>
  92. You can play <<link "beach volleyball">><<gt 'Nudelake' 'voleybol'>><</link>>.
  93. <</if>>
  94. <<elseif $time.hour >= 6 and $time.hour <= 20>>
  95. It's too cold for any nudist activities.
  96. <<else>>
  97. The nudist beach is closed.
  98. <</if>>
  99. <<if $wardrobe.clothingworntype == 'nude'>>
  100. <<actCLA 'Get dressed'>>
  101. <<run $wardrobe.wear_clothes_legacy('clothes',$lastwornclothingtype['swim'],$lastwornclothingnumber['swim'])>>
  102. <<run $wardrobe.wear(['panties',$lastwornpantytype['swim'],$lastwornpantynumber['swim']])>>
  103. <<run $wardrobe.wear(['bra',$lastwornbratype['swim'],$lastwornbranumber['swim']])>>
  104. <</actCLA>>
  105. <<else>>
  106. <<actCLA 'Return to the main beach'>>
  107. <<gt 'city_lake' 'start'>>
  108. <</actCLA>>
  109. <</if>>
  110. <<if $katday != $time.daystart and $npcs.get('A219','rel') >= 1 and getvar("$temper") >= 15>>
  111. You see Kat on the beach.
  112. <<actCLA 'Approach Kat'>>
  113. <<gt 'Katlake' 'kat'>>
  114. <</actCLA>>
  115. <</if>>
  116. <<if $location_var[$here][0] == 'voleybol'>>
  117. <<set $location_type = 'event_outdoors'>>
  118. <<set $menu_loc = 'Nudelake'>>
  119. <<set $menu_arg = 'voleybol'>>
  120. <<set $menu_off = 0>>
  121. <<set $time.minutes += 1>>
  122. <<image "locations/city/residential/lake/volleyball.jpg">>
  123. You go to the volleyball court.
  124. <<actCLA 'Watch'>>
  125. <<gt 'Nudelake' 'smotr'>>
  126. <</actCLA>>
  127. <<actCLA 'Leave'>>
  128. <<gt 'Nudelake'>>
  129. <</actCLA>>
  130. <<actCLA 'Play'>>
  131. <<set $menu_off = 1>>
  132. <<run $pc.skillExperienceGain('agility',1)>>
  133. <<run $pc.skillExperienceGain('reaction',1)>>
  134. <<run $pc.skillExperienceGain('volleyball',rand(1,3))>>
  135. <<set $time.minutes += 30>>
  136. <<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
  137. <<image "locations/city/residential/lake/volleyball.jpg">>
  138. You go up to the players and ask whether it is possible to join in. They are happy to put you on a team.
  139. <<actCLA 'Finish'>>
  140. <<gt 'Nudelake'>>
  141. <</actCLA>>
  142. <</actCLA>>
  143. <</if>>
  144. <<if $location_var[$here][0] == 'zagarat'>>
  145. <<set $location_type = 'event_outdoors'>>
  146. <<set $time.minutes += 30>>
  147. <<if $pc.pcs_sweat < 35>>
  148. <<gs 'sweat' 'add' 5>>
  149. <</if>>
  150. <<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
  151. <<set $pc.mood += 5>>
  152. <<set $menu_off = 1>>
  153. <<image "locations/shared/lake/tanning_nude.jpg">>
  154. <<if $inventory.get("sunblock") == 0>>
  155. <<set $pc.tan += 1>>
  156. You go to the beach and sunbathe.
  157. <<else>>
  158. <<run $inventory.dec('sunblock',1)>>
  159. <<set $pc.tan += 3>>
  160. You smear sunblock on your body and sunbathe.
  161. <</if>>
  162. <<set $nzagrand = rand(0, 100)>>
  163. <<if getvar("$nzagrand") >= 60 and getvar("$nzagrand") < 70 and $npcs.get('A219','rel') > 30 and getvar("$katkey") == 0>>
  164. <<gt 'Katlake' 'key'>>
  165. <</if>>
  166. <<if getvar("$nzagrand") >= 70 and getvar("$nzagrand") < 80 and getvar("$kat") == 0 and $katday != $time.daystart>>
  167. <<gt 'Katlake'>>
  168. <</if>>
  169. <<if getvar("$nzagrand") >= 80 and getvar("$nzagrand") < 90>>
  170. <<gt 'Vnlake1'>>
  171. <</if>>
  172. <<if getvar("$nzagrand") >= 90>>
  173. <<gt 'Vnlake2'>>
  174. <</if>>
  175. <<actCLA 'Finish'>>
  176. <<gt 'Nudelake'>>
  177. <</actCLA>>
  178. <</if>>
  179. <<if $location_var[$here][0] == 'swim'>>
  180. <<set $location_type = 'event_outdoors'>>
  181. <<set $menu_off = 0>>
  182. <<set $pc.pcs_makeup = 1>>
  183. <<set $cumspclnt = 4>>
  184. <<gs 'cum_cleanup'>>
  185. <<set $time.minutes += 60>>
  186. <<if $wardrobe.clothingworntype == 'nude'>>
  187. <<gs 'exercise' 'tier1' 1 'stren'>>
  188. <<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
  189. <<else>>
  190. <<gs 'exercise' 'tier1' 1 'stren'>>
  191. <<if $pc.pcs_inhib < 50>>
  192. <<run $pc.skillExperienceGain('inhibition',rand(1,3))>>
  193. <</if>>
  194. <</if>>
  195. <<set $pc.pcs_sweat = 10 + rand(0,4)>>
  196. <<image `'pc/activities/swim/lake/swim_nude_'+rand(0,10)+'.jpg'`>>
  197. You go for a swim.
  198. <<if $pc.deodorant_on == 1>>
  199. <<gs 'sweat' 'remove_deo'>>
  200. <</if>>
  201. <<actCLA 'Finish'>>
  202. <<gt 'Nudelake'>>
  203. <</actCLA>>
  204. <</if>>
  205. <<if $location_var[$here][0] == 'smotr'>>
  206. <<set $location_type = 'event_outdoors'>>
  207. <<set $menu_off = 0>>
  208. <<set $time.minutes += 30>>
  209. <<image "locations/city/residential/lake/volleyball.jpg">>
  210. You watch the others play.
  211. <<actCLA 'Leave'>>
  212. <<gt 'Nudelake'>>
  213. <</actCLA>>
  214. <</if>>