1
1

434_KGZgame 32 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282
  1. # KGZgame
  2. <<<<<<< 434_KGZgame
  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. >>>>>>> 434_KGZgame
  13. cla
  14. *clr
  15. '<center><B>GAME OVER</B></center>'
  16. <<<<<<< 434_KGZgame
  17. act 'Quit Game': gt 'KGZstart'
  18. =======
  19. act 'Leave the game':gt'KGZstart'
  20. >>>>>>> 434_KGZgame
  21. exit
  22. end
  23. <<<<<<< 434_KGZgame
  24. if KGZhour >= 6 and KGZhour <= 21:
  25. KGZsvet = 1
  26. else
  27. KGZsvet = 0
  28. =======
  29. if KGZhour>=6 and KGZhour<=21:
  30. KGZsvet=1
  31. else
  32. KGZsvet=0
  33. >>>>>>> 434_KGZgame
  34. end
  35. <<<<<<< 434_KGZgame
  36. '<a href="exec:GT ''KGZstart''">Get out of the game</a>'
  37. 'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
  38. if KGZsup <= 0: 'You have no provisions, you are starving!'
  39. 'Edged weapons: <<$KGZweapon>>'
  40. if KGZgun > 0: '<<$KGZgun>>'
  41. if KGZgun2 > 0: '<<$KGZgun2>>'
  42. if KGZgun3 > 0: '<<$KGZgun3>>'
  43. if KGZgenerator > 0:
  44. if KGZbenzin = 0:$KGZbenzin = 'But the generator does not work because you do not have gasoline.'
  45. if KGZbenzin = 1:$KGZbenzin = 'You have filled a full tank of gasoline.'
  46. 'Do you have a portable generator runs on gasoline. <<$KGZbenzin>>'
  47. end
  48. if KGZbolgarka > 0: 'Do you have a Bulgarian powered by electricity.'
  49. if KGZratia = 1: 'Do you have a radio.'
  50. ''
  51. if KGZplace = 0:
  52. '<center><B>Apartment</B></center>'
  53. 'Your apartment is a safe place. The apartment is stored provisions, which will be enough to <<KGZsup>> days'
  54. if KGZmedkit > 0:
  55. 'First aid kits <<KGZmedkit>> pieces'
  56. if KGZHP < 100:
  57. act 'Treated':
  58. cls
  59. KGZhour += 1
  60. KGZHP = 100
  61. KGZmedkit -= 1
  62. minut += 1
  63. gs 'stat'
  64. 'You heal health through kits.'
  65. act 'Further': gt $curloc
  66. end
  67. end
  68. end
  69. act 'Laze':
  70. cls
  71. KGZhour += 1
  72. minut += 1
  73. gs 'stat'
  74. 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
  75. act 'Further': gt $curloc
  76. end
  77. act 'Leave the apartment':
  78. cls
  79. KGZhour += 1
  80. minut += 1
  81. gs 'stat'
  82. KGZplace = 1
  83. KGZbatl = 0
  84. 'You cautiously left the apartment trying not to stumble on the dead.'
  85. act 'Further': gt $curloc
  86. end
  87. =======
  88. '<a href="exec:GT ''KGZstart''">Leave the game</a>'
  89. 'health <<KGZHP>>. day <<KGZday>>, h <<KGZhour>>.'
  90. if KGZsup<=0:'You do not have provisions, you starve!'
  91. 'cold arms: <<$KGZweapon>>'
  92. if KGZgun>0:'<<$KGZgun>>'
  93. if KGZgun2>0:'<<$KGZgun2>>'
  94. if KGZgun3>0:'<<$KGZgun3>>'
  95. if KGZgenerator>0:
  96. if KGZbenzin=0:$KGZbenzin='But the generator does not work, since you do not have gasoline.'
  97. if KGZbenzin=1:$KGZbenzin='You have filled a full tank of petrol.'
  98. 'Do you have a portable generator running on gasoline. <<$KGZbenzin>>'
  99. end
  100. if KGZbolgarka>0:'Do you have a Bulgarian powered by electricity.'
  101. if KGZratia=1:'Do you have a portable radio.'
  102. ''
  103. if KGZplace=0:
  104. '<center><B>apartment</B></center>'
  105. 'Your apartment safe place. The apartment is kept provisions, which will be enough for <<KGZsup>> days'
  106. if KGZmedkit>0:
  107. 'kits <<KGZmedkit>> pcs'
  108. if KGZHP<100:
  109. act 'treated':
  110. cls
  111. KGZhour+=1
  112. KGZHP=100
  113. KGZmedkit-=1
  114. minut+=1
  115. gs'stat'
  116. 'You cured with the help of health kits.'
  117. act 'further':gt $curloc
  118. end
  119. end
  120. end
  121. act 'laze':
  122. cls
  123. KGZhour+=1
  124. minut+=1
  125. gs'stat'
  126. 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
  127. act 'further':gt $curloc
  128. end
  129. act 'Leave the apartment':
  130. cls
  131. KGZhour+=1
  132. minut+=1
  133. gs'stat'
  134. KGZplace=1
  135. KGZbatl=0
  136. 'You cautiously left the apartment trying not to run into dead.'
  137. act 'further':gt $curloc
  138. end
  139. >>>>>>> 434_KGZgame
  140. end
  141. <<<<<<< 434_KGZgame
  142. if KGZplace = 1:
  143. KGZdead = RAND(KGZday, KGZday * 2)
  144. '<center><B>Street</B></center>'
  145. 'On the street the broken machine, lie the corpses.'
  146. if KGZbatl = 0:
  147. 'Roam the streets <<KGZdead>> Dead'
  148. KGZagr = RAND(0,10)
  149. if KGZagr <= 8:
  150. 'Sensing you dead immediately rush to the attack.'
  151. act 'Srazhatsya':
  152. if KGZsvet = 1: KGZdist = RAND(5,30)
  153. if KGZsvet = 2: KGZdist = RAND(3,10)
  154. gt 'KGZfight'
  155. end
  156. else
  157. 'Fortunately, you do not notice the dead.'
  158. dynamic $KGZvihod
  159. end
  160. else
  161. 'The Walking Dead is not visible.'
  162. dynamic $KGZvihod
  163. end
  164. =======
  165. if KGZplace=1:
  166. KGZdead=RAND(KGZday,KGZday*2)
  167. '<center><B>street</B></center>'
  168. 'On the street broken machine, lie the corpses.'
  169. if KGZbatl=0:
  170. 'Roam the streets <<KGZdead>> dead'
  171. KGZagr=RAND(0,10)
  172. if KGZagr<=8:
  173. 'sensing you, dead immediately rush to the attack.'
  174. act 'srazhatsya':
  175. if KGZsvet=1:KGZdist=RAND(5,30)
  176. if KGZsvet=2:KGZdist=RAND(3,10)
  177. gt'KGZfight'
  178. end
  179. else
  180. 'for luck, Dead you have not noticed.'
  181. dynamic $KGZvihod
  182. end
  183. else
  184. 'The Walking Dead is not visible.'
  185. dynamic $KGZvihod
  186. end
  187. >>>>>>> 434_KGZgame
  188. end
  189. <<<<<<< 434_KGZgame
  190. if KGZplace = 2:
  191. KGZdead = RAND(KGZday, KGZday * 2)
  192. '<center><B>Shop</B></center>'
  193. 'In store stale air from spoiled food and dead.'
  194. if KGZbatl = 0:
  195. 'Wander around the store <<KGZdead>> Dead'
  196. KGZagr = RAND(0,10)
  197. if KGZagr <= 8:
  198. 'Sensing you dead immediately rush to the attack.'
  199. act 'Srazhatsya':
  200. if KGZsvet = 1: KGZdist = RAND(3,10)
  201. if KGZsvet = 2: KGZdist = RAND(2,8)
  202. gt 'KGZfight'
  203. end
  204. else
  205. 'Fortunately, you do not notice the dead.'
  206. dynamic $KGZvihod2
  207. end
  208. else
  209. 'The Walking Dead is not visible.'
  210. dynamic $KGZvihod2
  211. end
  212. =======
  213. if KGZplace=2:
  214. KGZdead=RAND(KGZday,KGZday*2)
  215. '<center><B>shop</B></center>'
  216. 'The store stale air from spoiled food and dead.'
  217. if KGZbatl=0:
  218. 'Wander around the store <<KGZdead>> dead'
  219. KGZagr=RAND(0,10)
  220. if KGZagr<=8:
  221. 'sensing you, dead immediately rush to the attack.'
  222. act 'srazhatsya':
  223. if KGZsvet=1:KGZdist=RAND(3,10)
  224. if KGZsvet=2:KGZdist=RAND(2,8)
  225. gt'KGZfight'
  226. end
  227. else
  228. 'for luck, Dead you have not noticed.'
  229. dynamic $KGZvihod2
  230. end
  231. else
  232. 'The Walking Dead is not visible.'
  233. dynamic $KGZvihod2
  234. end
  235. >>>>>>> 434_KGZgame
  236. end
  237. <<<<<<< 434_KGZgame
  238. if KGZplace = 3:
  239. KGZdead = RAND(KGZday, KGZday * 2)
  240. '<center><B>Hospital</B></center>'
  241. 'Hospital floor littered with papers and dead bodies of patients and physicians.'
  242. if KGZbatl = 0:
  243. 'Wander around the hospital <<KGZdead>> Dead'
  244. KGZagr = RAND(0,10)
  245. if KGZagr <= 8:
  246. 'Sensing you dead immediately rush to the attack.'
  247. act 'Srazhatsya':
  248. if KGZsvet = 1: KGZdist = RAND(3,10)
  249. if KGZsvet = 2: KGZdist = RAND(2,8)
  250. gt 'KGZfight'
  251. end
  252. else
  253. 'Fortunately, you do not notice the dead.'
  254. dynamic $KGZvihod3
  255. end
  256. else
  257. 'The Walking Dead is not visible.'
  258. dynamic $KGZvihod3
  259. end
  260. =======
  261. if KGZplace=3:
  262. KGZdead=RAND(KGZday,KGZday*2)
  263. '<center><B>hospital</B></center>'
  264. 'Hospital floor is littered with papers and dead bodies of patients and physicians.'
  265. if KGZbatl=0:
  266. 'Wander around the hospital <<KGZdead>> dead'
  267. KGZagr=RAND(0,10)
  268. if KGZagr<=8:
  269. 'sensing you, dead immediately rush to the attack.'
  270. act 'srazhatsya':
  271. if KGZsvet=1:KGZdist=RAND(3,10)
  272. if KGZsvet=2:KGZdist=RAND(2,8)
  273. gt'KGZfight'
  274. end
  275. else
  276. 'for luck, Dead you have not noticed.'
  277. dynamic $KGZvihod3
  278. end
  279. else
  280. 'The Walking Dead is not visible.'
  281. dynamic $KGZvihod3
  282. end
  283. >>>>>>> 434_KGZgame
  284. end
  285. <<<<<<< 434_KGZgame
  286. if KGZplace = 4:
  287. KGZdead = RAND(KGZday, KGZday * 2)
  288. '<center><B>Boulevard</B></center>'
  289. 'On the boulevard cluster of abandoned and wrecked cars everywhere corpses.'
  290. if KGZbatl = 0:
  291. 'Wander along the boulevard <<KGZdead>> Dead'
  292. KGZagr = RAND(0,10)
  293. if KGZagr <= 8:
  294. 'Sensing you dead immediately rush to the attack.'
  295. act 'Srazhatsya':
  296. if KGZsvet = 1: KGZdist = RAND(5,30)
  297. if KGZsvet = 2: KGZdist = RAND(3,10)
  298. gt 'KGZfight'
  299. end
  300. else
  301. 'Fortunately, you do not notice the dead.'
  302. dynamic $KGZvihod4
  303. end
  304. else
  305. 'The Walking Dead is not visible.'
  306. dynamic $KGZvihod4
  307. end
  308. =======
  309. if KGZplace=4:
  310. KGZdead=RAND(KGZday,KGZday*2)
  311. '<center><B>boulevard</B></center>'
  312. 'On the boulevard cluster of abandoned and broken machines, corpses everywhere.'
  313. if KGZbatl=0:
  314. 'Wander along the boulevard <<KGZdead>> dead'
  315. KGZagr=RAND(0,10)
  316. if KGZagr<=8:
  317. 'sensing you, dead immediately rush to the attack.'
  318. act 'srazhatsya':
  319. if KGZsvet=1:KGZdist=RAND(5,30)
  320. if KGZsvet=2:KGZdist=RAND(3,10)
  321. gt'KGZfight'
  322. end
  323. else
  324. 'for luck, Dead you have not noticed.'
  325. dynamic $KGZvihod4
  326. end
  327. else
  328. 'The Walking Dead is not visible.'
  329. dynamic $KGZvihod4
  330. end
  331. >>>>>>> 434_KGZgame
  332. end
  333. <<<<<<< 434_KGZgame
  334. if KGZplace = 5:
  335. KGZdead = RAND(KGZday, KGZday * 2)
  336. '<center><B>Hunting Store</B></center>'
  337. 'In hunting stores all counters are flipped, things scattered on the floor and something where visible decaying corpses.'
  338. if KGZbatl = 0:
  339. 'Roam around the room <<KGZdead>> Dead'
  340. KGZagr = RAND(0,10)
  341. if KGZagr <= 8:
  342. 'Sensing you dead immediately rush to the attack.'
  343. act 'Srazhatsya': KGZdist = RAND(2,6)&gt 'KGZfight'
  344. else
  345. 'Fortunately, you do not notice the dead.'
  346. dynamic $KGZvihod5
  347. end
  348. else
  349. 'The Walking Dead is not visible.'
  350. dynamic $KGZvihod5
  351. end
  352. =======
  353. if KGZplace=5:
  354. KGZdead=RAND(KGZday,KGZday*2)
  355. '<center><B>hunting store</B></center>'
  356. 'In hunting store all counters are turned, scattered on the floor and some things which are seen decomposing bodies.'
  357. if KGZbatl=0:
  358. 'Wander around the room <<KGZdead>> dead'
  359. KGZagr=RAND(0,10)
  360. if KGZagr<=8:
  361. 'sensing you, dead immediately rush to the attack.'
  362. act 'srazhatsya':KGZdist=RAND(2,6)&gt'KGZfight'
  363. else
  364. 'for luck, Dead you have not noticed.'
  365. dynamic $KGZvihod5
  366. end
  367. else
  368. 'The Walking Dead is not visible.'
  369. dynamic $KGZvihod5
  370. end
  371. >>>>>>> 434_KGZgame
  372. end
  373. <<<<<<< 434_KGZgame
  374. if KGZplace = 6:
  375. KGZdead = RAND(KGZday, KGZday * 2)
  376. '<center><B>Police station</B></center>'
  377. 'At the police station the police corpses scattered on the floor, tables overturned and papers strewn all around.'
  378. if KGZbatl = 0:
  379. 'Roam around the room <<KGZdead>> Dead'
  380. KGZagr = RAND(0,10)
  381. if KGZagr <= 8:
  382. 'Sensing you dead immediately rush to the attack.'
  383. act 'Srazhatsya': KGZdist = RAND(2,5)&gt 'KGZfight'
  384. else
  385. 'Fortunately, you do not notice the dead.'
  386. dynamic $KGZvihod6
  387. end
  388. else
  389. 'The Walking Dead is not visible.'
  390. dynamic $KGZvihod6
  391. end
  392. =======
  393. if KGZplace=6:
  394. KGZdead=RAND(KGZday,KGZday*2)
  395. '<center><B>police station</B></center>'
  396. 'At the police station the police corpses scattered on the floor, the tables are turned and the terms of roll paper.'
  397. if KGZbatl=0:
  398. 'Wander around the room <<KGZdead>> dead'
  399. KGZagr=RAND(0,10)
  400. if KGZagr<=8:
  401. 'sensing you, dead immediately rush to the attack.'
  402. act 'srazhatsya':KGZdist=RAND(2,5)&gt'KGZfight'
  403. else
  404. 'for luck, Dead you have not noticed.'
  405. dynamic $KGZvihod6
  406. end
  407. else
  408. 'The Walking Dead is not visible.'
  409. dynamic $KGZvihod6
  410. end
  411. >>>>>>> 434_KGZgame
  412. end
  413. <<<<<<< 434_KGZgame
  414. if KGZplace = 7:
  415. KGZdead = RAND(KGZday, KGZday * 2)
  416. '<center><B>Drugstore</B></center>'
  417. 'In store everything upside down and smells mertvyachinoy.'
  418. if KGZbatl = 0:
  419. 'Roam around the room <<KGZdead>> Dead'
  420. KGZagr = RAND(0,10)
  421. if KGZagr <= 8:
  422. 'Sensing you dead immediately rush to the attack.'
  423. act 'Srazhatsya': KGZdist = RAND(2,5)&gt 'KGZfight'
  424. else
  425. 'Fortunately, you do not notice the dead.'
  426. dynamic $KGZvihod7
  427. end
  428. else
  429. 'The Walking Dead is not visible.'
  430. dynamic $KGZvihod7
  431. end
  432. =======
  433. if KGZplace=7:
  434. KGZdead=RAND(KGZday,KGZday*2)
  435. '<center><B>hardware store</B></center>'
  436. 'The store everything upside down and smells mertvyachinoy.'
  437. if KGZbatl=0:
  438. 'Wander around the room <<KGZdead>> dead'
  439. KGZagr=RAND(0,10)
  440. if KGZagr<=8:
  441. 'sensing you, dead immediately rush to the attack.'
  442. act 'srazhatsya':KGZdist=RAND(2,5)&gt'KGZfight'
  443. else
  444. 'for luck, Dead you have not noticed.'
  445. dynamic $KGZvihod7
  446. end
  447. else
  448. 'The Walking Dead is not visible.'
  449. dynamic $KGZvihod7
  450. end
  451. >>>>>>> 434_KGZgame
  452. end
  453. <<<<<<< 434_KGZgame
  454. if KGZplace = 8:
  455. KGZdead = RAND(KGZday * 2, KGZday * 4)
  456. '<center><B>Route</B></center>'
  457. 'On the highway, a huge traffic jam of abandoned cars, where there are some broken machines and the dead bodies.'
  458. if KGZbatl = 0:
  459. 'Wander along the highway <<KGZdead>> Dead'
  460. KGZagr = RAND(0,10)
  461. if KGZagr <= 8:
  462. 'Sensing you dead immediately rush to the attack.'
  463. act 'Srazhatsya':
  464. if KGZsvet = 1: KGZdist = RAND(5,30)
  465. if KGZsvet = 2: KGZdist = RAND(3,10)
  466. gt 'KGZfight'
  467. end
  468. else
  469. 'Fortunately, you do not notice the dead.'
  470. dynamic $KGZvihod8
  471. end
  472. else
  473. 'The Walking Dead is not visible.'
  474. dynamic $KGZvihod8
  475. end
  476. =======
  477. if KGZplace=8:
  478. KGZdead=RAND(KGZday*2,KGZday*4)
  479. '<center><B>highway</B></center>'
  480. 'On the highway, where there are some broken machines and the dead bodies.'
  481. if KGZbatl=0:
  482. 'Wandering on the highway <<KGZdead>> dead'
  483. KGZagr=RAND(0,10)
  484. if KGZagr<=8:
  485. 'sensing you, dead immediately rush to the attack.'
  486. act 'srazhatsya':
  487. if KGZsvet=1:KGZdist=RAND(5,30)
  488. if KGZsvet=2:KGZdist=RAND(3,10)
  489. gt'KGZfight'
  490. end
  491. else
  492. 'for luck, Dead you have not noticed.'
  493. dynamic $KGZvihod8
  494. end
  495. else
  496. 'The Walking Dead is not visible.'
  497. dynamic $KGZvihod8
  498. end
  499. >>>>>>> 434_KGZgame
  500. end
  501. <<<<<<< 434_KGZgame
  502. if KGZplace = 9:
  503. KGZdead = RAND(KGZday, KGZday * 2)
  504. '<center><B>Threading</B></center>'
  505. 'At the gas station is a pair of abandoned cars. No electricity and speakers only work in manual mode.'
  506. if KGZbatl = 0:
  507. 'Roam around the room <<KGZdead>> Dead'
  508. KGZagr = RAND(0,10)
  509. if KGZagr <= 8:
  510. 'Sensing you dead immediately rush to the attack.'
  511. act 'Srazhatsya': KGZdist = RAND(2,5)&gt 'KGZfight'
  512. else
  513. 'Fortunately, you do not notice the dead.'
  514. dynamic $KGZvihod9
  515. end
  516. else
  517. 'The Walking Dead is not visible.'
  518. dynamic $KGZvihod9
  519. end
  520. =======
  521. if KGZplace=9:
  522. KGZdead=RAND(KGZday,KGZday*2)
  523. '<center><B>filling</B></center>'
  524. 'At the gas station is a pair of abandoned vehicles. No electricity and columns are only manually.'
  525. if KGZbatl=0:
  526. 'Wander around the room <<KGZdead>> dead'
  527. KGZagr=RAND(0,10)
  528. if KGZagr<=8:
  529. 'sensing you, dead immediately rush to the attack.'
  530. act 'srazhatsya':KGZdist=RAND(2,5)&gt'KGZfight'
  531. else
  532. 'for luck, Dead you have not noticed.'
  533. dynamic $KGZvihod9
  534. end
  535. else
  536. 'The Walking Dead is not visible.'
  537. dynamic $KGZvihod9
  538. end
  539. >>>>>>> 434_KGZgame
  540. end
  541. <<<<<<< 434_KGZgame
  542. if KGZplace = 10:
  543. KGZdead = RAND(KGZday * 5, KGZday * 10)
  544. if KGZplaceA = 20: KGZplace = 100 & gt $curloc
  545. if KGZplaceA = 10: KGZplace = 11 & gt $curloc
  546. if KGZplaceA = 0: KGZplace = 8 & gt $curloc
  547. =======
  548. if KGZplace=10:
  549. KGZdead=RAND(KGZday*5,KGZday*10)
  550. if KGZplaceA=20:KGZplace=100&gt $curloc
  551. if KGZplaceA=10:KGZplace=11&gt $curloc
  552. if KGZplaceA=0:KGZplace=8&gt $curloc
  553. >>>>>>> 434_KGZgame
  554. '<center><B>Highway in Fort Bragg</B></center>'
  555. '<center><B><<KGZplaceA>>th kilometer</B></center>'
  556. 'On the highway are broken machines are corpses.'
  557. <<<<<<< 434_KGZgame
  558. if KGZbatl = 0:
  559. 'Wander along the highway <<KGZdead>> Dead'
  560. KGZagr = RAND(0,10)
  561. if KGZagr <= 8:
  562. 'Sensing you dead immediately rush to the attack.'
  563. act 'Srazhatsya':
  564. if KGZsvet = 1: KGZdist = RAND(5,30)
  565. if KGZsvet = 2: KGZdist = RAND(3,10)
  566. gt 'KGZfight'
  567. end
  568. else
  569. 'Fortunately, you do not notice the dead.'
  570. dynamic $KGZvihod10
  571. end
  572. else
  573. 'The Walking Dead is not visible.'
  574. dynamic $KGZvihod10
  575. end
  576. =======
  577. if KGZbatl=0:
  578. 'Wandering on the highway <<KGZdead>> dead'
  579. KGZagr=RAND(0,10)
  580. if KGZagr<=8:
  581. 'sensing you, dead immediately rush to the attack.'
  582. act 'srazhatsya':
  583. if KGZsvet=1:KGZdist=RAND(5,30)
  584. if KGZsvet=2:KGZdist=RAND(3,10)
  585. gt'KGZfight'
  586. end
  587. else
  588. 'for luck, Dead you have not noticed.'
  589. dynamic $KGZvihod10
  590. end
  591. else
  592. 'The Walking Dead is not visible.'
  593. dynamic $KGZvihod10
  594. end
  595. >>>>>>> 434_KGZgame
  596. end
  597. <<<<<<< 434_KGZgame
  598. if KGZplace = 11:
  599. KGZdead = RAND(KGZday * 10, KGZday * 20)
  600. =======
  601. if KGZplace=11:
  602. KGZdead=RAND(KGZday*10,KGZday*20)
  603. >>>>>>> 434_KGZgame
  604. '<center><B>Fort Bragg</B></center>'
  605. 'Fort Bragg is a small building surrounded by a fence.'
  606. <<<<<<< 434_KGZgame
  607. if KGZbatl = 0:
  608. 'Roam around the fort <<KGZdead>> Dead'
  609. KGZagr = RAND(0,10)
  610. if KGZagr <= 8:
  611. 'Sensing you dead immediately rush to the attack.'
  612. act 'Srazhatsya': KGZdist = RAND(3,10)&gt 'KGZfight'
  613. else
  614. 'Fortunately, you do not notice the dead.'
  615. dynamic $KGZvihod11
  616. end
  617. else
  618. 'The Walking Dead is not visible.'
  619. dynamic $KGZvihod11
  620. end
  621. =======
  622. if KGZbatl=0:
  623. 'Roam around the fort <<KGZdead>> dead'
  624. KGZagr=RAND(0,10)
  625. if KGZagr<=8:
  626. 'sensing you, dead immediately rush to the attack.'
  627. act 'srazhatsya':KGZdist=RAND(3,10)&gt'KGZfight'
  628. else
  629. 'for luck, Dead you have not noticed.'
  630. dynamic $KGZvihod11
  631. end
  632. else
  633. 'The Walking Dead is not visible.'
  634. dynamic $KGZvihod11
  635. end
  636. >>>>>>> 434_KGZgame
  637. end
  638. <<<<<<< 434_KGZgame
  639. if KGZplace = 12:
  640. if KGZdost = 0: KGZdost = 1
  641. KGZdead = RAND(KGZday * 10, KGZday * 20)
  642. '<center><B>Roof Fort Bragg</B></center>'
  643. 'On the roof is full of lying motionless rotting bodies, many spent cartridges.'
  644. 'Provisions enough for <<KGZsup>> day'
  645. if KGZfortQW > 0: '<a href="exec: dynamic $KGZvincent">Young tired man in the form of Ranger</a>, sits leaning on a sniper rifle.'
  646. if KGZmedkit > 0:
  647. 'First aid kits <<KGZmedkit>> pieces'
  648. if KGZHP < 100:
  649. act 'Treated':
  650. cls
  651. KGZhour += 1
  652. KGZHP = 100
  653. KGZmedkit -= 1
  654. minut += 1
  655. gs 'stat'
  656. 'You heal health through kits.'
  657. act 'Further': gt $curloc
  658. end
  659. end
  660. end
  661. act 'Rest':
  662. cls
  663. KGZhour += 1
  664. minut += 1
  665. gs 'stat'
  666. 'You have settled on the convenient roof, not taking his eyes off the hatch which can climb dead.'
  667. act 'Further': gt $curloc
  668. end
  669. act 'Exit to the fort':
  670. cls
  671. KGZhour += 1
  672. minut += 1
  673. gs 'stat'
  674. KGZplace = 11
  675. KGZbatl = 0
  676. 'You gently down into the hatch, trying not to stumble on the dead.'
  677. act 'Further': gt $curloc
  678. end
  679. =======
  680. if KGZplace=12:
  681. if KGZdost=0:KGZdost=1
  682. KGZdead=RAND(KGZday*10,KGZday*20)
  683. '<center><B>Roof Fort Bragg</B></center>'
  684. 'On the roof is full of lying motionless rotting bodies, a lot of spent cartridges.'
  685. 'Provisions enough for <<KGZsup>> days'
  686. if KGZfortQW>0:'<a href="exec:dynamic $KGZvincent">Tired young man in the form of Ranger</a>, sits leaning on a sniper rifle.'
  687. if KGZmedkit>0:
  688. 'kits <<KGZmedkit>> pcs'
  689. if KGZHP<100:
  690. act 'treated':
  691. cls
  692. KGZhour+=1
  693. KGZHP=100
  694. KGZmedkit-=1
  695. minut+=1
  696. gs'stat'
  697. 'You cured with the help of health kits.'
  698. act 'further':gt $curloc
  699. end
  700. end
  701. end
  702. act 'rest':
  703. cls
  704. KGZhour+=1
  705. minut+=1
  706. gs'stat'
  707. 'You settled for convenient roof, not taking his eyes off the hatch which can climb dead.'
  708. act 'further':gt $curloc
  709. end
  710. act 'Go to the fort':
  711. cls
  712. KGZhour+=1
  713. minut+=1
  714. gs'stat'
  715. KGZplace=11
  716. KGZbatl=0
  717. 'You gently down the hatch, trying not to run into dead.'
  718. act 'further':gt $curloc
  719. end
  720. >>>>>>> 434_KGZgame
  721. end
  722. <<<<<<< 434_KGZgame
  723. if KGZplace = 13:
  724. KGZdead = RAND(KGZday * 10, KGZday * 20)
  725. '<center><B>Fort Bragg</B></center>'
  726. '<center><B>Food Storage</B></center>'
  727. 'Stock dark and heard noises.'
  728. if KGZbatl = 0:
  729. 'Wander around the warehouse <<KGZdead>> Dead'
  730. KGZagr = RAND(0,10)
  731. if KGZagr <= 8:
  732. 'Sensing you dead immediately rush to the attack.'
  733. act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
  734. else
  735. 'Fortunately, you do not notice the dead.'
  736. dynamic $KGZvihod13
  737. end
  738. else
  739. 'The Walking Dead is not visible.'
  740. dynamic $KGZvihod13
  741. end
  742. =======
  743. if KGZplace=13:
  744. KGZdead=RAND(KGZday*10,KGZday*20)
  745. '<center><B>Fort Bragg</B></center>'
  746. '<center><B>The food warehouse</B></center>'
  747. 'In stock dark and heard noises.'
  748. if KGZbatl=0:
  749. 'The warehouse roam <<KGZdead>> dead'
  750. KGZagr=RAND(0,10)
  751. if KGZagr<=8:
  752. 'sensing you, dead immediately rush to the attack.'
  753. act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
  754. else
  755. 'for luck, Dead you have not noticed.'
  756. dynamic $KGZvihod13
  757. end
  758. else
  759. 'The Walking Dead is not visible.'
  760. dynamic $KGZvihod13
  761. end
  762. >>>>>>> 434_KGZgame
  763. end
  764. <<<<<<< 434_KGZgame
  765. if KGZplace = 14:
  766. KGZdead = RAND(KGZday * 10, KGZday * 20)
  767. '<center><B>Fort Bragg</B></center>'
  768. '<center><B>Infirmary</B></center>'
  769. 'In the hospital is dark and heard noises.'
  770. if KGZbatl = 0:
  771. 'By Infirmary roam <<KGZdead>> Dead'
  772. KGZagr = RAND(0,10)
  773. if KGZagr <= 8:
  774. 'Sensing you dead immediately rush to the attack.'
  775. act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
  776. else
  777. 'Fortunately, you do not notice the dead.'
  778. dynamic $KGZvihod14
  779. end
  780. else
  781. 'The Walking Dead is not visible.'
  782. dynamic $KGZvihod14
  783. end
  784. =======
  785. if KGZplace=14:
  786. KGZdead=RAND(KGZday*10,KGZday*20)
  787. '<center><B>Fort Bragg</B></center>'
  788. '<center><B>infirmary</B></center>'
  789. 'In the hospital is dark and heard noises.'
  790. if KGZbatl=0:
  791. 'According to the infirmary roam <<KGZdead>> dead'
  792. KGZagr=RAND(0,10)
  793. if KGZagr<=8:
  794. 'sensing you, dead immediately rush to the attack.'
  795. act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
  796. else
  797. 'for luck, Dead you have not noticed.'
  798. dynamic $KGZvihod14
  799. end
  800. else
  801. 'The Walking Dead is not visible.'
  802. dynamic $KGZvihod14
  803. end
  804. >>>>>>> 434_KGZgame
  805. end
  806. <<<<<<< 434_KGZgame
  807. if KGZplace = 15:
  808. KGZdead = RAND(KGZday * 10, KGZday * 20)
  809. '<center><B>Fort Bragg</B></center>'
  810. '<center><B>Arms</B></center>'
  811. 'In the armory dark and heard noises.'
  812. if KGZbatl = 0:
  813. 'On weapons roam <<KGZdead>>Dead'
  814. KGZagr = RAND(0,10)
  815. if KGZagr <= 8:
  816. 'Sensing you dead immediately rush to the attack.'
  817. act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
  818. else
  819. 'Fortunately, you do not notice the dead.'
  820. dynamic $KGZvihod15
  821. end
  822. else
  823. 'The Walking Dead is not visible.'
  824. dynamic $KGZvihod15
  825. end
  826. =======
  827. if KGZplace=15:
  828. KGZdead=RAND(KGZday*10,KGZday*20)
  829. '<center><B>Fort Bragg</B></center>'
  830. '<center><B>Armory</B></center>'
  831. 'In the armory dark and heard noises.'
  832. if KGZbatl=0:
  833. 'On weapons roam <<KGZdead>> dead'
  834. KGZagr=RAND(0,10)
  835. if KGZagr<=8:
  836. 'sensing you, dead immediately rush to the attack.'
  837. act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
  838. else
  839. 'for luck, Dead you have not noticed.'
  840. dynamic $KGZvihod15
  841. end
  842. else
  843. 'The Walking Dead is not visible.'
  844. dynamic $KGZvihod15
  845. end
  846. >>>>>>> 434_KGZgame
  847. end
  848. <<<<<<< 434_KGZgame
  849. if KGZplace = 16:
  850. KGZdead = RAND(KGZday * 10, KGZday * 20)
  851. '<center><B>Fort Bragg</B></center>'
  852. '<center><B>Garage</B></center>'
  853. 'The garage is dark and heard noises.'
  854. if KGZbatl = 0:
  855. 'Roam around the garage <<KGZdead>> Dead'
  856. KGZagr = RAND(0,10)
  857. if KGZagr <= 8:
  858. 'Sensing you dead immediately rush to the attack.'
  859. act 'Srazhatsya': KGZdist = RAND(2,3)&gt 'KGZfight'
  860. else
  861. 'Fortunately, you do not notice the dead.'
  862. dynamic $KGZvihod16
  863. end
  864. else
  865. 'The Walking Dead is not visible.'
  866. dynamic $KGZvihod16
  867. end
  868. =======
  869. if KGZplace=16:
  870. KGZdead=RAND(KGZday*10,KGZday*20)
  871. '<center><B>Fort Bragg</B></center>'
  872. '<center><B>garage</B></center>'
  873. 'The garage is dark and heard noises.'
  874. if KGZbatl=0:
  875. 'Roam the garage <<KGZdead>> dead'
  876. KGZagr=RAND(0,10)
  877. if KGZagr<=8:
  878. 'sensing you, dead immediately rush to the attack.'
  879. act 'srazhatsya':KGZdist=RAND(2,3)&gt'KGZfight'
  880. else
  881. 'for luck, Dead you have not noticed.'
  882. dynamic $KGZvihod16
  883. end
  884. else
  885. 'The Walking Dead is not visible.'
  886. dynamic $KGZvihod16
  887. end
  888. >>>>>>> 434_KGZgame
  889. end
  890. <<<<<<< 434_KGZgame
  891. if KGZplace = 100:
  892. KGZdead = RAND(KGZday * 20, KGZday * 30)
  893. '<center><B>City Koldkrik</B></center>'
  894. 'The city was destroyed and fires could be seen.'
  895. if KGZbatl = 0:
  896. 'Roam the streets <<KGZdead>> Dead'
  897. KGZagr = RAND(0,10)
  898. if KGZagr <= 8:
  899. 'Sensing you dead immediately rush to the attack.'
  900. act 'Srazhatsya': KGZdist = RAND(10,30)&gt 'KGZfight'
  901. else
  902. 'Fortunately, you do not notice the dead.'
  903. dynamic $KGZvihod100
  904. end
  905. else
  906. 'The Walking Dead is not visible.'
  907. dynamic $KGZvihod100
  908. end
  909. =======
  910. if KGZplace=100:
  911. KGZdead=RAND(KGZday*20,KGZday*30)
  912. '<center><B>city ​​Koldkrik</B></center>'
  913. 'The city was destroyed and could be seen fires.'
  914. if KGZbatl=0:
  915. 'Roam the streets <<KGZdead>> dead'
  916. KGZagr=RAND(0,10)
  917. if KGZagr<=8:
  918. 'sensing you, dead immediately rush to the attack.'
  919. act 'srazhatsya':KGZdist=RAND(10,30)&gt'KGZfight'
  920. else
  921. 'for luck, Dead you have not noticed.'
  922. dynamic $KGZvihod100
  923. end
  924. else
  925. 'The Walking Dead is not visible.'
  926. dynamic $KGZvihod100
  927. end
  928. >>>>>>> 434_KGZgame
  929. end
  930. <<<<<<< 434_KGZgame
  931. if KGZplace = 101:
  932. '<center><B>House</B></center>'
  933. 'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
  934. if KGZmedkit > 0:
  935. 'First aid kits <<KGZmedkit>> pieces'
  936. if KGZHP < 100:
  937. act 'Treated':
  938. cls
  939. KGZhour += 1
  940. KGZHP = 100
  941. KGZmedkit -= 1
  942. minut += 1
  943. gs 'stat'
  944. 'You heal health through kits.'
  945. act 'Further': gt $curloc
  946. end
  947. end
  948. end
  949. act 'Laze':
  950. cls
  951. KGZhour += 1
  952. minut += 1
  953. gs 'stat'
  954. 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
  955. act 'Further': gt $curloc
  956. end
  957. act 'Out of the house':
  958. cls
  959. KGZhour += 1
  960. minut += 1
  961. gs 'stat'
  962. KGZplace = 100
  963. KGZbatl = 0
  964. 'You cautiously left the apartment trying not to stumble on the dead.'
  965. act 'Further': gt $curloc
  966. end
  967. =======
  968. if KGZplace=101:
  969. '<center><B>house</B></center>'
  970. 'This house is a safe place. The house is kept provisions, which will be enough for <<KGZsup>> days'
  971. if KGZmedkit>0:
  972. 'kits <<KGZmedkit>> pcs'
  973. if KGZHP<100:
  974. act 'treated':
  975. cls
  976. KGZhour+=1
  977. KGZHP=100
  978. KGZmedkit-=1
  979. minut+=1
  980. gs'stat'
  981. 'You cured with the help of health kits.'
  982. act 'further':gt $curloc
  983. end
  984. end
  985. end
  986. act 'laze':
  987. cls
  988. KGZhour+=1
  989. minut+=1
  990. gs'stat'
  991. 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
  992. act 'further':gt $curloc
  993. end
  994. act 'Out of the house':
  995. cls
  996. KGZhour+=1
  997. minut+=1
  998. gs'stat'
  999. KGZplace=100
  1000. KGZbatl=0
  1001. 'You cautiously left the apartment trying not to run into dead.'
  1002. act 'further':gt $curloc
  1003. end
  1004. >>>>>>> 434_KGZgame
  1005. end
  1006. <<<<<<< 434_KGZgame
  1007. if KGZplace = 102:
  1008. KGZdead = RAND(KGZday * 5, KGZday * 10)
  1009. '<center><B>Supermarket</B></center>'
  1010. 'At the supermarket, dark and heard noises.'
  1011. if KGZbatl = 0:
  1012. 'Roam the halls of the Trade <<KGZdead>> Dead'
  1013. KGZagr = RAND(0,10)
  1014. if KGZagr <= 8:
  1015. 'Sensing you dead immediately rush to the attack.'
  1016. act 'Srazhatsya': KGZdist = RAND(5,10)&gt 'KGZfight'
  1017. else
  1018. 'Fortunately, you do not notice the dead.'
  1019. dynamic $KGZvihod102
  1020. end
  1021. else
  1022. 'The Walking Dead is not visible.'
  1023. dynamic $KGZvihod102
  1024. end
  1025. =======
  1026. if KGZplace=102:
  1027. KGZdead=RAND(KGZday*5,KGZday*10)
  1028. '<center><B>supermarket</B></center>'
  1029. 'At the supermarket.'
  1030. if KGZbatl=0:
  1031. 'Roam the halls of the Trade <<KGZdead>> dead'
  1032. KGZagr=RAND(0,10)
  1033. if KGZagr<=8:
  1034. 'sensing you, dead immediately rush to the attack.'
  1035. act 'srazhatsya':KGZdist=RAND(5,10)&gt'KGZfight'
  1036. else
  1037. 'for luck, Dead you have not noticed.'
  1038. dynamic $KGZvihod102
  1039. end
  1040. else
  1041. 'The Walking Dead is not visible.'
  1042. dynamic $KGZvihod102
  1043. end
  1044. >>>>>>> 434_KGZgame
  1045. end
  1046. <<<<<<< 434_KGZgame
  1047. if KGZplace = 200:
  1048. KGZdead = RAND(KGZday, KGZday * 2)
  1049. '<center><B>Forest</B></center>'
  1050. 'In the dark forest and heard noises.'
  1051. if KGZbatl = 0:
  1052. 'Wander through the woods <<KGZdead>> Dead'
  1053. KGZagr = RAND(0,10)
  1054. if KGZagr <= 8:
  1055. 'Sensing you dead immediately rush to the attack.'
  1056. act 'Srazhatsya': KGZdist = RAND(10,30)&gt 'KGZfight'
  1057. else
  1058. 'Fortunately, you do not notice the dead.'
  1059. dynamic $KGZvihod200
  1060. end
  1061. else
  1062. 'The Walking Dead is not visible.'
  1063. dynamic $KGZvihod200
  1064. end
  1065. =======
  1066. if KGZplace=200:
  1067. KGZdead=RAND(KGZday,KGZday*2)
  1068. '<center><B>forest</B></center>'
  1069. 'In the dark woods and heard noises.'
  1070. if KGZbatl=0:
  1071. 'Wander through the woods <<KGZdead>> dead'
  1072. KGZagr=RAND(0,10)
  1073. if KGZagr<=8:
  1074. 'sensing you, dead immediately rush to the attack.'
  1075. act 'srazhatsya':KGZdist=RAND(10,30)&gt'KGZfight'
  1076. else
  1077. 'for luck, Dead you have not noticed.'
  1078. dynamic $KGZvihod200
  1079. end
  1080. else
  1081. 'The Walking Dead is not visible.'
  1082. dynamic $KGZvihod200
  1083. end
  1084. >>>>>>> 434_KGZgame
  1085. end
  1086. <<<<<<< 434_KGZgame
  1087. if KGZplace = 201:
  1088. KGZdead = RAND(KGZday, KGZday * 3)
  1089. '<center><B>Farm</B></center>'
  1090. 'Large fenced farm fence.'
  1091. if KGZbatl = 0:
  1092. 'Wander around the neighborhood <<KGZdead>> Dead'
  1093. KGZagr = RAND(0,10)
  1094. if KGZagr <= 8:
  1095. 'Sensing you dead immediately rush to the attack.'
  1096. act 'Srazhatsya': KGZdist = RAND(10,30)&gt 'KGZfight'
  1097. else
  1098. 'Fortunately, you do not notice the dead.'
  1099. dynamic $KGZvihod201
  1100. end
  1101. else
  1102. 'The Walking Dead is not visible.'
  1103. dynamic $KGZvihod201
  1104. end
  1105. =======
  1106. if KGZplace=201:
  1107. KGZdead=RAND(KGZday,KGZday*3)
  1108. '<center><B>farm</B></center>'
  1109. 'Large fenced farm fence.'
  1110. if KGZbatl=0:
  1111. 'Wander around the neighborhood <<KGZdead>> dead'
  1112. KGZagr=RAND(0,10)
  1113. if KGZagr<=8:
  1114. 'sensing you, dead immediately rush to the attack.'
  1115. act 'srazhatsya':KGZdist=RAND(10,30)&gt'KGZfight'
  1116. else
  1117. 'for luck, Dead you have not noticed.'
  1118. dynamic $KGZvihod201
  1119. end
  1120. else
  1121. 'The Walking Dead is not visible.'
  1122. dynamic $KGZvihod201
  1123. end
  1124. >>>>>>> 434_KGZgame
  1125. end
  1126. <<<<<<< 434_KGZgame
  1127. if KGZplace = 202:
  1128. '<center><B>House</B></center>'
  1129. 'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
  1130. if KGZmedkit > 0:
  1131. 'First aid kits <<KGZmedkit>> pieces'
  1132. if KGZHP < 100:
  1133. act 'Treated':
  1134. cls
  1135. KGZhour += 1
  1136. KGZHP = 100
  1137. KGZmedkit -= 1
  1138. minut += 1
  1139. gs 'stat'
  1140. 'You heal health through kits.'
  1141. act 'Further': gt $curloc
  1142. end
  1143. end
  1144. end
  1145. act 'Laze':
  1146. cls
  1147. KGZhour += 1
  1148. minut += 1
  1149. gs 'stat'
  1150. 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
  1151. act 'Further': gt $curloc
  1152. end
  1153. act 'Out of the house':
  1154. cls
  1155. KGZhour += 1
  1156. minut += 1
  1157. gs 'stat'
  1158. KGZplace = 201
  1159. KGZbatl = 0
  1160. 'You cautiously left the apartment trying not to stumble on the dead.'
  1161. act 'Further': gt $curloc
  1162. end
  1163. end
  1164. =======
  1165. if KGZplace=202:
  1166. '<center><B>house</B></center>'
  1167. 'This house is a safe place. The house is kept provisions, which will be enough for <<KGZsup>> days'
  1168. if KGZmedkit>0:
  1169. 'kits <<KGZmedkit>> pcs'
  1170. if KGZHP<100:
  1171. act 'treated':
  1172. cls
  1173. KGZhour+=1
  1174. KGZHP=100
  1175. KGZmedkit-=1
  1176. minut+=1
  1177. gs'stat'
  1178. 'You cured with the help of health kits.'
  1179. act 'further':gt $curloc
  1180. end
  1181. end
  1182. end
  1183. act 'laze':
  1184. cls
  1185. KGZhour+=1
  1186. minut+=1
  1187. gs'stat'
  1188. 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
  1189. act 'further':gt $curloc
  1190. end
  1191. act 'Out of the house':
  1192. cls
  1193. KGZhour+=1
  1194. minut+=1
  1195. gs'stat'
  1196. KGZplace=201
  1197. KGZbatl=0
  1198. 'You cautiously left the apartment trying not to run into dead.'
  1199. act 'further':gt $curloc
  1200. end
  1201. end
  1202. >>>>>>> 434_KGZgame
  1203. --- KGZgame ---------------------------------