Nudelake 3.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135
  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_exhibition > 30:
  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_exhibition > 30:
  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. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/voleybol.jpg"></center>'
  62. 'You go up to the players and ask whether it is possible to join in, they are happy to put you on a team.'
  63. act 'Finish':gt 'Nudelake'
  64. end
  65. end
  66. if $ARGS[0] = 'zagarat':
  67. $location_type = 'event_outdoors'
  68. cls
  69. minut += 30
  70. if pcs_sweat < 35 : pcs_sweat += 5
  71. exhibition_exp += rand(1,3)
  72. pcs_mood += 5
  73. gs 'stat'
  74. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/nudezagarat.jpg"></center>'
  75. if krem = 0:
  76. pcs_tan += 1
  77. 'You go to the beach and sunbathe.'
  78. else
  79. krem -= 1
  80. pcs_tan += 3
  81. 'You smear sunblock on your body and sunbathe.'
  82. end
  83. nzagrand = rand(0, 100)
  84. if nzagrand >= 60 and nzagrand < 70 and npc_rel['A219'] > 30 and katkey = 0:gt 'Katlake', 'key'
  85. if nzagrand >= 70 and nzagrand < 80 and kat = 0 and katday ! daystart:gt 'Katlake'
  86. if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
  87. if nzagrand >= 90:gt 'Vnlake2'
  88. act 'Finish':gt 'Nudelake'
  89. end
  90. if $ARGS[0] = 'swim':
  91. $location_type = 'event_outdoors'
  92. cla
  93. *clr
  94. pcs_makeup = 1
  95. cumspclnt = 4
  96. gs 'cum_cleanup'
  97. minut += 60
  98. if $clothingworntype = 'nude': gs 'exercise', 'tier1', 1, 'stren_exp', 'exhibition_exp'
  99. if $clothingworntype ! 'nude': gs 'exercise', 'tier1', 1, 'stren_exp'
  100. pcs_sweat = 10 + rand(0,4)
  101. '<center><img <<$set_imgh>> src="images/locations/shared/lake/nudeswim.jpg"></center>'
  102. 'You go for a swim.'
  103. act 'Finish':gt 'Nudelake'
  104. end
  105. if $ARGS[0] = 'smotr':
  106. $location_type = 'event_outdoors'
  107. cls
  108. minut += 30
  109. gs 'stat'
  110. '<center><img <<$set_imgh>> src="images/locations/city/residential/lake/voleybol.jpg"></center>'
  111. 'You watch the others play.'
  112. act 'Leave':gt 'Nudelake'
  113. end
  114. --- Nudelake ---------------------------------