1
0

Nudelake.qsrc 6.1 KB

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