123_Nudelake 2.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105
  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. set 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. set agil += 1
  26. set react += 1
  27. set speed += 1
  28. set 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. set minut += 30
  36. cls
  37. gs 'stat'
  38. '<center><img src="images/img/Lake/nudezagarat.jpg"></center>'
  39. set sweat += 1
  40. set manna += 5
  41. if krem = 0:
  42. set tan += 1
  43. 'You went to the beach to sunbathe.'
  44. end
  45. if krem > 0:
  46. set krem -= 1
  47. set tan += 3
  48. 'You smeared body sunblock and went to sunbathe.'
  49. end
  50. set nzagrand = rand(0, 100)
  51. if kat > 30 and katkey = 0 and nzagrand >= 60 and nzagrand < 70:gt 'Katlake', 'key'
  52. if nzagrand >= 80 and nzagrand < 90:gt 'Vnlake1'
  53. if nzagrand >= 90:gt 'Vnlake2'
  54. if katday ! day and kat = 0 and nzagrand >= 70 and nzagrand < 80:gt 'Katlake'
  55. act 'Finish':gt 'Nudelake'
  56. end
  57. if $ARGS[0] = 'swim':
  58. cla
  59. *clr
  60. set cumpussy = 0
  61. set cumbelly = 0
  62. set cumass = 0
  63. set cumlip = 0
  64. set cumface = 0
  65. set cumfrot = 0
  66. set minut += 60
  67. set sweat = -3
  68. set manna += 5
  69. set willpower += 5
  70. if stren < 30:set stren += 1
  71. '<center><img src="images/img/Lake/nudeswim.jpg"></center>'
  72. 'You went for a swim.'
  73. act 'Finish':gt 'Nudelake'
  74. end
  75. if $ARGS[0] = 'smotr':
  76. set minut += 30
  77. cls
  78. gs 'stat'
  79. '<center><img src="images/img/Lake/voleybol.jpg"></center>'
  80. 'You see how others play.'
  81. act 'Leave':gt 'Nudelake'
  82. end
  83. --- Nudelake ---------------------------------