KGZgame 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664
  1. # KGZgame
  2. minut += 1
  3. gs 'stat'
  4. gs 'KGZdyn'
  5. if KGZHP <= 0:
  6. cla
  7. *clr
  8. '<center><b>GAME OVER</b></center>'
  9. act 'Quit Game':gt 'KGZstart'
  10. exit
  11. end
  12. if KGZhour >= 6 and KGZhour <= 21:
  13. KGZsvet = 1
  14. else
  15. KGZsvet = 0
  16. end
  17. '<a href="exec:gt ''KGZstart''">Get out of the game</a>'
  18. 'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
  19. if KGZsup <= 0:'You have no provisions, you are starving!'
  20. 'Edged weapons:<<$KGZweapon>>'
  21. if KGZgun > 0:'<<$KGZgun>>'
  22. if KGZgun2 > 0:'<<$KGZgun2>>'
  23. if KGZgun3 > 0:'<<$KGZgun3>>'
  24. if KGZgenerator > 0:
  25. if KGZbenzin = 0:$KGZbenzin = 'But the generator does not work because you do not have gasoline.'
  26. if KGZbenzin = 1:$KGZbenzin = 'You have filled a full tank of gasoline.'
  27. 'Do you have a portable generator runs on gasoline. <<$KGZbenzin>>'
  28. end
  29. if KGZbolgarka > 0:'Do you have a Bulgarian powered by electricity.'
  30. if KGZratia = 1:'Do you have a radio.'
  31. ''
  32. if KGZplace = 0:
  33. '<center><b>Apartment</b></center>'
  34. 'Your apartment is a safe place. The apartment is stored provisions, which will be enough to <<KGZsup>> days'
  35. if KGZmedkit > 0:
  36. 'First aid kits <<KGZmedkit>> pieces'
  37. if KGZHP < 100:
  38. act 'Treated':
  39. cls
  40. KGZhour += 1
  41. KGZHP = 100
  42. KGZmedkit -= 1
  43. minut += 1
  44. gs 'stat'
  45. 'You heal health through kits.'
  46. act 'Further':gt $curloc
  47. end
  48. end
  49. end
  50. act 'Laze':
  51. cls
  52. KGZhour += 1
  53. minut += 1
  54. gs 'stat'
  55. 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
  56. act 'Further':gt $curloc
  57. end
  58. act 'Leave the apartment':
  59. cls
  60. KGZhour += 1
  61. minut += 1
  62. KGZplace = 1
  63. KGZbatl = 0
  64. gs 'stat'
  65. 'You cautiously left the apartment trying not to stumble on the dead.'
  66. act 'Further':gt $curloc
  67. end
  68. elseif KGZplace = 1:
  69. KGZdead = rand(KGZday, KGZday * 2)
  70. '<center><b>Street</b></center>'
  71. 'On the street the broken machine, lie the corpses.'
  72. if KGZbatl = 0:
  73. 'Roam the streets <<KGZdead>> Dead'
  74. KGZagr = rand(0, 10)
  75. if KGZagr <= 8:
  76. 'Sensing you dead immediately rush to the attack.'
  77. act 'Srazhatsya':
  78. if KGZsvet = 1:KGZdist = rand(5, 30)
  79. if KGZsvet = 2:KGZdist = rand(3, 10)
  80. gt 'KGZfight'
  81. end
  82. else
  83. 'Fortunately, you do not notice the dead.'
  84. dynamic $KGZvihod
  85. end
  86. else
  87. 'The Walking Dead is not visible.'
  88. dynamic $KGZvihod
  89. end
  90. elseif KGZplace = 2:
  91. KGZdead = rand(KGZday, KGZday * 2)
  92. '<center><b>Shop</b></center>'
  93. 'In store stale air from spoiled food and dead.'
  94. if KGZbatl = 0:
  95. 'Wander around the store <<KGZdead>> Dead'
  96. KGZagr = rand(0, 10)
  97. if KGZagr <= 8:
  98. 'Sensing you dead immediately rush to the attack.'
  99. act 'Srazhatsya':
  100. if KGZsvet = 1:KGZdist = rand(3, 10)
  101. if KGZsvet = 2:KGZdist = rand(2, 8)
  102. gt 'KGZfight'
  103. end
  104. else
  105. 'Fortunately, you do not notice the dead.'
  106. dynamic $KGZvihod2
  107. end
  108. else
  109. 'The Walking Dead is not visible.'
  110. dynamic $KGZvihod2
  111. end
  112. elseif KGZplace = 3:
  113. KGZdead = rand(KGZday, KGZday * 2)
  114. '<center><b>Hospital</b></center>'
  115. 'Hospital floor littered with papers and dead bodies of patients and physicians.'
  116. if KGZbatl = 0:
  117. 'Wander around the hospital <<KGZdead>> Dead'
  118. KGZagr = rand(0, 10)
  119. if KGZagr <= 8:
  120. 'Sensing you dead immediately rush to the attack.'
  121. act 'Srazhatsya':
  122. if KGZsvet = 1:KGZdist = rand(3, 10)
  123. if KGZsvet = 2:KGZdist = rand(2, 8)
  124. gt 'KGZfight'
  125. end
  126. else
  127. 'Fortunately, you do not notice the dead.'
  128. dynamic $KGZvihod3
  129. end
  130. else
  131. 'The Walking Dead is not visible.'
  132. dynamic $KGZvihod3
  133. end
  134. elseif KGZplace = 4:
  135. KGZdead = rand(KGZday, KGZday * 2)
  136. '<center><b>Boulevard</b></center>'
  137. 'On the boulevard cluster of abandoned and wrecked cars everywhere corpses.'
  138. if KGZbatl = 0:
  139. 'Wander along the boulevard <<KGZdead>> Dead'
  140. KGZagr = rand(0, 10)
  141. if KGZagr <= 8:
  142. 'Sensing you dead immediately rush to the attack.'
  143. act 'Srazhatsya':
  144. if KGZsvet = 1:KGZdist = rand(5, 30)
  145. if KGZsvet = 2:KGZdist = rand(3, 10)
  146. gt 'KGZfight'
  147. end
  148. else
  149. 'Fortunately, you do not notice the dead.'
  150. dynamic $KGZvihod4
  151. end
  152. else
  153. 'The Walking Dead is not visible.'
  154. dynamic $KGZvihod4
  155. end
  156. elseif KGZplace = 5:
  157. KGZdead = rand(KGZday, KGZday * 2)
  158. '<center><b>Hunting Store</b></center>'
  159. 'In hunting stores all counters are flipped, things scattered on the floor and something where visible decaying corpses.'
  160. if KGZbatl = 0:
  161. 'Roam around the room <<KGZdead>> Dead'
  162. KGZagr = rand(0, 10)
  163. if KGZagr <= 8:
  164. 'Sensing you dead immediately rush to the attack.'
  165. act 'Srazhatsya':KGZdist = rand(2, 6) & gt 'KGZfight'
  166. else
  167. 'Fortunately, you do not notice the dead.'
  168. dynamic $KGZvihod5
  169. end
  170. else
  171. 'The Walking Dead is not visible.'
  172. dynamic $KGZvihod5
  173. end
  174. elseif KGZplace = 6:
  175. KGZdead = rand(KGZday, KGZday * 2)
  176. '<center><b>Police station</b></center>'
  177. 'At the police station the police corpses scattered on the floor, tables overturned and papers strewn all around.'
  178. if KGZbatl = 0:
  179. 'Roam around the room <<KGZdead>> Dead'
  180. KGZagr = rand(0, 10)
  181. if KGZagr <= 8:
  182. 'Sensing you dead immediately rush to the attack.'
  183. act 'Srazhatsya':KGZdist = rand(2, 5) & gt 'KGZfight'
  184. else
  185. 'Fortunately, you do not notice the dead.'
  186. dynamic $KGZvihod6
  187. end
  188. else
  189. 'The Walking Dead is not visible.'
  190. dynamic $KGZvihod6
  191. end
  192. elseif KGZplace = 7:
  193. KGZdead = rand(KGZday, KGZday * 2)
  194. '<center><b>Drugstore</b></center>'
  195. 'In store everything upside down and smells mertvyachinoy.'
  196. if KGZbatl = 0:
  197. 'Roam around the room <<KGZdead>> Dead'
  198. KGZagr = rand(0, 10)
  199. if KGZagr <= 8:
  200. 'Sensing you dead immediately rush to the attack.'
  201. act 'Srazhatsya':KGZdist = rand(2, 5) & gt 'KGZfight'
  202. else
  203. 'Fortunately, you do not notice the dead.'
  204. dynamic $KGZvihod7
  205. end
  206. else
  207. 'The Walking Dead is not visible.'
  208. dynamic $KGZvihod7
  209. end
  210. elseif KGZplace = 8:
  211. KGZdead = rand(KGZday * 2, KGZday * 4)
  212. '<center><b>Route</b></center>'
  213. 'On the highway, a huge traffic jam of abandoned cars, where there are some broken machines and the dead bodies.'
  214. if KGZbatl = 0:
  215. 'Wander along the highway <<KGZdead>> Dead'
  216. KGZagr = rand(0, 10)
  217. if KGZagr <= 8:
  218. 'Sensing you dead immediately rush to the attack.'
  219. act 'Srazhatsya':
  220. if KGZsvet = 1:KGZdist = rand(5, 30)
  221. if KGZsvet = 2:KGZdist = rand(3, 10)
  222. gt 'KGZfight'
  223. end
  224. else
  225. 'Fortunately, you do not notice the dead.'
  226. dynamic $KGZvihod8
  227. end
  228. else
  229. 'The Walking Dead is not visible.'
  230. dynamic $KGZvihod8
  231. end
  232. elseif KGZplace = 9:
  233. KGZdead = rand(KGZday, KGZday * 2)
  234. '<center><b>Threading</b></center>'
  235. 'At the gas station is a pair of abandoned cars. No electricity and speakers only work in manual mode.'
  236. if KGZbatl = 0:
  237. 'Roam around the room <<KGZdead>> Dead'
  238. KGZagr = rand(0, 10)
  239. if KGZagr <= 8:
  240. 'Sensing you dead immediately rush to the attack.'
  241. act 'Srazhatsya':KGZdist = rand(2, 5) & gt 'KGZfight'
  242. else
  243. 'Fortunately, you do not notice the dead.'
  244. dynamic $KGZvihod9
  245. end
  246. else
  247. 'The Walking Dead is not visible.'
  248. dynamic $KGZvihod9
  249. end
  250. elseif KGZplace = 10:
  251. KGZdead = rand(KGZday * 5, KGZday * 10)
  252. if KGZplaceA = 20:KGZplace = 100 & gt $curloc
  253. if KGZplaceA = 10:KGZplace = 11 & gt $curloc
  254. if KGZplaceA = 0:KGZplace = 8 & gt $curloc
  255. '<center><b>Highway in Fort Bragg</b></center>'
  256. '<center><b><<KGZplaceA>>th kilometer</b></center>'
  257. 'On the highway are broken machines are corpses.'
  258. if KGZbatl = 0:
  259. 'Wander along the highway <<KGZdead>> Dead'
  260. KGZagr = rand(0, 10)
  261. if KGZagr <= 8:
  262. 'Sensing you dead immediately rush to the attack.'
  263. act 'Srazhatsya':
  264. if KGZsvet = 1:KGZdist = rand(5, 30)
  265. if KGZsvet = 2:KGZdist = rand(3, 10)
  266. gt 'KGZfight'
  267. end
  268. else
  269. 'Fortunately, you do not notice the dead.'
  270. dynamic $KGZvihod10
  271. end
  272. else
  273. 'The Walking Dead is not visible.'
  274. dynamic $KGZvihod10
  275. end
  276. elseif KGZplace = 11:
  277. KGZdead = rand(KGZday * 10, KGZday * 20)
  278. '<center><b>Fort Bragg</b></center>'
  279. 'Fort Bragg is a small building surrounded by a fence.'
  280. if KGZbatl = 0:
  281. 'Roam around the fort <<KGZdead>> Dead'
  282. KGZagr = rand(0, 10)
  283. if KGZagr <= 8:
  284. 'Sensing you dead immediately rush to the attack.'
  285. act 'Srazhatsya':KGZdist = rand(3, 10) & gt 'KGZfight'
  286. else
  287. 'Fortunately, you do not notice the dead.'
  288. dynamic $KGZvihod11
  289. end
  290. else
  291. 'The Walking Dead is not visible.'
  292. dynamic $KGZvihod11
  293. end
  294. elseif KGZplace = 12:
  295. if KGZdost = 0:KGZdost = 1
  296. KGZdead = rand(KGZday * 10, KGZday * 20)
  297. '<center><b>Roof Fort Bragg</b></center>'
  298. 'On the roof is full of lying motionless rotting bodies, many spent cartridges.'
  299. 'Provisions enough for <<KGZsup>> day'
  300. if KGZfortQW > 0:'<a href="exec:dynamic $KGZvincent">Young tired man in the form of Ranger</a>, sits leaning on a sniper rifle.'
  301. if KGZmedkit > 0:
  302. 'First aid kits <<KGZmedkit>> pieces'
  303. if KGZHP < 100:
  304. act 'Treated':
  305. cls
  306. KGZhour += 1
  307. KGZHP = 100
  308. KGZmedkit -= 1
  309. minut += 1
  310. gs 'stat'
  311. 'You heal health through kits.'
  312. act 'Further':gt $curloc
  313. end
  314. end
  315. end
  316. act 'Rest':
  317. cls
  318. KGZhour += 1
  319. minut += 1
  320. gs 'stat'
  321. 'You have settled on the convenient roof, not taking his eyes off the hatch which can climb dead.'
  322. act 'Further':gt $curloc
  323. end
  324. act 'Exit to the fort':
  325. cls
  326. KGZhour += 1
  327. minut += 1
  328. KGZplace = 11
  329. KGZbatl = 0
  330. gs 'stat'
  331. 'You gently down into the hatch, trying not to stumble on the dead.'
  332. act 'Further':gt $curloc
  333. end
  334. elseif KGZplace = 13:
  335. KGZdead = rand(KGZday * 10, KGZday * 20)
  336. '<center><b>Fort Bragg</b></center>'
  337. '<center><b>Food Storage</b></center>'
  338. 'Stock dark and heard noises.'
  339. if KGZbatl = 0:
  340. 'Wander around the warehouse <<KGZdead>> Dead'
  341. KGZagr = rand(0, 10)
  342. if KGZagr <= 8:
  343. 'Sensing you dead immediately rush to the attack.'
  344. act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight'
  345. else
  346. 'Fortunately, you do not notice the dead.'
  347. dynamic $KGZvihod13
  348. end
  349. else
  350. 'The Walking Dead is not visible.'
  351. dynamic $KGZvihod13
  352. end
  353. elseif KGZplace = 14:
  354. KGZdead = rand(KGZday * 10, KGZday * 20)
  355. '<center><b>Fort Bragg</b></center>'
  356. '<center><b>Infirmary</b></center>'
  357. 'In the hospital is dark and heard noises.'
  358. if KGZbatl = 0:
  359. 'By Infirmary roam <<KGZdead>> Dead'
  360. KGZagr = rand(0, 10)
  361. if KGZagr <= 8:
  362. 'Sensing you dead immediately rush to the attack.'
  363. act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight'
  364. else
  365. 'Fortunately, you do not notice the dead.'
  366. dynamic $KGZvihod14
  367. end
  368. else
  369. 'The Walking Dead is not visible.'
  370. dynamic $KGZvihod14
  371. end
  372. elseif KGZplace = 15:
  373. KGZdead = rand(KGZday * 10, KGZday * 20)
  374. '<center><b>Fort Bragg</b></center>'
  375. '<center><b>Arms</b></center>'
  376. 'In the armory dark and heard noises.'
  377. if KGZbatl = 0:
  378. 'On weapons roam <<KGZdead>>Dead'
  379. KGZagr = rand(0, 10)
  380. if KGZagr <= 8:
  381. 'Sensing you dead immediately rush to the attack.'
  382. act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight'
  383. else
  384. 'Fortunately, you do not notice the dead.'
  385. dynamic $KGZvihod15
  386. end
  387. else
  388. 'The Walking Dead is not visible.'
  389. dynamic $KGZvihod15
  390. end
  391. elseif KGZplace = 16:
  392. KGZdead = rand(KGZday * 10, KGZday * 20)
  393. '<center><b>Fort Bragg</b></center>'
  394. '<center><b>Garage</b></center>'
  395. 'The garage is dark and heard noises.'
  396. if KGZbatl = 0:
  397. 'Roam around the garage <<KGZdead>> Dead'
  398. KGZagr = rand(0, 10)
  399. if KGZagr <= 8:
  400. 'Sensing you dead immediately rush to the attack.'
  401. act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight'
  402. else
  403. 'Fortunately, you do not notice the dead.'
  404. dynamic $KGZvihod16
  405. end
  406. else
  407. 'The Walking Dead is not visible.'
  408. dynamic $KGZvihod16
  409. end
  410. elseif KGZplace = 100:
  411. KGZdead = rand(KGZday * 20, KGZday * 30)
  412. '<center><b>City Koldkrik</b></center>'
  413. 'The city was destroyed and fires could be seen.'
  414. if KGZbatl = 0:
  415. 'Roam the streets <<KGZdead>> Dead'
  416. KGZagr = rand(0, 10)
  417. if KGZagr <= 8:
  418. 'Sensing you dead immediately rush to the attack.'
  419. act 'Srazhatsya':KGZdist = rand(10, 30) & gt 'KGZfight'
  420. else
  421. 'Fortunately, you do not notice the dead.'
  422. dynamic $KGZvihod100
  423. end
  424. else
  425. 'The Walking Dead is not visible.'
  426. dynamic $KGZvihod100
  427. end
  428. elseif KGZplace = 101:
  429. '<center><b>House</b></center>'
  430. 'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
  431. if KGZmedkit > 0:
  432. 'First aid kits <<KGZmedkit>> pieces'
  433. if KGZHP < 100:
  434. act 'Treated':
  435. cls
  436. KGZhour += 1
  437. KGZHP = 100
  438. KGZmedkit -= 1
  439. minut += 1
  440. gs 'stat'
  441. 'You heal health through kits.'
  442. act 'Further':gt $curloc
  443. end
  444. end
  445. end
  446. act 'Laze':
  447. cls
  448. KGZhour += 1
  449. minut += 1
  450. gs 'stat'
  451. 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
  452. act 'Further':gt $curloc
  453. end
  454. act 'Out of the house':
  455. cls
  456. KGZhour += 1
  457. minut += 1
  458. KGZplace = 100
  459. KGZbatl = 0
  460. gs 'stat'
  461. 'You cautiously left the apartment trying not to stumble on the dead.'
  462. act 'Further':gt $curloc
  463. end
  464. elseif KGZplace = 102:
  465. KGZdead = rand(KGZday * 5, KGZday * 10)
  466. '<center><b>Supermarket</b></center>'
  467. 'At the supermarket, dark and heard noises.'
  468. if KGZbatl = 0:
  469. 'Roam the halls of the Trade <<KGZdead>> Dead'
  470. KGZagr = rand(0, 10)
  471. if KGZagr <= 8:
  472. 'Sensing you dead immediately rush to the attack.'
  473. act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
  474. else
  475. 'Fortunately, you do not notice the dead.'
  476. dynamic $KGZvihod102
  477. end
  478. else
  479. 'The Walking Dead is not visible.'
  480. dynamic $KGZvihod102
  481. end
  482. elseif KGZplace = 200:
  483. KGZdead = rand(KGZday, KGZday * 2)
  484. '<center><b>Forest</b></center>'
  485. 'In the dark forest and heard noises.'
  486. if KGZbatl = 0:
  487. 'Wander through the woods <<KGZdead>> Dead'
  488. KGZagr = rand(0, 10)
  489. if KGZagr <= 8:
  490. 'Sensing you dead immediately rush to the attack.'
  491. act 'Srazhatsya':KGZdist = rand(10, 30) & gt 'KGZfight'
  492. else
  493. 'Fortunately, you do not notice the dead.'
  494. dynamic $KGZvihod200
  495. end
  496. else
  497. 'The Walking Dead is not visible.'
  498. dynamic $KGZvihod200
  499. end
  500. elseif KGZplace = 201:
  501. KGZdead = rand(KGZday, KGZday * 3)
  502. '<center><b>Farm</b></center>'
  503. 'Large fenced farm fence.'
  504. if KGZbatl = 0:
  505. 'Wander around the neighborhood <<KGZdead>> Dead'
  506. KGZagr = rand(0, 10)
  507. if KGZagr <= 8:
  508. 'Sensing you dead immediately rush to the attack.'
  509. act 'Srazhatsya':KGZdist = rand(10, 30) & gt 'KGZfight'
  510. else
  511. 'Fortunately, you do not notice the dead.'
  512. dynamic $KGZvihod201
  513. end
  514. else
  515. 'The Walking Dead is not visible.'
  516. dynamic $KGZvihod201
  517. end
  518. elseif KGZplace = 202:
  519. '<center><b>House</b></center>'
  520. 'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
  521. if KGZmedkit > 0:
  522. 'First aid kits <<KGZmedkit>> pieces'
  523. if KGZHP < 100:
  524. act 'Treated':
  525. cls
  526. KGZhour += 1
  527. KGZHP = 100
  528. KGZmedkit -= 1
  529. minut += 1
  530. gs 'stat'
  531. 'You heal health through kits.'
  532. act 'Further':gt $curloc
  533. end
  534. end
  535. end
  536. act 'Laze':
  537. cls
  538. KGZhour += 1
  539. minut += 1
  540. gs 'stat'
  541. 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
  542. act 'Further':gt $curloc
  543. end
  544. act 'Out of the house':
  545. cls
  546. KGZhour += 1
  547. minut += 1
  548. KGZplace = 201
  549. KGZbatl = 0
  550. gs 'stat'
  551. 'You cautiously left the apartment trying not to stumble on the dead.'
  552. act 'Further':gt $curloc
  553. end
  554. end
  555. --- KGZgame ---------------------------------