360_KGZfight 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142
  1. # KGZfight
  2. minut += 1
  3. gs 'stat'
  4. gs 'KGZdyn'
  5. if KGZHP <= 0:
  6. cla
  7. *clr
  8. manna -= 100
  9. '<center><B>GAME OVER</B></center>'
  10. act 'Quit Game': gt 'KGZstart'
  11. exit
  12. end
  13. if KGZdead <= 0:
  14. cls
  15. KGZbatl = 1
  16. manna += 100
  17. 'All the dead were silent on the ground.'
  18. act 'Leave': gt 'KGZgame'
  19. exit
  20. end
  21. if GZdist < 0: GZdist = 0
  22. !'<a href="exec:GT ''KGZstart''">Get out of the game</a>'
  23. 'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
  24. 'Edged weapons: <<$KGZweapon>>'
  25. if KGZgun > 0: '<<$KGZgun>>'
  26. if KGZgun2 > 0: '<<$KGZgun2>>'
  27. if KGZgun3 > 0: '<<$KGZgun3>>'
  28. 'To you run <<KGZdead>> dead. They are at a distance <<KGZdist>> meters.'
  29. if KGZdost = 1:
  30. 'Vincent fires a rifle.'
  31. KGZdead -= 1
  32. 'One of the dead falls with prostrelyanny head.'
  33. if KGZdead <= 0: gt $curloc
  34. end
  35. if KGZgun > 0 and bullet > 0:
  36. act 'Shoot a gun':
  37. cls
  38. bullet -= 1
  39. dynamic $KGZgunatk
  40. dynamic $KGZdeadmanatk
  41. act 'Further': gt $curloc
  42. end
  43. end
  44. if KGZgun2 > 0 and bullet2 > 0:
  45. act 'Shoot a shotgun':
  46. cls
  47. bullet2 -= 1
  48. dynamic $KGZgunatk2
  49. dynamic $KGZdeadmanatk
  50. act 'Further': gt $curloc
  51. end
  52. end
  53. if KGZgun3 > 0 and bullet3 > 0:
  54. act 'Shoot a machine gun (single)':
  55. cls
  56. bullet3 -= 1
  57. dynamic $KGZgunatk3
  58. dynamic $KGZdeadmanatk
  59. act 'Further': gt $curloc
  60. end
  61. if bullet3 >= 3:
  62. act 'Shoot a machine gun (short burst)':
  63. cls
  64. bullet3 -= 3
  65. KGZbulgun = 3
  66. dynamic $KGZgunatk4
  67. dynamic $KGZdeadmanatk
  68. act 'Further': gt $curloc
  69. end
  70. end
  71. if bullet3 >= 10:
  72. act 'Shoot a machine gun (long queue)':
  73. cls
  74. bullet3 -= 10
  75. KGZbulgun = 10
  76. dynamic $KGZgunatk5
  77. dynamic $KGZdeadmanatk
  78. act 'Further': gt $curloc
  79. end
  80. end
  81. end
  82. if KGZgranade > 0:
  83. act 'Throw a grenade':
  84. cls
  85. dynamic $KGZgranatk
  86. act 'Further': gt $curloc
  87. end
  88. end
  89. if KGZdist <= 2:
  90. act 'Strike <<$KGZweapona>>':
  91. cls
  92. dynamic $KGZfizatk
  93. act 'Further': gt $curloc
  94. end
  95. else
  96. act 'Wait':
  97. cls
  98. KGZdist -= 1
  99. gt $curloc
  100. end
  101. act 'Go to meet the dead':
  102. cls
  103. KGZdist -= 2
  104. gt $curloc
  105. end
  106. act 'Scoot':
  107. cls
  108. if KGZdead >= 10:
  109. KGZdist -= 5
  110. 'Dead too much and they surrounded you, you can not escape.'
  111. act 'Fuck!': gt $curloc
  112. else
  113. KGZdedrandrun = RAND(0,1)
  114. if KGZdedrandrun = 0:
  115. KGZbatl = 1
  116. 'You managed to escape from the dead.'
  117. act 'Leave': gt 'KGZgame'
  118. end
  119. if KGZdedrandrun = 1:
  120. KGZdist -= 5
  121. KGZdead += RAND(KGZdead, KGZdead * 5)
  122. 'You have stumbled upon other dead and now you have to fight with a lot of dead.'
  123. act 'Fuck!': gt $curloc
  124. end
  125. end
  126. end
  127. end
  128. --- KGZfight ---------------------------------