Nudelake.qsrc 6.3 KB

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