1
1

Nudelake.qsrc 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. # Nudelake
  2. $location_type = 'secluded'
  3. '<center><b>nudist beach</b></center>'
  4. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudelake.jpg"></center>'
  5. 'The nudist beach - clothing optional.'
  6. if $clothingworntype ! 'swimwear' and $clothingworntype ! 'nude':
  7. if pcs_inhib > 50:
  8. minut += 5
  9. gs 'underwear', 'remove'
  10. gs 'clothing', 'strip'
  11. 'You strip naked, enjoying the warm breeze on your bare skin.'
  12. else
  13. 'You feel uncomfortable here in your clothes but you don''t have the confidence to go nude. Maybe you would be OK in swimwear?'
  14. act 'Return': gt 'lake', 'start'
  15. exit
  16. end
  17. elseif $clothingworntype = 'swimwear':
  18. if pcs_inhib > 50:
  19. act'Strip naked':
  20. cls
  21. minut += 5
  22. gs 'underwear', 'remove'
  23. gs 'clothing', 'strip'
  24. xgt 'Nudelake'
  25. end
  26. end
  27. end
  28. gs 'stat'
  29. if hour >= 6 and hour <= 20 and temper >= 15:
  30. 'Here you can <a href="exec:gt ''Nudelake'', ''zagarat''">sunbathe</a> and <a href="exec:gt ''Nudelake'', ''swim''">swim</a>'
  31. 'Also, you can play <a href="exec:gt ''Nudelake'', ''voleybol''">beach volleyball</a>'
  32. elseif hour >= 6 and hour <= 20:
  33. 'Its too cold for any nudist activities.'
  34. else
  35. 'The nudist beach is closed.'
  36. end
  37. act 'Return to the main beach':
  38. if $clothingworntype = 'nude':gs 'clothing', 'wear_last_worn'
  39. gs 'underwear', 'wear'
  40. gt 'lake', 'start'
  41. end
  42. if katday ! daystart and npc_rel['A219'] >= 1:
  43. 'You see Kat on the beach.'
  44. act 'Approach Kat':gt 'Katlake', 'kat'
  45. end
  46. if $ARGS[0] = 'voleybol':
  47. $location_type = 'event_outdoors'
  48. cls
  49. minut += 1
  50. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/voleybol.jpg"></center>'
  51. 'You go to the volleyball court.'
  52. act 'Watch':gt 'Nudelake', 'smotr'
  53. act 'Leave':gt 'Nudelake'
  54. act 'Play':
  55. cla
  56. *clr
  57. agil_exp += 1
  58. react_exp += 1
  59. vball_exp += rand(1,3)
  60. minut += 30
  61. inhib_exp += rand(1,3)
  62. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/voleybol.jpg"></center>'
  63. 'You go up to the players and ask whether it is possible to join in, they are happy to put you on a team.'
  64. act 'Finish':gt 'Nudelake'
  65. end
  66. end
  67. if $ARGS[0] = 'zagarat':
  68. $location_type = 'event_outdoors'
  69. cls
  70. minut += 30
  71. if pcs_sweat < 35 : pcs_sweat += 5
  72. inhib_exp += rand(1,3)
  73. pcs_mood += 5
  74. gs 'stat'
  75. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
  76. if krem = 0:
  77. pcs_tan += 1
  78. 'You go to the beach and sunbathe.'
  79. else
  80. krem -= 1
  81. pcs_tan += 3
  82. 'You smear sunblock on your body and sunbathe.'
  83. end
  84. nzagrand = rand(0, 100)
  85. if nzagrand >= 60 and nzagrand < 70 and npc_rel['A219'] > 30 and katkey = 0:gt 'Katlake', 'key'
  86. if nzagrand >= 70 and nzagrand < 80 and kat = 0 and katday ! daystart:gt 'Katlake'
  87. if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
  88. if nzagrand >= 90:gt 'Vnlake2'
  89. act 'Finish':gt 'Nudelake'
  90. end
  91. if $ARGS[0] = 'swim':
  92. $location_type = 'event_outdoors'
  93. cla
  94. *clr
  95. pcs_makeup = 1
  96. cumspclnt = 4
  97. gs 'cum_cleanup'
  98. minut += 60
  99. if $clothingworntype = 'nude':
  100. gs 'exercise', 'tier1', 1, 'stren_exp'
  101. gs 'exhibitionism', 2
  102. inhib_exp += rand(1,3)
  103. else
  104. gs 'exercise', 'tier1', 1, 'stren_exp'
  105. if pcs_inhib < 50:inhib_exp += rand(1,3)
  106. end
  107. pcs_sweat = 10 + rand(0,4)
  108. '<center><img <<$set_imgh>> src="images/locations/shared/lake/nudeswim.jpg"></center>'
  109. 'You go for a swim.'
  110. act 'Finish':gt 'Nudelake'
  111. end
  112. if $ARGS[0] = 'smotr':
  113. $location_type = 'event_outdoors'
  114. cls
  115. minut += 30
  116. gs 'stat'
  117. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/voleybol.jpg"></center>'
  118. 'You watch the others play.'
  119. act 'Leave':gt 'Nudelake'
  120. end
  121. --- Nudelake ---------------------------------