1
1

KGZdyn.qsrc 24 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180
  1. # KGZdyn
  2. if KGZweapon = 0:$KGZweapon = 'Fists' & $KGZweapona = 'Fist'
  3. if KGZweapon = 1:$KGZweapon = 'Baton' & $KGZweapona = 'Shillelagh'
  4. if KGZweapon = 2:$KGZweapon = 'Ax' & $KGZweapona = 'Ax'
  5. if KGZgun > 0:$KGZgun = 'Pistol, cartridges <<bullet>>piece'
  6. if KGZgun2 > 0:$KGZgun2 = 'Shotgun cartridges <<bullet2>>piece'
  7. if KGZgun3 > 0:$KGZgun3 = 'Automatic, cartridges <<bullet3>>piece'
  8. if KGZhour >= 24:
  9. KGZhour -= 24
  10. KGZday += 1
  11. if KGZsup = 0:
  12. KGZHP -= 10
  13. else
  14. KGZsup -= 1
  15. end
  16. end
  17. $KGZvihod = {
  18. if KGZweapon = 0:KGZweapon = 1 & 'You found a good cudgel lying on the pavement and took her'
  19. act 'Go to the apartment':
  20. cls
  21. KGZhour += 1
  22. minut += 1
  23. KGZplace = 0
  24. KGZbatl = 0
  25. gs 'stat'
  26. 'You went to the apartment carefully trying not to stumble on the dead.'
  27. act 'Further':gt $curloc
  28. end
  29. act 'Go to the store':
  30. cls
  31. KGZhour += 1
  32. minut += 1
  33. KGZplace = 2
  34. KGZbatl = 0
  35. gs 'stat'
  36. 'You cautiously went to the store with smashed storefronts trying not to stumble on the dead.'
  37. act 'Further':gt $curloc
  38. end
  39. act 'Go to the hospital':
  40. cls
  41. KGZhour += 1
  42. minut += 1
  43. KGZplace = 3
  44. KGZbatl = 0
  45. gs 'stat'
  46. 'You went to the hospital carefully, trying not to stumble on the dead.'
  47. act 'Further':gt $curloc
  48. end
  49. act 'Go to the boulevard':
  50. cls
  51. KGZhour += 1
  52. minut += 1
  53. KGZplace = 4
  54. KGZbatl = 0
  55. gs 'stat'
  56. 'You gingerly walked down the street, trying not to stumble on the dead.'
  57. act 'Further':gt $curloc
  58. end
  59. }
  60. $KGZvihod2 = {
  61. act 'Go to the street':
  62. cls
  63. KGZhour += 1
  64. minut += 1
  65. KGZplace = 1
  66. KGZbatl = 0
  67. gs 'stat'
  68. 'You carefully went into the street trying not to stumble on the dead.'
  69. act 'Further':gt $curloc
  70. end
  71. act 'Search provisions':
  72. cls
  73. KGZhour += 1
  74. minut += 1
  75. !!KGZplace = 2
  76. KGZbatl = 0
  77. gs 'stat'
  78. 'Noiselessly you started searching the store looking for food.'
  79. KGZsupoisk = rand(0, 100)
  80. if KGZsupoisk = 100:
  81. KGZsup += 1
  82. 'You found enough food to stretch another day.'
  83. elseif KGZday < KGZsupoisk:
  84. KGZsup += 1
  85. 'You found enough food to stretch another day.'
  86. else
  87. 'You are not able to find anything edible, all that you have found rotten and no good for eating.'
  88. end
  89. act 'Further':gt $curloc
  90. end
  91. }
  92. $KGZvihod3 = {
  93. act 'Go to the street':
  94. cls
  95. KGZhour += 1
  96. minut += 1
  97. KGZplace = 1
  98. KGZbatl = 0
  99. gs 'stat'
  100. 'You carefully went into the street trying not to stumble on the dead.'
  101. act 'Further':gt $curloc
  102. end
  103. act 'Search kits':
  104. cls
  105. KGZhour += 1
  106. minut += 1
  107. !!KGZplace = 2
  108. KGZbatl = 0
  109. gs 'stat'
  110. 'Noiselessly you started searching the hospital looking kit.'
  111. KGZsupoisk = rand(0, 100)
  112. if KGZsupoisk = 100:
  113. KGZmedkit += 1
  114. 'You have found a first aid kit.'
  115. elseif KGZday < KGZsupoisk:
  116. KGZmedkit += 1
  117. 'You have found a first aid kit.'
  118. else
  119. 'You are not able to find anything useful.'
  120. end
  121. act 'Further':gt $curloc
  122. end
  123. }
  124. $KGZvihod4 = {
  125. act 'Go to the street to the side of his house':
  126. cls
  127. KGZhour += 1
  128. minut += 1
  129. KGZplace = 1
  130. KGZbatl = 0
  131. gs 'stat'
  132. 'You carefully went into the street trying not to stumble on the dead.'
  133. act 'Further':gt $curloc
  134. end
  135. act 'Go to the hunting store':
  136. cls
  137. KGZhour += 1
  138. minut += 1
  139. KGZplace = 5
  140. KGZbatl = 0
  141. gs 'stat'
  142. 'You carefully went hunting store trying not to stumble on the dead.'
  143. act 'Further':gt $curloc
  144. end
  145. act 'Go to the police station':
  146. cls
  147. KGZhour += 1
  148. minut += 1
  149. KGZplace = 6
  150. KGZbatl = 0
  151. gs 'stat'
  152. 'You cautiously went to the police station trying not to stumble on the dead.'
  153. act 'Further':gt $curloc
  154. end
  155. act 'Go to the hardware store':
  156. cls
  157. KGZhour += 1
  158. minut += 1
  159. KGZplace = 7
  160. KGZbatl = 0
  161. gs 'stat'
  162. 'You cautiously went to the hardware store trying not to stumble on the dead.'
  163. act 'Further':gt $curloc
  164. end
  165. if KGZcopcar = 0:
  166. act 'Search the police car':
  167. cls
  168. KGZhour += 1
  169. minut += 1
  170. !!KGZplace = 2
  171. KGZbatl = 1
  172. KGZcopcar = 1
  173. bullet += 10
  174. gs 'stat'
  175. 'Noiselessly you started searching the police car.'
  176. if KGZgun = 0:KGZgun = 1 & 'You have found a pistol'
  177. 'You found 10t ammunition for the gun.'
  178. act 'Further':gt $curloc
  179. end
  180. end
  181. act 'Go on the highway':
  182. cls
  183. KGZhour += 1
  184. minut += 1
  185. KGZplace = 8
  186. KGZbatl = 0
  187. gs 'stat'
  188. 'You cautiously walked towards the highway trying not to stumble on the dead.'
  189. act 'Further':gt $curloc
  190. end
  191. }
  192. $KGZvihod5 = {
  193. act 'Leave the store':
  194. cls
  195. KGZhour += 1
  196. minut += 1
  197. KGZplace = 4
  198. KGZbatl = 0
  199. gs 'stat'
  200. 'You carefully went into the street trying not to stumble on the dead.'
  201. act 'Further':gt $curloc
  202. end
  203. act 'Search salesroom':
  204. cls
  205. KGZhour += 1
  206. minut += 1
  207. !!KGZplace = 2
  208. KGZbatl = 0
  209. bulletrand = rand(3, 20)
  210. bullet2 += bulletrand
  211. gs 'stat'
  212. 'Noiselessly you started searching the hunting store.'
  213. if KGZgun2 = 0:KGZgun2 = 1 & 'You found a shotgun'
  214. 'You have found <<bulletrand>>to be shotgun cartridges.'
  215. act 'Further':gt $curloc
  216. end
  217. }
  218. $KGZvihod6 = {
  219. act 'Get Outside':
  220. cls
  221. KGZhour += 1
  222. minut += 1
  223. KGZplace = 4
  224. KGZbatl = 0
  225. gs 'stat'
  226. 'You carefully went into the street trying not to stumble on the dead.'
  227. act 'Further':gt $curloc
  228. end
  229. act 'Search the police station':
  230. cls
  231. KGZhour += 1
  232. minut += 1
  233. !!KGZplace = 2
  234. KGZbatl = 0
  235. bulletrand = rand(3, 20)
  236. bullet += bulletrand
  237. gs 'stat'
  238. 'Noiselessly you started searching the police station.'
  239. if KGZgun = 0:KGZgun = 1 & 'You have found a pistol'
  240. 'You have found <<bulletrand>>be ammo for the gun.'
  241. act 'Further':gt $curloc
  242. end
  243. if KGZcopdoor = 0:
  244. 'Armed room is locked on a massive iron door which can be opened only grinder, but the trouble is, there is no electricity.'
  245. if KGZgenerator > 0 and KGZbenzin > 0 and KGZbolgarka > 0:
  246. act 'Uncover grinder armed room':
  247. cls
  248. KGZhour += 1
  249. minut += 1
  250. KGZcopdoor = 1
  251. KGZbatl = 0
  252. bullet3 += 500
  253. KGZdead = KGZday * 10
  254. gs 'stat'
  255. 'Noiselessly you started searching the police station.'
  256. if KGZgun3 = 0:KGZgun3 = 1 & 'You found Machine'
  257. 'You have found 500 tons of ammunition for machine.'
  258. 'The noise from the grinder ran dead and attacked you.'
  259. act 'Srazhatsya':KGZdist = rand(5, 8) & gt 'KGZfight'
  260. end
  261. end
  262. elseif KGZcopdoor = 1:
  263. 'Armory room is empty, just a bunch of dead on the floor, according to a recent fight with you.'
  264. if KGZratia = 0:
  265. act 'Pick up radio':
  266. cls
  267. KGZhour += 1
  268. minut += 1
  269. KGZratia = 1
  270. KGZbatl = 1
  271. gs 'stat'
  272. 'You have found a radio. Including it you heard the voice repeating the same phrase. "Everyone who hears me. Safe Haven is 10m kilometer highway. Go to Fort Bragg."'
  273. act 'Further':gt $curloc
  274. end
  275. end
  276. end
  277. }
  278. $KGZvihod7 = {
  279. act 'Get Outside':
  280. cls
  281. KGZhour += 1
  282. minut += 1
  283. KGZplace = 4
  284. KGZbatl = 0
  285. gs 'stat'
  286. 'You carefully went into the street trying not to stumble on the dead.'
  287. act 'Further':gt $curloc
  288. end
  289. act 'Search the store':
  290. cls
  291. KGZhour += 1
  292. minut += 1
  293. !!KGZplace = 2
  294. KGZbatl = 0
  295. gs 'stat'
  296. 'Noiselessly you started searching the hardware store.'
  297. if KGZweapon < 2:
  298. KGZweapon = 2
  299. 'You found an ax'
  300. act 'Further':gt $curloc
  301. exit
  302. end
  303. if KGZgenerator = 0:
  304. KGZgenerator = 1
  305. 'You found refillable portable generator gasoline.'
  306. act 'Further':gt $curloc
  307. exit
  308. end
  309. if KGZbolgarka = 0:
  310. KGZbolgarka = 1
  311. 'You found grinder is powered by electricity.'
  312. act 'Further':gt $curloc
  313. exit
  314. end
  315. 'You did not find anything useful.'
  316. act 'Further':gt $curloc
  317. end
  318. }
  319. $KGZvihod8 = {
  320. act 'Exit at Boulevard':
  321. cls
  322. KGZhour += 1
  323. minut += 1
  324. KGZplace = 4
  325. KGZbatl = 0
  326. gs 'stat'
  327. 'You went to the boulevard carefully trying not to stumble on the dead.'
  328. act 'Further':gt $curloc
  329. end
  330. act 'Go to the gas station':
  331. cls
  332. KGZhour += 1
  333. minut += 1
  334. KGZplace = 9
  335. KGZbatl = 0
  336. gs 'stat'
  337. 'Noiselessly you went to the gas station.'
  338. act 'Further':gt $curloc
  339. end
  340. if KGZratia > 0:
  341. act 'Go in the direction of Fort Bragg':
  342. cls
  343. KGZhour += 1
  344. minut += 1
  345. KGZplace = 10
  346. KGZplaceA = 1
  347. KGZbatl = 0
  348. gs 'stat'
  349. 'Noiselessly you went toward Fort Bragg.'
  350. act 'Further':gt $curloc
  351. end
  352. end
  353. }
  354. $KGZvihod9 = {
  355. act 'Exit the highway':
  356. cls
  357. KGZhour += 1
  358. minut += 1
  359. KGZplace = 8
  360. KGZbatl = 0
  361. gs 'stat'
  362. 'You went to the highway carefully, trying not to stumble on the dead.'
  363. act 'Further':gt $curloc
  364. end
  365. if KGZbenzin = 0:
  366. act 'Pour gasoline':
  367. cls
  368. KGZhour += 1
  369. minut += 1
  370. KGZbenzin = 1
  371. KGZbatl = 0
  372. gs 'stat'
  373. 'Noiselessly you poured gasoline from the column.'
  374. act 'Further':gt $curloc
  375. end
  376. end
  377. }
  378. $KGZvihod10 = {
  379. if KGZplaceA < 10:$KGZplaceA = 'Fort Bragg' & $KGZplaceB = 'from the city'
  380. if KGZplaceA > 10:$KGZplaceA = 'from the city' & $KGZplaceB = 'Fort Bragg'
  381. act 'Go in the direction <<$KGZplaceA>>':
  382. cls
  383. KGZhour += 1
  384. minut += 1
  385. KGZplaceA += 1
  386. KGZbatl = 0
  387. gs 'stat'
  388. 'You went to the highway carefully, trying not to stumble on the dead.'
  389. act 'Further':gt $curloc
  390. end
  391. act 'Go in the direction <<$KGZplaceB>>':
  392. cls
  393. KGZhour += 1
  394. minut += 1
  395. KGZplaceA -= 1
  396. KGZbatl = 0
  397. gs 'stat'
  398. 'You went to the highway carefully, trying not to stumble on the dead.'
  399. act 'Further':gt $curloc
  400. end
  401. if KGZplaceA > 10:
  402. act 'Go to the forest':
  403. cls
  404. KGZhour += 1
  405. minut += 1
  406. KGZbatl = 0
  407. KGZplace = 200
  408. gs 'stat'
  409. 'You have gone off the highway into the woods.'
  410. act 'Further':gt $curloc
  411. end
  412. end
  413. }
  414. $KGZvihod11 = {
  415. if KGZfortQW = 0:'From the roof of a shot is fired with a sniper rifle.'
  416. if KGZfortQW = 0:'The man on the roof screaming you. "Fort Bragg fell. I stayed living person. Save me. Ammo I end, and ghouls and climb."'
  417. act 'Probivatsya the roof':
  418. cls
  419. KGZhour += 1
  420. minut += 1
  421. if KGZfortQW = 0:KGZfortQW = 1
  422. KGZplace = 12
  423. KGZbatl = 0
  424. KGZdead = rand(KGZday * 20, KGZday * 30)
  425. gs 'stat'
  426. 'You ran into a fort surrounded on all sides dead.'
  427. act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
  428. end
  429. act 'Go to the side of the highway (the side leading to the city)':
  430. cls
  431. KGZhour += 1
  432. minut += 1
  433. KGZplaceA = 9
  434. KGZplace = 10
  435. KGZbatl = 0
  436. gs 'stat'
  437. 'You went to the highway carefully, trying not to stumble on the dead.'
  438. act 'Further':gt $curloc
  439. end
  440. act 'Go to the side of the highway (leading side of the city)':
  441. cls
  442. KGZhour += 1
  443. minut += 1
  444. KGZplaceA = 11
  445. KGZplace = 10
  446. KGZbatl = 0
  447. gs 'stat'
  448. 'You went to the highway carefully, trying not to stumble on the dead.'
  449. act 'Further':gt $curloc
  450. end
  451. if KGZfortQW = 2:
  452. act 'Probivatsya on food warehouse':
  453. cls
  454. KGZhour += 1
  455. minut += 1
  456. KGZplace = 13
  457. KGZbatl = 0
  458. KGZdead = rand(KGZday * 20, KGZday * 30)
  459. gs 'stat'
  460. 'You ran to the warehouse surrounded on all sides dead.'
  461. act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
  462. end
  463. act 'Probivatsya infirmary':
  464. cls
  465. KGZhour += 1
  466. minut += 1
  467. KGZplace = 14
  468. KGZbatl = 0
  469. KGZdead = rand(KGZday * 20, KGZday * 30)
  470. gs 'stat'
  471. 'You ran into the hospital surrounded on all sides dead.'
  472. act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
  473. end
  474. act 'Probivatsya armory':
  475. cls
  476. KGZhour += 1
  477. minut += 1
  478. KGZplace = 15
  479. KGZbatl = 0
  480. KGZdead = rand(KGZday * 20, KGZday * 30)
  481. gs 'stat'
  482. 'You ran into the hospital surrounded on all sides dead.'
  483. act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
  484. end
  485. act 'Probivatsya in garage':
  486. cls
  487. KGZhour += 1
  488. minut += 1
  489. KGZplace = 16
  490. KGZbatl = 0
  491. KGZdead = rand(KGZday * 20, KGZday * 30)
  492. gs 'stat'
  493. 'You ran into the hospital surrounded on all sides dead.'
  494. act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
  495. end
  496. end
  497. }
  498. $KGZvihod13 = {
  499. act 'Exit at Fort Bragg':
  500. cls
  501. KGZhour += 1
  502. minut += 1
  503. KGZbatl = 0
  504. KGZplace = 11
  505. gs 'stat'
  506. 'You went cautiously, trying not to stumble on the dead.'
  507. act 'Further':gt $curloc
  508. end
  509. act 'Search the warehouse':
  510. cls
  511. KGZhour += 1
  512. minut += 1
  513. !!KGZplace = 2
  514. KGZbatl = 0
  515. gs 'stat'
  516. 'Noiselessly you started searching the dark warehouse.'
  517. udacharand = rand(0, 1)
  518. if udacharand = 1:
  519. KGZsuprand = rand(1, 3)
  520. KGZsup += KGZsuprand
  521. 'You have found the diet <<KGZsuprand>> days'
  522. elseif udacharand = 0:
  523. KGZdead = rand(KGZday * 5, KGZday * 10)
  524. 'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
  525. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  526. exit
  527. end
  528. act 'Further':gt $curloc
  529. end
  530. }
  531. $KGZvihod14 = {
  532. act 'Exit at Fort Bragg':
  533. cls
  534. KGZhour += 1
  535. minut += 1
  536. KGZbatl = 0
  537. KGZplace = 11
  538. gs 'stat'
  539. 'You went cautiously, trying not to stumble on the dead.'
  540. act 'Further':gt $curloc
  541. end
  542. act 'Search the infirmary':
  543. cls
  544. KGZhour += 1
  545. minut += 1
  546. !!KGZplace = 2
  547. KGZbatl = 0
  548. gs 'stat'
  549. 'Noiselessly you started searching the dark infirmary.'
  550. udacharand = rand(0, 1)
  551. if udacharand = 1:
  552. KGZmedkit += 1
  553. 'You have found a first aid kit'
  554. elseif udacharand = 0:
  555. KGZdead = rand(KGZday * 5, KGZday * 10)
  556. 'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
  557. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  558. exit
  559. end
  560. act 'Further':gt $curloc
  561. end
  562. }
  563. $KGZvihod15 = {
  564. act 'Exit at Fort Bragg':
  565. cls
  566. KGZhour += 1
  567. minut += 1
  568. KGZbatl = 0
  569. KGZplace = 11
  570. gs 'stat'
  571. 'You went cautiously, trying not to stumble on the dead.'
  572. act 'Further':gt $curloc
  573. end
  574. act 'Search armory':
  575. cls
  576. KGZhour += 1
  577. minut += 1
  578. !!KGZplace = 2
  579. KGZbatl = 0
  580. gs 'stat'
  581. if KGZfortOru = 1:
  582. 'In Munitions nothing useful.'
  583. elseif KGZfortOru = 0:
  584. KGZfortOru = 1
  585. 'In Munitions you find ammunition for machine 300 pieces and 10 grenades.'
  586. KGZgranade += 10
  587. bullet3 += 300
  588. end
  589. '.'
  590. act 'Further':gt $curloc
  591. end
  592. }
  593. $KGZvihod16 = {
  594. act 'Exit at Fort Bragg':
  595. cls
  596. KGZhour += 1
  597. minut += 1
  598. KGZbatl = 0
  599. KGZplace = 11
  600. gs 'stat'
  601. 'You went cautiously, trying not to stumble on the dead.'
  602. act 'Further':gt $curloc
  603. end
  604. if KGZgruzovik = 0:
  605. act 'Climb into the truck':
  606. cls
  607. KGZhour += 1
  608. minut += 1
  609. !!KGZplace = 2
  610. KGZbatl = 0
  611. gs 'stat'
  612. if KGZgruzBenz = 1:
  613. 'You sat in the cab on the driver''s seat and brought the truck.'
  614. act 'Go':
  615. cls
  616. 'Truck uterine growled jumped into the courtyard of the fort where a crowd had gathered the dead, you go to cut into the crowd and began to push the ghouls, the engine speed drops, the engine roared overwrought gliding over crushed bodies, dead hands clung to the cabin. Some ghouls hung on the cabin in the mirror was clear that the body you have climbed too dead. Gate to the fort closed and they have to knock.'
  617. act 'Clear the gate':
  618. cls
  619. 'You disperse truck hit the gate of the fort. You strongly shaken and rattled the gate collapsed. Something like a truck drove out of the courtyard of the fort on the highway clogged.'
  620. act 'Drive along the highway into town':
  621. cls
  622. KGZgruzovik = 1
  623. KGZplace = 10
  624. KGZplaceA = 9
  625. KGZdead = rand(KGZday * 50, KGZday * 100)
  626. 'Your truck surrounded by a ring of the dead tried to clear the road of traffic jams. But you get stuck. There is no choice, already dead truck stuck like flies.'
  627. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  628. end
  629. act 'Ride on the highway out of town':
  630. cls
  631. KGZgruzovik = 2
  632. KGZplace = 10
  633. KGZplaceA = 11
  634. KGZdead = rand(KGZday * 50, KGZday * 100)
  635. 'Your truck surrounded by a ring of the dead tried to clear the road of traffic jams. But you get stuck. There is no choice, already dead truck stuck like flies.'
  636. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  637. end
  638. act 'To go along the side of the city':
  639. cls
  640. KGZgruzovik = 3
  641. KGZplace = 10
  642. KGZplaceA = 7
  643. KGZdead = rand(KGZday * 50, KGZday * 100)
  644. 'Your truck surrounded by a ring of the dead went on slippery roadside. When the truck crushed corpses wheel very punt and you still make a mistake, the truck slid into a ditch and overturned. There is no choice, already dead truck stuck like flies.'
  645. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  646. end
  647. act 'To go along the side of the city':
  648. cls
  649. KGZgruzovik = 4
  650. KGZplace = 10
  651. KGZplaceA = 13
  652. KGZdead = rand(KGZday * 50, KGZday * 100)
  653. 'Your truck surrounded by a ring of the dead went on slippery roadside. When the truck crushed corpses wheel very punt and you still make a mistake, the truck slid into a ditch and overturned. There is no choice, already dead truck stuck like flies.'
  654. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  655. end
  656. end
  657. end
  658. elseif KGZgruzBenz = 0:
  659. KGZgruzBenzMark = 1
  660. 'Heck, empty tank truck, standing next column, you only need to fill.'
  661. end
  662. act 'Get out of the cab':gt $curloc
  663. end
  664. end
  665. if KGZgruzBenzMark = 1:
  666. act 'Exit at Fort Bragg':
  667. cls
  668. KGZhour += 1
  669. minut += 1
  670. KGZbatl = 0
  671. KGZgruzBenz = 1
  672. gs 'stat'
  673. 'You carefully tucked truck gasoline.'
  674. act 'Further':gt $curloc
  675. end
  676. end
  677. }
  678. $KGZvihod100 = {
  679. act 'Wander through the dead city':
  680. cls
  681. KGZhour += 1
  682. minut += 1
  683. KGZbatl = 0
  684. KGZplace = 100
  685. gs 'stat'
  686. 'You went cautiously, trying not to stumble on the dead.'
  687. KGZlocrand = rand(0, 100)
  688. if KGZlocrand >= 90 and KGZlok = 0:
  689. KGZlok = 1
  690. 'You have found a solid house with iron bars on the windows'
  691. act 'Enter the house':KGZplace = 101 & gt $curloc
  692. elseif KGZlocrand >= 80 and KGZlok2 = 0:
  693. KGZlok2 = 1
  694. 'You find a large supermarket where when it sold a variety of goods'
  695. act 'Sign in to supermarket':KGZplace = 102 & gt $curloc
  696. end
  697. act 'Further':gt $curloc
  698. end
  699. act 'Go to the side of the highway':
  700. cls
  701. KGZhour += 1
  702. minut += 1
  703. KGZplaceA = 19
  704. KGZplace = 10
  705. KGZbatl = 0
  706. gs 'stat'
  707. 'You went to the highway carefully, trying not to stumble on the dead.'
  708. act 'Further':gt $curloc
  709. end
  710. if KGZlok = 1:act 'Enter the house':KGZhour += 1 & KGZplace = 101 & gt $curloc
  711. if KGZlok2 = 1:act 'Sign in to supermarket':KGZhour += 1 & KGZplace = 102 & gt $curloc
  712. }
  713. $KGZvihod102 = {
  714. act 'Get out of the supermarket':
  715. cls
  716. KGZhour += 1
  717. minut += 1
  718. KGZbatl = 0
  719. KGZplace = 100
  720. gs 'stat'
  721. 'You went cautiously, trying not to stumble on the dead.'
  722. act 'Further':gt $curloc
  723. end
  724. act 'Scour supermarket':
  725. cls
  726. KGZhour += 1
  727. minut += 1
  728. KGZbatl = 0
  729. gs 'stat'
  730. 'You gently started to fumble in search of useful, trying not to stumble on the dead.'
  731. udarand = rand(0, 100)
  732. if udarand >= 90:
  733. tiprand = rand(0, 1)
  734. if tiprand = 0:KGZsup += 1 & 'You are lucky and you find food'
  735. if tiprand = 1:KGZmedkit += 1 & 'You are lucky and you find a first aid kit'
  736. end
  737. act 'Further':gt $curloc
  738. end
  739. }
  740. $KGZvihod200 = {
  741. act 'Walk through the woods to the highway':
  742. cls
  743. KGZhour += 1
  744. minut += 1
  745. KGZbatl = 0
  746. KGZplace = 10
  747. gs 'stat'
  748. 'You went cautiously, trying not to stumble on the dead.'
  749. act 'Further':gt $curloc
  750. end
  751. act 'Walk through the woods from the highway':
  752. cls
  753. KGZhour += 1
  754. minut += 1
  755. KGZbatl = 0
  756. KGZplace = 201
  757. gs 'stat'
  758. 'You went cautiously, trying not to stumble on the dead.'
  759. act 'Further':gt $curloc
  760. end
  761. }
  762. $KGZvihod201 = {
  763. act 'Go to the forest':
  764. cls
  765. KGZhour += 1
  766. minut += 1
  767. KGZbatl = 0
  768. KGZplace = 200
  769. gs 'stat'
  770. 'You went cautiously, trying not to stumble on the dead.'
  771. act 'Further':gt $curloc
  772. end
  773. act 'Go to the farmhouse':
  774. cls
  775. KGZhour += 1
  776. minut += 1
  777. KGZbatl = 0
  778. KGZplace = 202
  779. gs 'stat'
  780. 'You went cautiously, trying not to stumble on the dead.'
  781. act 'Further':gt $curloc
  782. end
  783. }
  784. $KGZvincent = {
  785. cls
  786. if KGZfortQW = 1:KGZfortQW = 2
  787. 'The fort has arsenal and warehouse with food, hospital and garage with trucks. But a lot of dead, really a lot. Several soldiers tried to break but died. Some tried to use flamethrowers, but still dead burn, they manage to reach the man and the end. From the fort should leave as soon as possible.'
  788. act 'Further':gt $curloc
  789. }
  790. $KGZfizatk = {
  791. if KGZweapon = 0:
  792. KGZuspeh = rand(0, 100)
  793. if KGZuspeh <= 30:
  794. KGZdead -= 1
  795. 'You were very good ghouls fist on the head and he fell stopping moves.'
  796. else
  797. 'Ghoul irreversible no attention to your punch.'
  798. end
  799. elseif KGZweapon = 1:
  800. KGZuspeh = rand(0, 100)
  801. if KGZuspeh <= 50:
  802. KGZdead -= 1
  803. 'You were very good ghouls club head and he fell stopping moves.'
  804. else
  805. 'Ghoul irreversible no attention to your clubbing.'
  806. end
  807. elseif KGZweapon = 2:
  808. KGZuspeh = rand(0, 100)
  809. if KGZuspeh <= 70:
  810. KGZdead -= 1
  811. 'You were very good ghouls ax on the head and he fell stopping moves.'
  812. else
  813. 'Ghoul irreversible no attention to your ax blow.'
  814. end
  815. end
  816. if KGZdead > 0:
  817. kgzuron = rand(KGZdead * 2, KGZdead * 5)
  818. KGZHP -= kgzuron
  819. '<<KGZdead>> dead clutching at you, trying to tear.'
  820. '<b><font color="red">you have caused damage <<kgzuron>> units.</font></b>'
  821. end
  822. }
  823. $KGZgunatk = {
  824. KGZuspeh = rand(0, 100)
  825. if KGZdist <= 5:
  826. if KGZuspeh <= 90:
  827. KGZdead -= 1
  828. 'You put a bullet in his head and he fell ghoul stopping moves.'
  829. else
  830. 'You hit the dead.'
  831. end
  832. elseif KGZdist <= 10:
  833. if KGZuspeh <= 80:
  834. KGZdead -= 1
  835. 'You put a bullet in his head and he fell ghoul stopping moves.'
  836. else
  837. 'You hit the dead.'
  838. end
  839. else
  840. if KGZuspeh <= 70:
  841. KGZdead -= 1
  842. 'You put a bullet in his head and he fell ghoul stopping moves.'
  843. else
  844. 'You hit the dead.'
  845. end
  846. end
  847. }
  848. $KGZgunatk2 = {
  849. KGZuspeh = rand(0, 100)
  850. if KGZdist <= 5:
  851. if KGZuspeh <= 100:
  852. KGZdead -= 1
  853. 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
  854. else
  855. 'You hit the dead.'
  856. end
  857. elseif KGZdist <= 10:
  858. if KGZuspeh <= 70:
  859. KGZdead -= 1
  860. 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
  861. else
  862. 'You hit the dead.'
  863. end
  864. else
  865. if KGZuspeh <= 50:
  866. KGZdead -= 1
  867. 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
  868. else
  869. 'You hit the dead.'
  870. end
  871. end
  872. }
  873. $KGZgunatk3 = {
  874. KGZuspeh = rand(0, 100)
  875. if KGZdist <= 5:
  876. if KGZuspeh <= 70:
  877. KGZdead -= 1
  878. 'You put a bullet in his head and he fell ghoul stopping moves.'
  879. else
  880. 'You hit the dead.'
  881. end
  882. elseif KGZdist <= 10:
  883. if KGZuspeh <= 95:
  884. KGZdead -= 1
  885. 'You put a bullet in his head and he fell ghoul stopping moves.'
  886. else
  887. 'You hit the dead.'
  888. end
  889. else
  890. if KGZuspeh <= 85:
  891. KGZdead -= 1
  892. 'You put a bullet in his head and he fell ghoul stopping moves.'
  893. else
  894. 'You hit the dead.'
  895. end
  896. end
  897. }
  898. $KGZgunatk4 = {
  899. :KGZmarkgun
  900. KGZbulgun -= 1
  901. KGZuspeh = rand(0, 100)
  902. if KGZdead > 0:
  903. if KGZdist <= 5:
  904. if KGZuspeh <= 80:
  905. KGZdead -= 1
  906. 'You put a bullet in his head and he fell ghoul stopping moves.'
  907. else
  908. 'You hit the dead.'
  909. end
  910. elseif KGZdist <= 10:
  911. if KGZuspeh <= 70:
  912. KGZdead -= 1
  913. 'You put a bullet in his head and he fell ghoul stopping moves.'
  914. else
  915. 'You hit the dead.'
  916. end
  917. else
  918. if KGZuspeh <= 60:
  919. KGZdead -= 1
  920. 'You put a bullet in his head and he fell ghoul stopping moves.'
  921. else
  922. 'You hit the dead.'
  923. end
  924. end
  925. end
  926. if KGZbulgun > 0:jump 'KGZmarkgun'
  927. }
  928. $KGZgunatk5 = {
  929. :KGZmarkgunb
  930. KGZbulgun -= 1
  931. KGZuspeh = rand(0, 100)
  932. if KGZdead > 0:
  933. if KGZdist <= 5:
  934. if KGZuspeh <= 70:
  935. KGZdead -= 1
  936. 'You put a bullet in his head and he fell ghoul stopping moves.'
  937. else
  938. 'You hit the dead.'
  939. end
  940. elseif KGZdist <= 10:
  941. if KGZuspeh <= 60:
  942. KGZdead -= 1
  943. 'You put a bullet in his head and he fell ghoul stopping moves.'
  944. else
  945. 'You hit the dead.'
  946. end
  947. else
  948. if KGZuspeh <= 50:
  949. KGZdead -= 1
  950. 'You put a bullet in his head and he fell ghoul stopping moves.'
  951. else
  952. 'You hit the dead.'
  953. end
  954. end
  955. end
  956. if KGZbulgun > 0:jump 'KGZmarkgunb'
  957. }
  958. $KGZdeadmanatk = {
  959. if KGZdist > 0:KGZdist -= 1
  960. if KGZdead > 0 and KGZdist <= 2:
  961. kgzuron = rand(KGZdead * 2, KGZdead * 5)
  962. KGZHP -= kgzuron
  963. '<<KGZdead>> dead clutching at you, trying to tear.'
  964. '<b><font color="red">you have caused damage <<kgzuron>> units.</font></b>'
  965. elseif KGZdist > 2 and KGZdead > 0:
  966. '<<KGZdead>> The Dead wheezing and limping approach you.'
  967. end
  968. }
  969. $KGZgranatk = {
  970. KGZuspeh = rand(0, 100)
  971. KGZgranade -= 1
  972. 'You threw a grenade into the Dead'
  973. if KGZdist <= 5:
  974. KGZdist += rand(1, 5)
  975. KGZdead -= rand(5, 20)
  976. KGZHP -= rand(5, 20)
  977. 'Powerful explosion threw the dead in different directions'
  978. 'You hurt by a grenade'
  979. elseif KGZdist <= 10:
  980. KGZdist += rand(1, 3)
  981. KGZdead -= rand(3, 10)
  982. 'Powerful explosion threw the dead in different directions'
  983. else
  984. if KGZuspeh <= 5:
  985. KGZdead -= 1
  986. 'You put a bullet in his head and he fell ghoul stopping moves.'
  987. else
  988. 'You do not dokinuli grenade and it exploded harmlessly.'
  989. end
  990. end
  991. }
  992. --- KGZdyn ---------------------------------