359_KGZdyn 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080
  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. gs 'stat'
  24. KGZplace = 0
  25. KGZbatl = 0
  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. gs 'stat'
  34. KGZplace = 2
  35. KGZbatl = 0
  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. gs 'stat'
  44. KGZplace = 3
  45. KGZbatl = 0
  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. gs 'stat'
  54. KGZplace = 4
  55. KGZbatl = 0
  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. gs 'stat'
  66. KGZplace = 1
  67. KGZbatl = 0
  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. gs 'stat'
  76. !KGZplace = 2
  77. KGZbatl = 0
  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. gs 'stat'
  98. KGZplace = 1
  99. KGZbatl = 0
  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. gs 'stat'
  108. !KGZplace = 2
  109. KGZbatl = 0
  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. gs 'stat'
  130. KGZplace = 1
  131. KGZbatl = 0
  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. gs 'stat'
  140. KGZplace = 5
  141. KGZbatl = 0
  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. gs 'stat'
  150. KGZplace = 6
  151. KGZbatl = 0
  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. gs 'stat'
  160. KGZplace = 7
  161. KGZbatl = 0
  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. gs 'stat'
  171. !KGZplace = 2
  172. KGZbatl = 1
  173. KGZcopcar = 1
  174. 'Noiselessly you started searching the police car.'
  175. if KGZgun = 0: KGZgun = 1 & 'You have found a pistol'
  176. bullet += 10
  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. gs 'stat'
  186. KGZplace = 8
  187. KGZbatl = 0
  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. gs 'stat'
  198. KGZplace = 4
  199. KGZbatl = 0
  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. gs 'stat'
  208. !KGZplace = 2
  209. KGZbatl = 0
  210. 'Noiselessly you started searching the hunting store.'
  211. if KGZgun2 = 0: KGZgun2 = 1 & 'You found a shotgun'
  212. bulletrand = RAND(3,20)
  213. bullet2 += bulletrand
  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. gs 'stat'
  224. KGZplace = 4
  225. KGZbatl = 0
  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. gs 'stat'
  234. !KGZplace = 2
  235. KGZbatl = 0
  236. 'Noiselessly you started searching the police station.'
  237. if KGZgun = 0: KGZgun = 1 & 'You have found a pistol'
  238. bulletrand = RAND(3,20)
  239. bullet += bulletrand
  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. gs 'stat'
  251. KGZcopdoor = 1
  252. KGZbatl = 0
  253. 'Noiselessly you started searching the police station.'
  254. if KGZgun3 = 0: KGZgun3 = 1 & 'You found Machine'
  255. bullet3 += 500
  256. 'You have found 500 tons of ammunition for machine.'
  257. KGZdead = KGZday * 10
  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. end
  263. if KGZcopdoor = 1:
  264. 'Armory room is empty, just a bunch of dead on the floor, according to a recent fight with you.'
  265. if KGZratia = 0:
  266. act 'Pick up radio':
  267. cls
  268. KGZhour += 1
  269. minut += 1
  270. gs 'stat'
  271. KGZratia = 1
  272. KGZbatl = 1
  273. '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."'
  274. act 'Further': gt $curloc
  275. end
  276. end
  277. end
  278. }
  279. $KGZvihod7 = {
  280. act 'Get Outside':
  281. cls
  282. KGZhour += 1
  283. minut += 1
  284. gs 'stat'
  285. KGZplace = 4
  286. KGZbatl = 0
  287. 'You carefully went into the street trying not to stumble on the dead.'
  288. act 'Further': gt $curloc
  289. end
  290. act 'Search the store':
  291. cls
  292. KGZhour += 1
  293. minut += 1
  294. gs 'stat'
  295. !KGZplace = 2
  296. KGZbatl = 0
  297. 'Noiselessly you started searching the hardware store.'
  298. if KGZweapon < 2:
  299. KGZweapon = 2
  300. 'You found an ax'
  301. act 'Further': gt $curloc
  302. exit
  303. end
  304. if KGZgenerator = 0:
  305. KGZgenerator = 1
  306. 'You found refillable portable generator gasoline.'
  307. act 'Further': gt $curloc
  308. exit
  309. end
  310. if KGZbolgarka = 0:
  311. KGZbolgarka = 1
  312. 'You found grinder is powered by electricity.'
  313. act 'Further': gt $curloc
  314. exit
  315. end
  316. 'You did not find anything useful.'
  317. act 'Further': gt $curloc
  318. end
  319. }
  320. $KGZvihod8 = {
  321. act 'Exit at Boulevard':
  322. cls
  323. KGZhour += 1
  324. minut += 1
  325. gs 'stat'
  326. KGZplace = 4
  327. KGZbatl = 0
  328. 'You went to the boulevard carefully trying not to stumble on the dead.'
  329. act 'Further': gt $curloc
  330. end
  331. act 'Go to the gas station':
  332. cls
  333. KGZhour += 1
  334. minut += 1
  335. gs 'stat'
  336. KGZplace = 9
  337. KGZbatl = 0
  338. 'Noiselessly you went to the gas station.'
  339. act 'Further': gt $curloc
  340. end
  341. if KGZratia > 0:
  342. act 'Go in the direction of Fort Bragg':
  343. cls
  344. KGZhour += 1
  345. minut += 1
  346. gs 'stat'
  347. KGZplace = 10
  348. KGZplaceA = 1
  349. KGZbatl = 0
  350. 'Noiselessly you went toward Fort Bragg.'
  351. act 'Further': gt $curloc
  352. end
  353. end
  354. }
  355. $KGZvihod9 = {
  356. act 'Exit the highway':
  357. cls
  358. KGZhour += 1
  359. minut += 1
  360. gs 'stat'
  361. KGZplace = 8
  362. KGZbatl = 0
  363. 'You went to the highway carefully, trying not to stumble on the dead.'
  364. act 'Further': gt $curloc
  365. end
  366. if KGZbenzin = 0:
  367. act 'Pour gasoline':
  368. cls
  369. KGZhour += 1
  370. minut += 1
  371. gs 'stat'
  372. KGZbenzin = 1
  373. KGZbatl = 0
  374. 'Noiselessly you poured gasoline from the column.'
  375. act 'Further': gt $curloc
  376. end
  377. end
  378. }
  379. $KGZvihod10 = {
  380. if KGZplaceA < 10:$KGZplaceA = 'Fort Bragg' & $KGZplaceB = 'from the city'
  381. if KGZplaceA > 10:$KGZplaceA = 'from the city' & $KGZplaceB = 'Fort Bragg'
  382. act 'Go in the direction <<$KGZplaceA>>':
  383. cls
  384. KGZhour += 1
  385. minut += 1
  386. gs 'stat'
  387. KGZplaceA += 1
  388. KGZbatl = 0
  389. 'You went to the highway carefully, trying not to stumble on the dead.'
  390. act 'Further': gt $curloc
  391. end
  392. act 'Go in the direction <<$KGZplaceB>>':
  393. cls
  394. KGZhour += 1
  395. minut += 1
  396. gs 'stat'
  397. KGZplaceA -= 1
  398. KGZbatl = 0
  399. 'You went to the highway carefully, trying not to stumble on the dead.'
  400. act 'Further': gt $curloc
  401. end
  402. if KGZplaceA > 10:
  403. act 'Go to the forest':
  404. cls
  405. KGZhour += 1
  406. minut += 1
  407. gs 'stat'
  408. KGZbatl = 0
  409. KGZplace = 200
  410. 'You have gone off the highway into the woods.'
  411. act 'Further': gt $curloc
  412. end
  413. end
  414. }
  415. $KGZvihod11 = {
  416. if KGZfortQW = 0: 'From the roof of a shot is fired with a sniper rifle.'
  417. 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."'
  418. act 'Probivatsya the roof':
  419. cls
  420. KGZhour += 1
  421. minut += 1
  422. gs 'stat'
  423. if KGZfortQW = 0: KGZfortQW = 1
  424. KGZplace = 12
  425. KGZbatl = 0
  426. KGZdead = RAND(KGZday * 20, KGZday * 30)
  427. 'You ran into a fort surrounded on all sides dead.'
  428. act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
  429. end
  430. act 'Go to the side of the highway (the side leading to the city)':
  431. cls
  432. KGZhour += 1
  433. minut += 1
  434. gs 'stat'
  435. KGZplaceA = 9
  436. KGZplace = 10
  437. KGZbatl = 0
  438. 'You went to the highway carefully, trying not to stumble on the dead.'
  439. act 'Further': gt $curloc
  440. end
  441. act 'Go to the side of the highway (leading side of the city)':
  442. cls
  443. KGZhour += 1
  444. minut += 1
  445. gs 'stat'
  446. KGZplaceA = 11
  447. KGZplace = 10
  448. KGZbatl = 0
  449. 'You went to the highway carefully, trying not to stumble on the dead.'
  450. act 'Further': gt $curloc
  451. end
  452. if KGZfortQW = 2:
  453. act 'Probivatsya on food warehouse':
  454. cls
  455. KGZhour += 1
  456. minut += 1
  457. gs 'stat'
  458. KGZplace = 13
  459. KGZbatl = 0
  460. KGZdead = RAND(KGZday * 20, KGZday * 30)
  461. 'You ran to the warehouse surrounded on all sides dead.'
  462. act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
  463. end
  464. act 'Probivatsya infirmary':
  465. cls
  466. KGZhour += 1
  467. minut += 1
  468. gs 'stat'
  469. KGZplace = 14
  470. KGZbatl = 0
  471. KGZdead = RAND(KGZday * 20, KGZday * 30)
  472. 'You ran into the hospital surrounded on all sides dead.'
  473. act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
  474. end
  475. act 'Probivatsya armory':
  476. cls
  477. KGZhour += 1
  478. minut += 1
  479. gs 'stat'
  480. KGZplace = 15
  481. KGZbatl = 0
  482. KGZdead = RAND(KGZday * 20, KGZday * 30)
  483. 'You ran into the hospital surrounded on all sides dead.'
  484. act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
  485. end
  486. act 'Probivatsya in garage':
  487. cls
  488. KGZhour += 1
  489. minut += 1
  490. gs 'stat'
  491. KGZplace = 16
  492. KGZbatl = 0
  493. KGZdead = RAND(KGZday * 20, KGZday * 30)
  494. 'You ran into the hospital surrounded on all sides dead.'
  495. act 'Srazhatsya': KGZdist = RAND(5,12)&gt 'KGZfight'
  496. end
  497. end
  498. }
  499. $KGZvihod13 = {
  500. act 'Exit at Fort Bragg':
  501. cls
  502. KGZhour += 1
  503. minut += 1
  504. gs 'stat'
  505. KGZbatl = 0
  506. KGZplace = 11
  507. 'You went cautiously, trying not to stumble on the dead.'
  508. act 'Further': gt $curloc
  509. end
  510. act 'Search the warehouse':
  511. cls
  512. KGZhour += 1
  513. minut += 1
  514. gs 'stat'
  515. !KGZplace = 2
  516. KGZbatl = 0
  517. 'Noiselessly you started searching the dark warehouse.'
  518. udacharand = RAND(0,1)
  519. if udacharand = 1:
  520. KGZsuprand = RAND(1,3)
  521. KGZsup += KGZsuprand
  522. 'You have found the diet <<KGZsuprand>> days'
  523. end
  524. if udacharand = 0:
  525. KGZdead = RAND(KGZday * 5, KGZday * 10)
  526. 'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
  527. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  528. exit
  529. end
  530. act 'Further': gt $curloc
  531. end
  532. }
  533. $KGZvihod14 = {
  534. act 'Exit at Fort Bragg':
  535. cls
  536. KGZhour += 1
  537. minut += 1
  538. gs 'stat'
  539. KGZbatl = 0
  540. KGZplace = 11
  541. 'You went cautiously, trying not to stumble on the dead.'
  542. act 'Further': gt $curloc
  543. end
  544. act 'Search the infirmary':
  545. cls
  546. KGZhour += 1
  547. minut += 1
  548. gs 'stat'
  549. !KGZplace = 2
  550. KGZbatl = 0
  551. 'Noiselessly you started searching the dark infirmary.'
  552. udacharand = RAND(0,1)
  553. if udacharand = 1:
  554. KGZmedkit += 1
  555. 'You have found a first aid kit'
  556. end
  557. if udacharand = 0:
  558. KGZdead = RAND(KGZday * 5, KGZday * 10)
  559. 'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
  560. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  561. exit
  562. end
  563. act 'Further': gt $curloc
  564. end
  565. }
  566. $KGZvihod15 = {
  567. act 'Exit at Fort Bragg':
  568. cls
  569. KGZhour += 1
  570. minut += 1
  571. gs 'stat'
  572. KGZbatl = 0
  573. KGZplace = 11
  574. 'You went cautiously, trying not to stumble on the dead.'
  575. act 'Further': gt $curloc
  576. end
  577. act 'Search armory':
  578. cls
  579. KGZhour += 1
  580. minut += 1
  581. gs 'stat'
  582. !KGZplace = 2
  583. KGZbatl = 0
  584. if KGZfortOru = 1:
  585. 'In Munitions nothing useful.'
  586. end
  587. if KGZfortOru = 0:
  588. KGZfortOru = 1
  589. 'In Munitions you find ammunition for machine 300 pieces and 10 grenades.'
  590. KGZgranade += 10
  591. bullet3 += 300
  592. end
  593. '.'
  594. act 'Further': gt $curloc
  595. end
  596. }
  597. $KGZvihod16 = {
  598. act 'Exit at Fort Bragg':
  599. cls
  600. KGZhour += 1
  601. minut += 1
  602. gs 'stat'
  603. KGZbatl = 0
  604. KGZplace = 11
  605. 'You went cautiously, trying not to stumble on the dead.'
  606. act 'Further': gt $curloc
  607. end
  608. if KGZgruzovik = 0:
  609. act 'Climb into the truck':
  610. cls
  611. KGZhour += 1
  612. minut += 1
  613. gs 'stat'
  614. !KGZplace = 2
  615. KGZbatl = 0
  616. if KGZgruzBenz = 1:
  617. 'You sat in the cab on the driver´s seat and brought the truck.'
  618. act 'Go':
  619. cls
  620. '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.'
  621. act 'Clear the gate':
  622. cls
  623. '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.'
  624. act 'Drive along the highway into town':
  625. cls
  626. KGZgruzovik = 1
  627. KGZplace = 10
  628. KGZplaceA = 9
  629. '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.'
  630. KGZdead = RAND(KGZday * 50, KGZday * 100)
  631. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  632. end
  633. act 'Ride on the highway out of town':
  634. cls
  635. KGZgruzovik = 2
  636. KGZplace = 10
  637. KGZplaceA = 11
  638. '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.'
  639. KGZdead = RAND(KGZday * 50, KGZday * 100)
  640. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  641. end
  642. act 'To go along the side of the city':
  643. cls
  644. KGZgruzovik = 3
  645. KGZplace = 10
  646. KGZplaceA = 7
  647. '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.'
  648. KGZdead = RAND(KGZday * 50, KGZday * 100)
  649. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  650. end
  651. act 'To go along the side of the city':
  652. cls
  653. KGZgruzovik = 4
  654. KGZplace = 10
  655. KGZplaceA = 13
  656. '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.'
  657. KGZdead = RAND(KGZday * 50, KGZday * 100)
  658. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  659. end
  660. end
  661. end
  662. end
  663. if KGZgruzBenz = 0:
  664. KGZgruzBenzMark = 1
  665. 'Heck, empty tank truck, standing next column, you only need to fill.'
  666. end
  667. act 'Get out of the cab': gt $curloc
  668. end
  669. end
  670. if KGZgruzBenzMark = 1:
  671. act 'Exit at Fort Bragg':
  672. cls
  673. KGZhour += 1
  674. minut += 1
  675. gs 'stat'
  676. KGZbatl = 0
  677. KGZgruzBenz = 1
  678. 'You carefully tucked truck gasoline.'
  679. act 'Further': gt $curloc
  680. end
  681. end
  682. }
  683. $KGZvihod100 = {
  684. act 'Wander through the dead city':
  685. cls
  686. KGZhour += 1
  687. minut += 1
  688. gs 'stat'
  689. KGZbatl = 0
  690. KGZplace = 100
  691. 'You went cautiously, trying not to stumble on the dead.'
  692. KGZlocrand = RAND(0,100)
  693. if KGZlocrand >= 90 and KGZlok = 0:
  694. 'You have found a solid house with iron bars on the windows'
  695. KGZlok = 1
  696. act 'Enter the house': KGZplace = 101 & gt $curloc
  697. end
  698. if KGZlocrand >= 80 and KGZlok2 = 0:
  699. KGZlok2 = 1
  700. 'You find a large supermarket where when it sold a variety of goods'
  701. act 'Sign in to supermarket': KGZplace = 102 & gt $curloc
  702. end
  703. act 'Further': gt $curloc
  704. end
  705. act 'Go to the side of the highway':
  706. cls
  707. KGZhour += 1
  708. minut += 1
  709. gs 'stat'
  710. KGZplaceA = 19
  711. KGZplace = 10
  712. KGZbatl = 0
  713. 'You went to the highway carefully, trying not to stumble on the dead.'
  714. act 'Further': gt $curloc
  715. end
  716. if KGZlok = 1: act 'Enter the house': KGZhour += 1 & KGZplace = 101 & gt $curloc
  717. if KGZlok2 = 1: act 'Sign in to supermarket': KGZhour += 1 & KGZplace = 102 & gt $curloc
  718. }
  719. $KGZvihod102 = {
  720. act 'Get out of the supermarket':
  721. cls
  722. KGZhour += 1
  723. minut += 1
  724. gs 'stat'
  725. KGZbatl = 0
  726. KGZplace = 100
  727. 'You went cautiously, trying not to stumble on the dead.'
  728. act 'Further': gt $curloc
  729. end
  730. act 'Scour supermarket':
  731. cls
  732. KGZhour += 1
  733. minut += 1
  734. gs 'stat'
  735. KGZbatl = 0
  736. 'You gently started to fumble in search of useful, trying not to stumble on the dead.'
  737. udarand = RAND(0,100)
  738. if udarand >= 90:
  739. tiprand = RAND(0,1)
  740. if tiprand = 0: KGZsup += 1 & 'You are lucky and you find food'
  741. if tiprand = 1: KGZmedkit += 1 & 'You are lucky and you find a first aid kit'
  742. end
  743. act 'Further': gt $curloc
  744. end
  745. }
  746. $KGZvihod200 = {
  747. act 'Walk through the woods to the highway':
  748. cls
  749. KGZhour += 1
  750. minut += 1
  751. gs 'stat'
  752. KGZbatl = 0
  753. KGZplace = 10
  754. 'You went cautiously, trying not to stumble on the dead.'
  755. act 'Further': gt $curloc
  756. end
  757. act 'Walk through the woods from the highway':
  758. cls
  759. KGZhour += 1
  760. minut += 1
  761. gs 'stat'
  762. KGZbatl = 0
  763. KGZplace = 201
  764. 'You went cautiously, trying not to stumble on the dead.'
  765. act 'Further': gt $curloc
  766. end
  767. }
  768. $KGZvihod201 = {
  769. act 'Go to the forest':
  770. cls
  771. KGZhour += 1
  772. minut += 1
  773. gs 'stat'
  774. KGZbatl = 0
  775. KGZplace = 200
  776. 'You went cautiously, trying not to stumble on the dead.'
  777. act 'Further': gt $curloc
  778. end
  779. act 'Go to the farmhouse':
  780. cls
  781. KGZhour += 1
  782. minut += 1
  783. gs 'stat'
  784. KGZbatl = 0
  785. KGZplace = 202
  786. 'You went cautiously, trying not to stumble on the dead.'
  787. act 'Further': gt $curloc
  788. end
  789. }
  790. $KGZvincent = {
  791. cls
  792. if KGZfortQW = 1: KGZfortQW = 2
  793. '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.'
  794. act 'Further': gt $curloc
  795. }
  796. $KGZfizatk = {
  797. if KGZweapon = 0:
  798. KGZuspeh = RAND(0,100)
  799. if KGZuspeh <= 30:
  800. KGZdead -= 1
  801. 'You were very good ghouls fist on the head and he fell stopping moves.'
  802. else
  803. 'Ghoul irreversible no attention to your punch.'
  804. end
  805. end
  806. if KGZweapon = 1:
  807. KGZuspeh = RAND(0,100)
  808. if KGZuspeh <= 50:
  809. KGZdead -= 1
  810. 'You were very good ghouls club head and he fell stopping moves.'
  811. else
  812. 'Ghoul irreversible no attention to your clubbing.'
  813. end
  814. end
  815. if KGZweapon = 2:
  816. KGZuspeh = RAND(0,100)
  817. if KGZuspeh <= 70:
  818. KGZdead -= 1
  819. 'You were very good ghouls ax on the head and he fell stopping moves.'
  820. else
  821. 'Ghoul irreversible no attention to your ax blow.'
  822. end
  823. end
  824. if KGZdead > 0:
  825. '<<KGZdead>> dead clutching at you, trying to tear.'
  826. kgzuron = RAND(KGZdead * 2, KGZdead * 5)
  827. KGZHP -= kgzuron
  828. '<B><font color = red>you have caused damage <<kgzuron>> units.</font></B>'
  829. end
  830. }
  831. $KGZgunatk = {
  832. KGZuspeh = RAND(0,100)
  833. if KGZdist <= 5:
  834. if KGZuspeh <= 90:
  835. KGZdead -= 1
  836. 'You put a bullet in his head and he fell ghoul stopping moves.'
  837. else
  838. 'You hit the dead.'
  839. end
  840. elseif KGZdist <= 10:
  841. if KGZuspeh <= 80:
  842. KGZdead -= 1
  843. 'You put a bullet in his head and he fell ghoul stopping moves.'
  844. else
  845. 'You hit the dead.'
  846. end
  847. else
  848. if KGZuspeh <= 70:
  849. KGZdead -= 1
  850. 'You put a bullet in his head and he fell ghoul stopping moves.'
  851. else
  852. 'You hit the dead.'
  853. end
  854. end
  855. }
  856. $KGZgunatk2 = {
  857. KGZuspeh = RAND(0,100)
  858. if KGZdist <= 5:
  859. if KGZuspeh <= 100:
  860. KGZdead -= 1
  861. 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
  862. else
  863. 'You hit the dead.'
  864. end
  865. elseif KGZdist <= 10:
  866. if KGZuspeh <= 70:
  867. KGZdead -= 1
  868. 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
  869. else
  870. 'You hit the dead.'
  871. end
  872. else
  873. if KGZuspeh <= 50:
  874. KGZdead -= 1
  875. 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
  876. else
  877. 'You hit the dead.'
  878. end
  879. end
  880. }
  881. $KGZgunatk3 = {
  882. KGZuspeh = RAND(0,100)
  883. if KGZdist <= 5:
  884. if KGZuspeh <= 70:
  885. KGZdead -= 1
  886. 'You put a bullet in his head and he fell ghoul stopping moves.'
  887. else
  888. 'You hit the dead.'
  889. end
  890. elseif KGZdist <= 10:
  891. if KGZuspeh <= 95:
  892. KGZdead -= 1
  893. 'You put a bullet in his head and he fell ghoul stopping moves.'
  894. else
  895. 'You hit the dead.'
  896. end
  897. else
  898. if KGZuspeh <= 85:
  899. KGZdead -= 1
  900. 'You put a bullet in his head and he fell ghoul stopping moves.'
  901. else
  902. 'You hit the dead.'
  903. end
  904. end
  905. }
  906. $KGZgunatk4 = {
  907. :KGZmarkgun
  908. KGZbulgun -= 1
  909. KGZuspeh = RAND(0,100)
  910. if KGZdead > 0:
  911. if KGZdist <= 5:
  912. if KGZuspeh <= 80:
  913. KGZdead -= 1
  914. 'You put a bullet in his head and he fell ghoul stopping moves.'
  915. else
  916. 'You hit the dead.'
  917. end
  918. elseif KGZdist <= 10:
  919. if KGZuspeh <= 70:
  920. KGZdead -= 1
  921. 'You put a bullet in his head and he fell ghoul stopping moves.'
  922. else
  923. 'You hit the dead.'
  924. end
  925. else
  926. if KGZuspeh <= 60:
  927. KGZdead -= 1
  928. 'You put a bullet in his head and he fell ghoul stopping moves.'
  929. else
  930. 'You hit the dead.'
  931. end
  932. end
  933. end
  934. if KGZbulgun > 0: jump 'KGZmarkgun'
  935. }
  936. $KGZgunatk5 = {
  937. :KGZmarkgunb
  938. KGZbulgun -= 1
  939. KGZuspeh = RAND(0,100)
  940. if KGZdead > 0:
  941. if KGZdist <= 5:
  942. if KGZuspeh <= 70:
  943. KGZdead -= 1
  944. 'You put a bullet in his head and he fell ghoul stopping moves.'
  945. else
  946. 'You hit the dead.'
  947. end
  948. elseif KGZdist <= 10:
  949. if KGZuspeh <= 60:
  950. KGZdead -= 1
  951. 'You put a bullet in his head and he fell ghoul stopping moves.'
  952. else
  953. 'You hit the dead.'
  954. end
  955. else
  956. if KGZuspeh <= 50:
  957. KGZdead -= 1
  958. 'You put a bullet in his head and he fell ghoul stopping moves.'
  959. else
  960. 'You hit the dead.'
  961. end
  962. end
  963. end
  964. if KGZbulgun > 0: jump 'KGZmarkgunb'
  965. }
  966. $KGZdeadmanatk = {
  967. if KGZdist > 0: KGZdist -= 1
  968. if KGZdead > 0 and KGZdist <= 2:
  969. '<<KGZdead>> dead clutching at you, trying to tear.'
  970. kgzuron = RAND(KGZdead * 2, KGZdead * 5)
  971. KGZHP -= kgzuron
  972. '<B><font color = red>you have caused damage <<kgzuron>> units.</font></B>'
  973. elseif KGZdist > 2 and KGZdead > 0:
  974. '<<KGZdead>> The Dead wheezing and limping approach you.'
  975. end
  976. }
  977. $KGZgranatk = {
  978. KGZuspeh = RAND(0,100)
  979. KGZgranade -= 1
  980. 'You threw a grenade into the Dead'
  981. if KGZdist <= 5:
  982. 'Powerful explosion threw the dead in different directions'
  983. KGZdist += RAND(1,5)
  984. KGZdead -= RAND(5,20)
  985. KGZHP -= RAND(5,20)
  986. 'You hurt by a grenade'
  987. elseif KGZdist <= 10:
  988. 'Powerful explosion threw the dead in different directions'
  989. KGZdist += RAND(1,3)
  990. KGZdead -= RAND(3,10)
  991. else
  992. if KGZuspeh <= 5:
  993. KGZdead -= 1
  994. 'You put a bullet in his head and he fell ghoul stopping moves.'
  995. else
  996. 'You do not dokinuli grenade and it exploded harmlessly.'
  997. end
  998. end
  999. }
  1000. --- KGZdyn ---------------------------------