Nudelake 3.3 KB

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