1
0

Nudelake.qsrc 6.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216
  1. # Nudelake
  2. !!2021/03/27
  3. $loc = 'Nudelake'
  4. $loc_arg = ''
  5. $menu_loc = 'Nudelake'
  6. $menu_arg = ''
  7. killvar '$locclass'
  8. menu_off = 0
  9. $location_type = 'secluded'
  10. '<center><b>nudist beach</b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudelake.jpg"></center>'
  12. 'The nudist beach, where clothing is optional.'
  13. if PCloswimwear = 1 or $clothingworntype = 'nude':
  14. act'Get dressed':
  15. cla
  16. *clr
  17. minut+=5
  18. gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
  19. gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
  20. gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
  21. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/dress_nudebeach.jpg"></center>'
  22. 'You put your clothes back on.'
  23. act'Continue':gt'Nudelake'
  24. end
  25. end
  26. if temper >= 15 and month >= 5 and month <= 9:
  27. if func('changingroom','count_swim_item') > 0 and PCloswimwear = 0:
  28. act'Change into your swimwear':
  29. menu_off = 1
  30. cla
  31. *clr
  32. minut+=5
  33. if pcs_horny >= 90:
  34. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants1.jpg"></center>'
  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. act'Continue':gt'Nudelake'
  38. else
  39. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/swimsuit_nudebeach.jpg"></center>'
  40. 'You wrap a towel around yourself and you''re ready to change into your swimsuit.'
  41. act'Choose outfit':gt'changingroom', 'view_swim_list'
  42. end
  43. end
  44. end
  45. end
  46. if temper >= 15 and month >= 5 and month <= 9:
  47. if $clothingworntype ! 'nude':
  48. act'Take off your clothes':
  49. menu_off = 1
  50. if pcs_inhib > 30:
  51. cla
  52. *clr
  53. minut += 5
  54. $lastwornclothingtype['swim'] = $clothingworntype
  55. lastwornclothingnumber['swim'] = clothingwornnumber
  56. $lastwornpantytype['swim'] = $pantyworntype
  57. lastwornpantynumber['swim'] = pantywornnumber
  58. $lastwornbratype['swim'] = $braworntype
  59. lastwornbranumber['swim'] = brawornnumber
  60. gs 'clothing', 'strip_all'
  61. if pcs_horny >= 80 and exhibitionist_lvl > 1:
  62. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/wetpussypants3.jpg"></center>'
  63. '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.'
  64. elseif pcs_inhib >= 60:
  65. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  66. '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.'
  67. elseif pcs_inhib < 60:
  68. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/dress/undressnudebeach.jpg"></center>'
  69. '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.'
  70. end
  71. else
  72. cla
  73. *clr
  74. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/secluded_beach/self/shyness.jpg"></center>'
  75. 'Even though no one is around, you don''t feel confident enough to actually take your clothes off.'
  76. end
  77. act'Continue':gt'Nudelake'
  78. end
  79. end
  80. end
  81. gs 'stat'
  82. if hour >= 6 and hour <= 20 and temper >= 15:
  83. if $clothingworntype = 'nude':
  84. 'Here you can <a href="exec:gt ''Nudelake'', ''zagarat''">sunbathe</a> and <a href="exec:gt ''Nudelake'', ''swim''">swim</a>'
  85. act 'Go swimming': gt 'Nudelake', 'swim'
  86. act 'Sunbathe': gt 'Nudelake', 'zagarat'
  87. 'You can play <a href="exec:gt ''Nudelake'', ''voleybol''">beach volleyball</a>.'
  88. end
  89. elseif hour >= 6 and hour <= 20:
  90. 'It''s too cold for any nudist activities.'
  91. else
  92. 'The nudist beach is closed.'
  93. end
  94. if $clothingworntype = 'nude':
  95. act 'Get dressed':
  96. gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
  97. gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
  98. gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
  99. end
  100. else
  101. act 'Return to the main beach':gt 'city_lake', 'start'
  102. end
  103. if katday ! daystart and npc_rel['A219'] >= 1 and temper >= 15:
  104. 'You see Kat on the beach.'
  105. act 'Approach Kat':gt 'Katlake', 'kat'
  106. end
  107. if $ARGS[0] = 'voleybol':
  108. $location_type = 'event_outdoors'
  109. $menu_loc = 'Nudelake'
  110. $menu_arg = 'voleybol'
  111. menu_off = 0
  112. *clr & cla
  113. minut += 1
  114. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/volleyball.jpg"></center>'
  115. 'You go to the volleyball court.'
  116. act 'Watch':gt 'Nudelake', 'smotr'
  117. act 'Leave':gt 'Nudelake'
  118. act 'Play':
  119. menu_off = 1
  120. cla
  121. *clr
  122. agil_exp += 1
  123. react_exp += 1
  124. vball_exp += rand(1,3)
  125. minut += 30
  126. inhib_exp += rand(1,3)
  127. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/volleyball.jpg"></center>'
  128. 'You go up to the players and ask whether it is possible to join in. They are happy to put you on a team.'
  129. act 'Finish':gt 'Nudelake'
  130. end
  131. end
  132. if $ARGS[0] = 'zagarat':
  133. $location_type = 'event_outdoors'
  134. *clr & cla
  135. minut += 30
  136. if pcs_sweat < 35 : gs 'sweat', 'add', 5
  137. inhib_exp += rand(1,3)
  138. pcs_mood += 5
  139. menu_off = 1
  140. gs 'stat'
  141. '<center><img <<$set_imgh>> src="images/locations/shared/lake/tanning_nude.jpg"></center>'
  142. if krem = 0:
  143. pcs_tan += 1
  144. 'You go to the beach and sunbathe.'
  145. else
  146. krem -= 1
  147. pcs_tan += 3
  148. 'You smear sunblock on your body and sunbathe.'
  149. end
  150. nzagrand = rand(0, 100)
  151. if nzagrand >= 60 and nzagrand < 70 and npc_rel['A219'] > 30 and katkey = 0:gt 'Katlake', 'key'
  152. if nzagrand >= 70 and nzagrand < 80 and kat = 0 and katday ! daystart:gt 'Katlake'
  153. if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
  154. if nzagrand >= 90:gt 'Vnlake2'
  155. act 'Finish':gt 'Nudelake'
  156. end
  157. if $ARGS[0] = 'swim':
  158. $location_type = 'event_outdoors'
  159. menu_off = 0
  160. cla
  161. *clr
  162. pcs_makeup = 1
  163. cumspclnt = 4
  164. gs 'cum_cleanup'
  165. minut += 60
  166. if $clothingworntype = 'nude':
  167. gs 'exercise', 'tier1', 1, 'stren_exp'
  168. inhib_exp += rand(1,3)
  169. else
  170. gs 'exercise', 'tier1', 1, 'stren_exp'
  171. if pcs_inhib < 50:inhib_exp += rand(1,3)
  172. end
  173. pcs_sweat = 10 + rand(0,4)
  174. '<center><img <<$set_imgh>> src="images/pc/activities/swim/lake/swim_nude_<<rand(0,10)>>.jpg"></center>'
  175. 'You go for a swim.'
  176. if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the water.'
  177. act 'Finish':gt 'Nudelake'
  178. end
  179. if $ARGS[0] = 'smotr':
  180. $location_type = 'event_outdoors'
  181. menu_off = 0
  182. *clr & cla
  183. minut += 30
  184. gs 'stat'
  185. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/volleyball.jpg"></center>'
  186. 'You watch the others play.'
  187. act 'Leave':gt 'Nudelake'
  188. end
  189. --- Nudelake ---------------------------------