1
0

Nudelake 2.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102
  1. # Nudelake
  2. gs 'stat'
  3. '<center><b>nudist beach</b></center>'
  4. '<center><img src="images/img/Lake/Nudelake.jpg"></center>'
  5. 'Here you can walk naked and no one will blame you.'
  6. if hour >= 6 and hour <= 20:
  7. 'Here you can <a href="exec:gt ''Nudelake'', ''zagarat''">tanning</a> and <a href="exec:gt ''Nudelake'', ''swim''">swim</a>'
  8. 'And, you can play <a href="exec:gt ''Nudelake'', ''voleybol''">beach volleyball</a>'
  9. end
  10. act 'Go to the main beach':gt 'lake', 'start'
  11. if katday ! day and kat >= 1:
  12. 'You see at the beach Cat.'
  13. act 'Approach the Cat':gt 'Katlake', 'kat'
  14. end
  15. if $ARGS[0] = 'voleybol':
  16. cls
  17. minut += 1
  18. '<center><img src="images/img/Lake/voleybol.jpg"></center>'
  19. 'You came to the volleyball court.'
  20. act 'Watch':gt 'Nudelake', 'smotr'
  21. act 'Leave':gt 'Nudelake'
  22. act 'Play':
  23. cla
  24. *clr
  25. agil += 1
  26. react += 1
  27. speed += 1
  28. minut += 30
  29. '<center><img src="images/img/Lake/voleybol.jpg"></center>'
  30. 'You go up to the players and ask whether it is possible to join, you will be happy to take the team.'
  31. act 'Finish':gt 'Nudelake'
  32. end
  33. end
  34. if $ARGS[0] = 'zagarat':
  35. cls
  36. minut += 30
  37. sweat += 1
  38. manna += 5
  39. gs 'stat'
  40. '<center><img src="images/img/Lake/nudezagarat.jpg"></center>'
  41. if krem = 0:
  42. tan += 1
  43. 'You went to the beach to sunbathe.'
  44. else
  45. krem -= 1
  46. tan += 3
  47. 'You smeared body sunblock and went to sunbathe.'
  48. end
  49. nzagrand = rand(0, 100)
  50. if nzagrand >= 60 and nzagrand < 70 and kat > 30 and katkey = 0:gt 'Katlake', 'key'
  51. if nzagrand >= 70 and nzagrand < 80 and kat = 0 and katday ! day:gt 'Katlake'
  52. if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
  53. if nzagrand >= 90:gt 'Vnlake2'
  54. act 'Finish':gt 'Nudelake'
  55. end
  56. if $ARGS[0] = 'swim':
  57. cla
  58. *clr
  59. cumpussy = 0
  60. cumbelly = 0
  61. cumass = 0
  62. cumlip = 0
  63. cumface = 0
  64. cumfrot = 0
  65. minut += 60
  66. sweat = -3
  67. manna += 5
  68. willpower += 5
  69. if stren < 30:stren += 1
  70. '<center><img src="images/img/Lake/nudeswim.jpg"></center>'
  71. 'You went for a swim.'
  72. act 'Finish':gt 'Nudelake'
  73. end
  74. if $ARGS[0] = 'smotr':
  75. cls
  76. minut += 30
  77. gs 'stat'
  78. '<center><img src="images/img/Lake/voleybol.jpg"></center>'
  79. 'You see how others play.'
  80. act 'Leave':gt 'Nudelake'
  81. end
  82. --- Nudelake ---------------------------------