1
0

Nudelake 2.6 KB

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