Nudelake 3.5 KB

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