1
0

Nudelake 2.7 KB

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