1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282 |
- # KGZgame
- <<<<<<< 434_KGZgame
- minut += 1
- gs 'stat'
- gs 'KGZdyn'
- if KGZHP <= 0:
- =======
- minut+=1
- gs'stat'
- gs'KGZdyn'
- if KGZHP<=0:
- >>>>>>> 434_KGZgame
- cla
- *clr
- '<center><B>GAME OVER</B></center>'
- <<<<<<< 434_KGZgame
- act 'Quit Game': gt 'KGZstart'
- =======
- act 'Leave the game':gt'KGZstart'
- >>>>>>> 434_KGZgame
- exit
- end
- <<<<<<< 434_KGZgame
- if KGZhour >= 6 and KGZhour <= 21:
- KGZsvet = 1
- else
- KGZsvet = 0
- =======
- if KGZhour>=6 and KGZhour<=21:
- KGZsvet=1
- else
- KGZsvet=0
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- '<a href="exec:GT ''KGZstart''">Get out of the game</a>'
- 'Health <<KGZHP>>. Day <<KGZday>>, h <<KGZhour>>.'
- if KGZsup <= 0: 'You have no provisions, you are starving!'
- 'Edged weapons: <<$KGZweapon>>'
- if KGZgun > 0: '<<$KGZgun>>'
- if KGZgun2 > 0: '<<$KGZgun2>>'
- if KGZgun3 > 0: '<<$KGZgun3>>'
- if KGZgenerator > 0:
- if KGZbenzin = 0:$KGZbenzin = 'But the generator does not work because you do not have gasoline.'
- if KGZbenzin = 1:$KGZbenzin = 'You have filled a full tank of gasoline.'
- 'Do you have a portable generator runs on gasoline. <<$KGZbenzin>>'
- end
- if KGZbolgarka > 0: 'Do you have a Bulgarian powered by electricity.'
- if KGZratia = 1: 'Do you have a radio.'
- ''
- if KGZplace = 0:
- '<center><B>Apartment</B></center>'
- 'Your apartment is a safe place. The apartment is stored provisions, which will be enough to <<KGZsup>> days'
- if KGZmedkit > 0:
- 'First aid kits <<KGZmedkit>> pieces'
- if KGZHP < 100:
- act 'Treated':
- cls
- KGZhour += 1
- KGZHP = 100
- KGZmedkit -= 1
- minut += 1
- gs 'stat'
- 'You heal health through kits.'
- act 'Further': gt $curloc
- end
- end
- end
- act 'Laze':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
- act 'Further': gt $curloc
- end
- act 'Leave the apartment':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- KGZplace = 1
- KGZbatl = 0
- 'You cautiously left the apartment trying not to stumble on the dead.'
- act 'Further': gt $curloc
- end
- =======
- '<a href="exec:GT ''KGZstart''">Leave the game</a>'
- 'health <<KGZHP>>. day <<KGZday>>, h <<KGZhour>>.'
- if KGZsup<=0:'You do not have provisions, you starve!'
- 'cold arms: <<$KGZweapon>>'
- if KGZgun>0:'<<$KGZgun>>'
- if KGZgun2>0:'<<$KGZgun2>>'
- if KGZgun3>0:'<<$KGZgun3>>'
- if KGZgenerator>0:
- if KGZbenzin=0:$KGZbenzin='But the generator does not work, since you do not have gasoline.'
- if KGZbenzin=1:$KGZbenzin='You have filled a full tank of petrol.'
- 'Do you have a portable generator running on gasoline. <<$KGZbenzin>>'
- end
- if KGZbolgarka>0:'Do you have a Bulgarian powered by electricity.'
- if KGZratia=1:'Do you have a portable radio.'
- ''
- if KGZplace=0:
- '<center><B>apartment</B></center>'
- 'Your apartment safe place. The apartment is kept provisions, which will be enough for <<KGZsup>> days'
- if KGZmedkit>0:
- 'kits <<KGZmedkit>> pcs'
- if KGZHP<100:
- act 'treated':
- cls
- KGZhour+=1
- KGZHP=100
- KGZmedkit-=1
- minut+=1
- gs'stat'
- 'You cured with the help of health kits.'
- act 'further':gt $curloc
- end
- end
- end
-
- act 'laze':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
- act 'further':gt $curloc
- end
-
-
- act 'Leave the apartment':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- KGZplace=1
- KGZbatl=0
- 'You cautiously left the apartment trying not to run into dead.'
- act 'further':gt $curloc
- end
-
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 1:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Street</B></center>'
- 'On the street the broken machine, lie the corpses.'
- if KGZbatl = 0:
- 'Roam the streets <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya':
- if KGZsvet = 1: KGZdist = RAND(5,30)
- if KGZsvet = 2: KGZdist = RAND(3,10)
- gt 'KGZfight'
- end
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod
- end
- =======
- if KGZplace=1:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>street</B></center>'
- 'On the street broken machine, lie the corpses.'
- if KGZbatl=0:
- 'Roam the streets <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':
- if KGZsvet=1:KGZdist=RAND(5,30)
- if KGZsvet=2:KGZdist=RAND(3,10)
- gt'KGZfight'
- end
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 2:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Shop</B></center>'
- 'In store stale air from spoiled food and dead.'
- if KGZbatl = 0:
- 'Wander around the store <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya':
- if KGZsvet = 1: KGZdist = RAND(3,10)
- if KGZsvet = 2: KGZdist = RAND(2,8)
- gt 'KGZfight'
- end
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod2
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod2
- end
- =======
- if KGZplace=2:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>shop</B></center>'
- 'The store stale air from spoiled food and dead.'
- if KGZbatl=0:
- 'Wander around the store <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':
- if KGZsvet=1:KGZdist=RAND(3,10)
- if KGZsvet=2:KGZdist=RAND(2,8)
- gt'KGZfight'
- end
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod2
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod2
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 3:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Hospital</B></center>'
- 'Hospital floor littered with papers and dead bodies of patients and physicians.'
- if KGZbatl = 0:
- 'Wander around the hospital <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya':
- if KGZsvet = 1: KGZdist = RAND(3,10)
- if KGZsvet = 2: KGZdist = RAND(2,8)
- gt 'KGZfight'
- end
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod3
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod3
- end
- =======
- if KGZplace=3:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>hospital</B></center>'
- 'Hospital floor is littered with papers and dead bodies of patients and physicians.'
- if KGZbatl=0:
- 'Wander around the hospital <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':
- if KGZsvet=1:KGZdist=RAND(3,10)
- if KGZsvet=2:KGZdist=RAND(2,8)
- gt'KGZfight'
- end
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod3
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod3
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 4:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Boulevard</B></center>'
- 'On the boulevard cluster of abandoned and wrecked cars everywhere corpses.'
- if KGZbatl = 0:
- 'Wander along the boulevard <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya':
- if KGZsvet = 1: KGZdist = RAND(5,30)
- if KGZsvet = 2: KGZdist = RAND(3,10)
- gt 'KGZfight'
- end
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod4
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod4
- end
- =======
- if KGZplace=4:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>boulevard</B></center>'
- 'On the boulevard cluster of abandoned and broken machines, corpses everywhere.'
- if KGZbatl=0:
- 'Wander along the boulevard <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':
- if KGZsvet=1:KGZdist=RAND(5,30)
- if KGZsvet=2:KGZdist=RAND(3,10)
- gt'KGZfight'
- end
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod4
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod4
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 5:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Hunting Store</B></center>'
- 'In hunting stores all counters are flipped, things scattered on the floor and something where visible decaying corpses.'
- if KGZbatl = 0:
- 'Roam around the room <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,6)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod5
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod5
- end
- =======
- if KGZplace=5:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>hunting store</B></center>'
- 'In hunting store all counters are turned, scattered on the floor and some things which are seen decomposing bodies.'
- if KGZbatl=0:
- 'Wander around the room <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,6)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod5
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod5
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 6:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Police station</B></center>'
- 'At the police station the police corpses scattered on the floor, tables overturned and papers strewn all around.'
- if KGZbatl = 0:
- 'Roam around the room <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,5)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod6
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod6
- end
- =======
- if KGZplace=6:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>police station</B></center>'
- 'At the police station the police corpses scattered on the floor, the tables are turned and the terms of roll paper.'
- if KGZbatl=0:
- 'Wander around the room <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,5)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod6
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod6
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 7:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Drugstore</B></center>'
- 'In store everything upside down and smells mertvyachinoy.'
- if KGZbatl = 0:
- 'Roam around the room <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,5)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod7
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod7
- end
- =======
- if KGZplace=7:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>hardware store</B></center>'
- 'The store everything upside down and smells mertvyachinoy.'
- if KGZbatl=0:
- 'Wander around the room <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,5)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod7
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod7
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 8:
- KGZdead = RAND(KGZday * 2, KGZday * 4)
- '<center><B>Route</B></center>'
- 'On the highway, a huge traffic jam of abandoned cars, where there are some broken machines and the dead bodies.'
- if KGZbatl = 0:
- 'Wander along the highway <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya':
- if KGZsvet = 1: KGZdist = RAND(5,30)
- if KGZsvet = 2: KGZdist = RAND(3,10)
- gt 'KGZfight'
- end
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod8
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod8
- end
- =======
- if KGZplace=8:
- KGZdead=RAND(KGZday*2,KGZday*4)
- '<center><B>highway</B></center>'
- 'On the highway, where there are some broken machines and the dead bodies.'
- if KGZbatl=0:
- 'Wandering on the highway <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':
- if KGZsvet=1:KGZdist=RAND(5,30)
- if KGZsvet=2:KGZdist=RAND(3,10)
- gt'KGZfight'
- end
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod8
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod8
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 9:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Threading</B></center>'
- 'At the gas station is a pair of abandoned cars. No electricity and speakers only work in manual mode.'
- if KGZbatl = 0:
- 'Roam around the room <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,5)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod9
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod9
- end
- =======
- if KGZplace=9:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>filling</B></center>'
- 'At the gas station is a pair of abandoned vehicles. No electricity and columns are only manually.'
- if KGZbatl=0:
- 'Wander around the room <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,5)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod9
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod9
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 10:
- KGZdead = RAND(KGZday * 5, KGZday * 10)
- if KGZplaceA = 20: KGZplace = 100 & gt $curloc
- if KGZplaceA = 10: KGZplace = 11 & gt $curloc
- if KGZplaceA = 0: KGZplace = 8 & gt $curloc
- =======
- if KGZplace=10:
- KGZdead=RAND(KGZday*5,KGZday*10)
- if KGZplaceA=20:KGZplace=100> $curloc
- if KGZplaceA=10:KGZplace=11> $curloc
- if KGZplaceA=0:KGZplace=8> $curloc
- >>>>>>> 434_KGZgame
- '<center><B>Highway in Fort Bragg</B></center>'
- '<center><B><<KGZplaceA>>th kilometer</B></center>'
- 'On the highway are broken machines are corpses.'
- <<<<<<< 434_KGZgame
- if KGZbatl = 0:
- 'Wander along the highway <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya':
- if KGZsvet = 1: KGZdist = RAND(5,30)
- if KGZsvet = 2: KGZdist = RAND(3,10)
- gt 'KGZfight'
- end
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod10
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod10
- end
- =======
- if KGZbatl=0:
- 'Wandering on the highway <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':
- if KGZsvet=1:KGZdist=RAND(5,30)
- if KGZsvet=2:KGZdist=RAND(3,10)
- gt'KGZfight'
- end
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod10
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod10
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 11:
- KGZdead = RAND(KGZday * 10, KGZday * 20)
- =======
- if KGZplace=11:
- KGZdead=RAND(KGZday*10,KGZday*20)
- >>>>>>> 434_KGZgame
- '<center><B>Fort Bragg</B></center>'
- 'Fort Bragg is a small building surrounded by a fence.'
- <<<<<<< 434_KGZgame
- if KGZbatl = 0:
- 'Roam around the fort <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(3,10)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod11
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod11
- end
- =======
- if KGZbatl=0:
- 'Roam around the fort <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(3,10)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod11
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod11
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 12:
- if KGZdost = 0: KGZdost = 1
- KGZdead = RAND(KGZday * 10, KGZday * 20)
- '<center><B>Roof Fort Bragg</B></center>'
- 'On the roof is full of lying motionless rotting bodies, many spent cartridges.'
- 'Provisions enough for <<KGZsup>> day'
- if KGZfortQW > 0: '<a href="exec: dynamic $KGZvincent">Young tired man in the form of Ranger</a>, sits leaning on a sniper rifle.'
- if KGZmedkit > 0:
- 'First aid kits <<KGZmedkit>> pieces'
- if KGZHP < 100:
- act 'Treated':
- cls
- KGZhour += 1
- KGZHP = 100
- KGZmedkit -= 1
- minut += 1
- gs 'stat'
- 'You heal health through kits.'
- act 'Further': gt $curloc
- end
- end
- end
- act 'Rest':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- 'You have settled on the convenient roof, not taking his eyes off the hatch which can climb dead.'
- act 'Further': gt $curloc
- end
- act 'Exit to the fort':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- KGZplace = 11
- KGZbatl = 0
- 'You gently down into the hatch, trying not to stumble on the dead.'
- act 'Further': gt $curloc
- end
- =======
- if KGZplace=12:
- if KGZdost=0:KGZdost=1
- KGZdead=RAND(KGZday*10,KGZday*20)
- '<center><B>Roof Fort Bragg</B></center>'
- 'On the roof is full of lying motionless rotting bodies, a lot of spent cartridges.'
- 'Provisions enough for <<KGZsup>> days'
- if KGZfortQW>0:'<a href="exec:dynamic $KGZvincent">Tired young man in the form of Ranger</a>, sits leaning on a sniper rifle.'
- if KGZmedkit>0:
- 'kits <<KGZmedkit>> pcs'
- if KGZHP<100:
- act 'treated':
- cls
- KGZhour+=1
- KGZHP=100
- KGZmedkit-=1
- minut+=1
- gs'stat'
- 'You cured with the help of health kits.'
- act 'further':gt $curloc
- end
- end
- end
-
- act 'rest':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- 'You settled for convenient roof, not taking his eyes off the hatch which can climb dead.'
- act 'further':gt $curloc
- end
-
-
- act 'Go to the fort':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- KGZplace=11
- KGZbatl=0
- 'You gently down the hatch, trying not to run into dead.'
- act 'further':gt $curloc
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 13:
- KGZdead = RAND(KGZday * 10, KGZday * 20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>Food Storage</B></center>'
- 'Stock dark and heard noises.'
- if KGZbatl = 0:
- 'Wander around the warehouse <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,3)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod13
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod13
- end
- =======
- if KGZplace=13:
- KGZdead=RAND(KGZday*10,KGZday*20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>The food warehouse</B></center>'
- 'In stock dark and heard noises.'
- if KGZbatl=0:
- 'The warehouse roam <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,3)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod13
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod13
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 14:
- KGZdead = RAND(KGZday * 10, KGZday * 20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>Infirmary</B></center>'
- 'In the hospital is dark and heard noises.'
- if KGZbatl = 0:
- 'By Infirmary roam <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,3)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod14
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod14
- end
- =======
- if KGZplace=14:
- KGZdead=RAND(KGZday*10,KGZday*20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>infirmary</B></center>'
- 'In the hospital is dark and heard noises.'
- if KGZbatl=0:
- 'According to the infirmary roam <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,3)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod14
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod14
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 15:
- KGZdead = RAND(KGZday * 10, KGZday * 20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>Arms</B></center>'
- 'In the armory dark and heard noises.'
- if KGZbatl = 0:
- 'On weapons roam <<KGZdead>>Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,3)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod15
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod15
- end
- =======
- if KGZplace=15:
- KGZdead=RAND(KGZday*10,KGZday*20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>Armory</B></center>'
- 'In the armory dark and heard noises.'
- if KGZbatl=0:
- 'On weapons roam <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,3)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod15
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod15
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 16:
- KGZdead = RAND(KGZday * 10, KGZday * 20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>Garage</B></center>'
- 'The garage is dark and heard noises.'
- if KGZbatl = 0:
- 'Roam around the garage <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(2,3)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod16
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod16
- end
- =======
- if KGZplace=16:
- KGZdead=RAND(KGZday*10,KGZday*20)
- '<center><B>Fort Bragg</B></center>'
- '<center><B>garage</B></center>'
- 'The garage is dark and heard noises.'
- if KGZbatl=0:
- 'Roam the garage <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(2,3)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod16
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod16
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 100:
- KGZdead = RAND(KGZday * 20, KGZday * 30)
- '<center><B>City Koldkrik</B></center>'
- 'The city was destroyed and fires could be seen.'
- if KGZbatl = 0:
- 'Roam the streets <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(10,30)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod100
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod100
- end
- =======
- if KGZplace=100:
- KGZdead=RAND(KGZday*20,KGZday*30)
- '<center><B>city ​​Koldkrik</B></center>'
- 'The city was destroyed and could be seen fires.'
- if KGZbatl=0:
- 'Roam the streets <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(10,30)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod100
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod100
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 101:
- '<center><B>House</B></center>'
- 'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
- if KGZmedkit > 0:
- 'First aid kits <<KGZmedkit>> pieces'
- if KGZHP < 100:
- act 'Treated':
- cls
- KGZhour += 1
- KGZHP = 100
- KGZmedkit -= 1
- minut += 1
- gs 'stat'
- 'You heal health through kits.'
- act 'Further': gt $curloc
- end
- end
- end
- act 'Laze':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
- act 'Further': gt $curloc
- end
- act 'Out of the house':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- KGZplace = 100
- KGZbatl = 0
- 'You cautiously left the apartment trying not to stumble on the dead.'
- act 'Further': gt $curloc
- end
- =======
- if KGZplace=101:
- '<center><B>house</B></center>'
- 'This house is a safe place. The house is kept provisions, which will be enough for <<KGZsup>> days'
- if KGZmedkit>0:
- 'kits <<KGZmedkit>> pcs'
- if KGZHP<100:
- act 'treated':
- cls
- KGZhour+=1
- KGZHP=100
- KGZmedkit-=1
- minut+=1
- gs'stat'
- 'You cured with the help of health kits.'
- act 'further':gt $curloc
- end
- end
- end
-
- act 'laze':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
- act 'further':gt $curloc
- end
-
-
- act 'Out of the house':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- KGZplace=100
- KGZbatl=0
- 'You cautiously left the apartment trying not to run into dead.'
- act 'further':gt $curloc
- end
-
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 102:
- KGZdead = RAND(KGZday * 5, KGZday * 10)
- '<center><B>Supermarket</B></center>'
- 'At the supermarket, dark and heard noises.'
- if KGZbatl = 0:
- 'Roam the halls of the Trade <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(5,10)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod102
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod102
- end
- =======
- if KGZplace=102:
- KGZdead=RAND(KGZday*5,KGZday*10)
- '<center><B>supermarket</B></center>'
- 'At the supermarket.'
- if KGZbatl=0:
- 'Roam the halls of the Trade <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(5,10)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod102
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod102
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 200:
- KGZdead = RAND(KGZday, KGZday * 2)
- '<center><B>Forest</B></center>'
- 'In the dark forest and heard noises.'
- if KGZbatl = 0:
- 'Wander through the woods <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(10,30)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod200
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod200
- end
- =======
- if KGZplace=200:
- KGZdead=RAND(KGZday,KGZday*2)
- '<center><B>forest</B></center>'
- 'In the dark woods and heard noises.'
- if KGZbatl=0:
- 'Wander through the woods <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(10,30)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod200
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod200
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 201:
- KGZdead = RAND(KGZday, KGZday * 3)
- '<center><B>Farm</B></center>'
- 'Large fenced farm fence.'
- if KGZbatl = 0:
- 'Wander around the neighborhood <<KGZdead>> Dead'
- KGZagr = RAND(0,10)
- if KGZagr <= 8:
- 'Sensing you dead immediately rush to the attack.'
- act 'Srazhatsya': KGZdist = RAND(10,30)> 'KGZfight'
- else
- 'Fortunately, you do not notice the dead.'
- dynamic $KGZvihod201
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod201
- end
- =======
- if KGZplace=201:
- KGZdead=RAND(KGZday,KGZday*3)
- '<center><B>farm</B></center>'
- 'Large fenced farm fence.'
- if KGZbatl=0:
- 'Wander around the neighborhood <<KGZdead>> dead'
- KGZagr=RAND(0,10)
- if KGZagr<=8:
- 'sensing you, dead immediately rush to the attack.'
- act 'srazhatsya':KGZdist=RAND(10,30)>'KGZfight'
- else
- 'for luck, Dead you have not noticed.'
- dynamic $KGZvihod201
- end
- else
- 'The Walking Dead is not visible.'
- dynamic $KGZvihod201
- end
- >>>>>>> 434_KGZgame
- end
- <<<<<<< 434_KGZgame
- if KGZplace = 202:
- '<center><B>House</B></center>'
- 'This home is a safe place. The house is kept provision, which will be enough to <<KGZsup>> days'
- if KGZmedkit > 0:
- 'First aid kits <<KGZmedkit>> pieces'
- if KGZHP < 100:
- act 'Treated':
- cls
- KGZhour += 1
- KGZHP = 100
- KGZmedkit -= 1
- minut += 1
- gs 'stat'
- 'You heal health through kits.'
- act 'Further': gt $curloc
- end
- end
- end
- act 'Laze':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- 'You lounged in the apartment, lounging on the couch and thinking how you vykruchivatsya of the situation.'
- act 'Further': gt $curloc
- end
- act 'Out of the house':
- cls
- KGZhour += 1
- minut += 1
- gs 'stat'
- KGZplace = 201
- KGZbatl = 0
- 'You cautiously left the apartment trying not to stumble on the dead.'
- act 'Further': gt $curloc
- end
- end
- =======
- if KGZplace=202:
- '<center><B>house</B></center>'
- 'This house is a safe place. The house is kept provisions, which will be enough for <<KGZsup>> days'
- if KGZmedkit>0:
- 'kits <<KGZmedkit>> pcs'
- if KGZHP<100:
- act 'treated':
- cls
- KGZhour+=1
- KGZHP=100
- KGZmedkit-=1
- minut+=1
- gs'stat'
- 'You cured with the help of health kits.'
- act 'further':gt $curloc
- end
- end
- end
-
- act 'laze':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- 'You lounged in the apartment, lounging on the couch and thinking, as you vykruchivatsya of the situation.'
- act 'further':gt $curloc
- end
-
-
- act 'Out of the house':
- cls
- KGZhour+=1
- minut+=1
- gs'stat'
- KGZplace=201
- KGZbatl=0
- 'You cautiously left the apartment trying not to run into dead.'
- act 'further':gt $curloc
- end
-
- end
- >>>>>>> 434_KGZgame
- --- KGZgame ---------------------------------
|