436_KGZfight 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308
  1. # KGZfight
  2. <<<<<<< 436_KGZfight
  3. minut += 1
  4. gs 'stat'
  5. gs 'KGZdyn'
  6. if KGZHP <= 0:
  7. =======
  8. minut+=1
  9. gs'stat'
  10. gs'KGZdyn'
  11. if KGZHP<=0:
  12. >>>>>>> 436_KGZfight
  13. cla
  14. *clr
  15. <<<<<<< 436_KGZfight
  16. manna -= 100
  17. '<center><B>GAME OVER</B></center>'
  18. act 'Quit Game': gt 'KGZstart'
  19. =======
  20. manna-=100
  21. '<center><B>GAME OVER</B></center>'
  22. act 'Leave the game':gt'KGZstart'
  23. >>>>>>> 436_KGZfight
  24. exit
  25. end
  26. <<<<<<< 436_KGZfight
  27. if KGZdead <= 0:
  28. cls
  29. KGZbatl = 1
  30. manna += 100
  31. 'All the dead were silent on the ground.'
  32. act 'Leave': gt 'KGZgame'
  33. =======
  34. if KGZdead<=0:
  35. cls
  36. KGZbatl=1
  37. manna+=100
  38. 'All the dead were silent on the ground.'
  39. act 'Get_Away':gt'KGZgame'
  40. >>>>>>> 436_KGZfight
  41. exit
  42. end
  43. <<<<<<< 436_KGZfight
  44. if GZdist < 0: GZdist = 0
  45. !'<a href="exec:GT ''KGZstart''">Get out of the game</a>'
  46. 'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
  47. 'Edged weapons: <<$KGZweapon>>'
  48. if KGZgun > 0: '<<$KGZgun>>'
  49. if KGZgun2 > 0: '<<$KGZgun2>>'
  50. if KGZgun3 > 0: '<<$KGZgun3>>'
  51. 'To you run <<KGZdead>> dead. They are at a distance <<KGZdist>> meters.'
  52. if KGZdost = 1:
  53. 'Vincent fires a rifle.'
  54. KGZdead -= 1
  55. 'One of the dead falls with prostrelyanny head.'
  56. if KGZdead <= 0: gt $curloc
  57. =======
  58. if GZdist<0:GZdist=0
  59. !'<a href="exec:GT ''KGZstart''">Leave the game</a>'
  60. 'health <<KGZHP>>. day <<KGZday>>, h <<KGZhour>>.'
  61. 'cold arms: <<$KGZweapon>>'
  62. if KGZgun>0:'<<$KGZgun>>'
  63. if KGZgun2>0:'<<$KGZgun2>>'
  64. if KGZgun3>0:'<<$KGZgun3>>'
  65. 'To you run <<KGZdead>> dead. They distance <<KGZdist>> meters.'
  66. if KGZdost=1:
  67. 'Vincent shoots a rifle.'
  68. KGZdead-=1
  69. 'One of the dead drops with prostrelyanny head.'
  70. if KGZdead<=0:gt $curloc
  71. >>>>>>> 436_KGZfight
  72. end
  73. <<<<<<< 436_KGZfight
  74. if KGZgun > 0 and bullet > 0:
  75. act 'Shoot a gun':
  76. cls
  77. bullet -= 1
  78. dynamic $KGZgunatk
  79. dynamic $KGZdeadmanatk
  80. act 'Further': gt $curloc
  81. end
  82. =======
  83. if KGZgun>0 and bullet>0:
  84. act 'Pistol shot':
  85. cls
  86. bullet-=1
  87. dynamic $KGZgunatk
  88. dynamic $KGZdeadmanatk
  89. act 'further':gt $curloc
  90. end
  91. >>>>>>> 436_KGZfight
  92. end
  93. <<<<<<< 436_KGZfight
  94. if KGZgun2 > 0 and bullet2 > 0:
  95. act 'Shoot a shotgun':
  96. cls
  97. bullet2 -= 1
  98. dynamic $KGZgunatk2
  99. dynamic $KGZdeadmanatk
  100. act 'Further': gt $curloc
  101. end
  102. =======
  103. if KGZgun2>0 and bullet2>0:
  104. act 'A shotgun blast':
  105. cls
  106. bullet2-=1
  107. dynamic $KGZgunatk2
  108. dynamic $KGZdeadmanatk
  109. act 'further':gt $curloc
  110. end
  111. >>>>>>> 436_KGZfight
  112. end
  113. <<<<<<< 436_KGZfight
  114. if KGZgun3 > 0 and bullet3 > 0:
  115. act 'Shoot a machine gun (single)':
  116. cls
  117. bullet3 -= 1
  118. dynamic $KGZgunatk3
  119. dynamic $KGZdeadmanatk
  120. act 'Further': gt $curloc
  121. end
  122. if bullet3 >= 3:
  123. act 'Shoot a machine gun (short burst)':
  124. cls
  125. bullet3 -= 3
  126. KGZbulgun = 3
  127. dynamic $KGZgunatk4
  128. dynamic $KGZdeadmanatk
  129. act 'Further': gt $curloc
  130. end
  131. end
  132. if bullet3 >= 10:
  133. act 'Shoot a machine gun (long queue)':
  134. cls
  135. bullet3 -= 10
  136. KGZbulgun = 10
  137. dynamic $KGZgunatk5
  138. dynamic $KGZdeadmanatk
  139. act 'Further': gt $curloc
  140. end
  141. end
  142. =======
  143. if KGZgun3>0 and bullet3>0:
  144. act 'Shoot a machine gun (single)':
  145. cls
  146. bullet3-=1
  147. dynamic $KGZgunatk3
  148. dynamic $KGZdeadmanatk
  149. act 'further':gt $curloc
  150. end
  151. if bullet3>=3:
  152. act 'Shoot a machine gun (short burst)':
  153. cls
  154. bullet3-=3
  155. KGZbulgun=3
  156. dynamic $KGZgunatk4
  157. dynamic $KGZdeadmanatk
  158. act 'further':gt $curloc
  159. end
  160. end
  161. if bullet3>=10:
  162. act 'Shoot a machine gun (long queue)':
  163. cls
  164. bullet3-=10
  165. KGZbulgun=10
  166. dynamic $KGZgunatk5
  167. dynamic $KGZdeadmanatk
  168. act 'further':gt $curloc
  169. end
  170. end
  171. >>>>>>> 436_KGZfight
  172. end
  173. <<<<<<< 436_KGZfight
  174. if KGZgranade > 0:
  175. act 'Throw a grenade':
  176. cls
  177. dynamic $KGZgranatk
  178. act 'Further': gt $curloc
  179. end
  180. =======
  181. if KGZgranade>0:
  182. act 'throw a grenade':
  183. cls
  184. dynamic $KGZgranatk
  185. act 'further':gt $curloc
  186. end
  187. >>>>>>> 436_KGZfight
  188. end
  189. <<<<<<< 436_KGZfight
  190. if KGZdist <= 2:
  191. act 'Strike <<$KGZweapona>>':
  192. cls
  193. dynamic $KGZfizatk
  194. act 'Further': gt $curloc
  195. end
  196. else
  197. act 'Wait':
  198. cls
  199. KGZdist -= 1
  200. gt $curloc
  201. end
  202. act 'Go to meet the dead':
  203. cls
  204. KGZdist -= 2
  205. gt $curloc
  206. end
  207. act 'Scoot':
  208. cls
  209. if KGZdead >= 10:
  210. KGZdist -= 5
  211. 'Dead too much and they surrounded you, you can not escape.'
  212. act 'Fuck!': gt $curloc
  213. else
  214. KGZdedrandrun = RAND(0,1)
  215. if KGZdedrandrun = 0:
  216. KGZbatl = 1
  217. 'You managed to escape from the dead.'
  218. act 'Leave': gt 'KGZgame'
  219. end
  220. if KGZdedrandrun = 1:
  221. KGZdist -= 5
  222. KGZdead += RAND(KGZdead, KGZdead * 5)
  223. 'You have stumbled upon other dead and now you have to fight with a lot of dead.'
  224. act 'Fuck!': gt $curloc
  225. end
  226. end
  227. end
  228. end
  229. =======
  230. if KGZdist<=2:
  231. act 'hit <<$KGZweapona>>':
  232. cls
  233. dynamic $KGZfizatk
  234. act 'further':gt $curloc
  235. end
  236. else
  237. act 'wait':
  238. cls
  239. KGZdist-=1
  240. gt $curloc
  241. end
  242. act 'Go to meet the dead':
  243. cls
  244. KGZdist-=2
  245. gt $curloc
  246. end
  247. act 'Take_To_One`S_Legs':
  248. cls
  249. if KGZdead>=10:
  250. KGZdist-=5
  251. 'Dead too much and they surrounded you, You can not escape.'
  252. act 'your mother!':gt $curloc
  253. else
  254. KGZdedrandrun=RAND(0,1)
  255. if KGZdedrandrun=0:
  256. KGZbatl=1
  257. 'You managed to escape from the dead.'
  258. act 'Get_Away':gt'KGZgame'
  259. end
  260. if KGZdedrandrun=1:
  261. KGZdist-=5
  262. KGZdead+=RAND(KGZdead,KGZdead*5)
  263. 'You stumbled on the other dead and now you have to fight with a lot of dead people.'
  264. act 'your mother!':gt $curloc
  265. end
  266. end
  267. end
  268. end
  269. >>>>>>> 436_KGZfight
  270. --- KGZfight ---------------------------------