Nudelake 3.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129
  1. # Nudelake
  2. $location_type = 'secluded'
  3. '<center><b>nudist beach</b></center>'
  4. '<center><img src="images/img/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 >= 20:
  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 src="images/img/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 += 1
  52. react += 1
  53. speed += 1
  54. minut += 30
  55. '<center><img src="images/img/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 sweat < 35 : sweat += 5
  65. manna += 5
  66. gs 'stat'
  67. '<center><img src="images/img/lake/nudezagarat.jpg"></center>'
  68. if krem = 0:
  69. tan += 1
  70. 'You go to the beach and sunbathe.'
  71. else
  72. krem -= 1
  73. tan += 3
  74. 'You smear sunblock on your body and sunbathe.'
  75. end
  76. nzagrand = rand(0, 100)
  77. if nzagrand >= 60 and nzagrand < 70 and kat > 30 and katkey = 0:gt 'Katlake', 'key'
  78. if nzagrand >= 70 and nzagrand < 80 and kat = 0 and katday ! daystart:gt 'Katlake'
  79. if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
  80. if nzagrand >= 90:gt 'Vnlake2'
  81. act 'Finish':gt 'Nudelake'
  82. end
  83. if $ARGS[0] = 'swim':
  84. $location_type = 'event_outdoors'
  85. cla
  86. *clr
  87. cumspclnt = 4
  88. gs 'cum_cleanup'
  89. minut += 60
  90. sweat = 10 + rand(0,4)
  91. manna += 5
  92. willpower += 5
  93. if stren < 30:stren += 1 + (steroid_dose - rand(0,steroid_dose)) & gs 'obj_din', 'steroids'
  94. '<center><img src="images/img/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 src="images/img/lake/voleybol.jpg"></center>'
  104. 'You watch the others play.'
  105. act 'Leave':gt 'Nudelake'
  106. end
  107. --- Nudelake ---------------------------------