123_Nudelake 4.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174
  1. # Nudelake
  2. gs 'stat'
  3. <<<<<<< 123_Nudelake
  4. '<center><B>nudist beach</B></center>'
  5. '<center><img src="images\img\Lake\Nudelake.jpg"></center>'
  6. =======
  7. '<center><B>nude beach</B></center>'
  8. '<center><img src="img/Lake/Nudelake.jpg" ></center>'
  9. >>>>>>> 123_Nudelake
  10. 'Here you can walk naked and no one will blame you.'
  11. if hour >= 6 and hour <= 20:
  12. <<<<<<< 123_Nudelake
  13. 'Here you can <a href="exec:gt ''Nudelake'',''zagarat''">tanning</a> and <a href="exec:gt ''Nudelake'',''swim''">swim</a>'
  14. 'And, you can play <a href="exec:gt ''Nudelake'',''voleybol''">beach volleyball</a>'
  15. =======
  16. 'here you can <a href="exec:gt''Nudelake'',''zagarat''">sunbathe</a> and <a href="exec:gt''Nudelake'',''swim''">bathe</a>'
  17. 'And <a href="exec:gt''Nudelake'',''voleybol''">beach volleyball</a>'
  18. >>>>>>> 123_Nudelake
  19. end
  20. <<<<<<< 123_Nudelake
  21. act 'Go to the main beach': gt 'lake','start'
  22. if katday ! day and kat >= 1:
  23. 'You see at the beach Cat.'
  24. act 'Approach the Cat':
  25. gt 'Katlake','kat'
  26. end
  27. end
  28. =======
  29. act 'Leave on the main beach':gt'lake','start'
  30. if katday ! day and kat >= 1:
  31. 'You see at the beach Cat.'
  32. act 'Approach the Cat':
  33. gt'Katlake','kat'
  34. end
  35. end
  36. >>>>>>> 123_Nudelake
  37. if $ARGS[0] = 'voleybol':
  38. cls
  39. <<<<<<< 123_Nudelake
  40. set minut += 1
  41. '<center><img src="images\img\Lake\voleybol.jpg"></center>'
  42. 'You came to the volleyball court.'
  43. act 'Watch': gt 'Nudelake','smotr'
  44. act 'Leave': gt 'Nudelake'
  45. act 'Play':
  46. cla
  47. *clr
  48. set agil += 1
  49. set react += 1
  50. set speed += 1
  51. set minut += 30
  52. '<center><img src="images\img\Lake\voleybol.jpg"></center>'
  53. 'You go up to the players and ask whether it is possible to join, you will be happy to take the team.'
  54. act 'Finish': gt 'Nudelake'
  55. =======
  56. set minut+=1
  57. '<center><img src="img/Lake/voleybol.jpg"></center>'
  58. 'You have come to the volleyball court.'
  59. act'watch':gt 'Nudelake','smotr'
  60. act'Get_Away':gt 'Nudelake'
  61. act'play':
  62. cla
  63. *clr
  64. set agil+=1
  65. set react+=1
  66. set speed+=1
  67. set minut+=30
  68. '<center><img src="img/Lake/voleybol.jpg"></center>'
  69. 'You come to play and ask whether it is possible to join, You gladly take the team.'
  70. act'End_Up':gt 'Nudelake'
  71. >>>>>>> 123_Nudelake
  72. end
  73. end
  74. if $ARGS[0] = 'zagarat':
  75. <<<<<<< 123_Nudelake
  76. set minut += 30
  77. cls
  78. gs 'stat'
  79. '<center><img src="images\img\Lake\nudezagarat.jpg"></center>'
  80. set sweat += 1
  81. set manna += 5
  82. if krem = 0:
  83. set tan += 1
  84. 'You went to the beach to sunbathe.'
  85. end
  86. if krem > 0:
  87. set krem -= 1
  88. set tan += 3
  89. 'You smeared body sunblock and went to sunbathe.'
  90. end
  91. set nzagrand = RAND(0,100)
  92. if kat > 30 and katkey = 0 and nzagrand >= 60 and nzagrand < 70: gt 'Katlake','key'
  93. if nzagrand >= 80 and nzagrand < 90: gt 'Vnlake1'
  94. if nzagrand >= 90: gt 'Vnlake2'
  95. if katday ! day and kat = 0 and nzagrand >= 70 and nzagrand < 80: gt 'Katlake'
  96. act 'Finish': gt 'Nudelake'
  97. =======
  98. set minut+=30
  99. cls
  100. gs'stat'
  101. '<center><img src="img/Lake/nudezagarat.jpg"></center>'
  102. set sweat = sweat + 1
  103. set manna = manna + 5
  104. if krem = 0:
  105. set tan = tan + 1
  106. 'You went to the beach to sunbathe.'
  107. end
  108. if krem > 0:
  109. set krem = krem - 1
  110. set tan = tan + 3
  111. 'You smeared body suntan lotion and went to sunbathe.'
  112. end
  113. set nzagrand = RAND (0,100)
  114. if kat > 30 and katkey = 0 and nzagrand >= 60 and nzagrand < 70:gt'Katlake','key'
  115. if nzagrand >= 80 and nzagrand < 90:gt'Vnlake1'
  116. if nzagrand >= 90:gt'Vnlake2'
  117. if katday ! day and kat = 0 and nzagrand >= 70 and nzagrand < 80:gt'Katlake'
  118. act'End_Up':gt'Nudelake'
  119. >>>>>>> 123_Nudelake
  120. end
  121. if $ARGS[0] = 'swim':
  122. cla
  123. *clr
  124. set cumpussy = 0
  125. set cumbelly = 0
  126. set cumass = 0
  127. set cumlip = 0
  128. set cumface = 0
  129. set cumfrot = 0
  130. <<<<<<< 123_Nudelake
  131. set minut += 60
  132. if sweat > -3: set sweat = -3
  133. set manna += 5
  134. set willpower += 5
  135. if stren < 30: set stren += 1
  136. '<center><img src="images\img\Lake\nudeswim.jpg"></center>'
  137. 'You went for a swim.'
  138. act 'Finish': gt 'Nudelake'
  139. =======
  140. set minut = minut + 60
  141. set sweat = -3
  142. set manna = manna + 5
  143. set willpower = willpower + 5
  144. if stren < 30:set stren = stren + 1
  145. '<center><img src="img/Lake/nudeswim.jpg"></center>'
  146. 'You went to bathe.'
  147. act'End_Up':gt 'Nudelake'
  148. >>>>>>> 123_Nudelake
  149. end
  150. if $ARGS[0] = 'smotr':
  151. <<<<<<< 123_Nudelake
  152. set minut += 30
  153. cls
  154. gs 'stat'
  155. '<center><img src="images\img\Lake\voleybol.jpg"></center>'
  156. 'You see how others play.'
  157. act 'Leave': gt 'Nudelake'
  158. =======
  159. set minut+=30
  160. cls
  161. gs'stat'
  162. '<center><img src="img/Lake/voleybol.jpg"></center>'
  163. 'You see how others play.'
  164. act'Get_Away':gt 'Nudelake'
  165. >>>>>>> 123_Nudelake
  166. end
  167. --- Nudelake ---------------------------------