1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180 |
- if KGZweapon = 0:$KGZweapon = 'Fists' & $KGZweapona = 'Fist'
- if KGZweapon = 1:$KGZweapon = 'Baton' & $KGZweapona = 'Shillelagh'
- if KGZweapon = 2:$KGZweapon = 'Ax' & $KGZweapona = 'Ax'
- if KGZgun > 0:$KGZgun = 'Pistol, cartridges <<bullet>>piece'
- if KGZgun2 > 0:$KGZgun2 = 'Shotgun cartridges <<bullet2>>piece'
- if KGZgun3 > 0:$KGZgun3 = 'Automatic, cartridges <<bullet3>>piece'
- if KGZhour >= 24:
- KGZhour -= 24
- KGZday += 1
- if KGZsup = 0:
- KGZHP -= 10
- else
- KGZsup -= 1
- end
- end
- $KGZvihod = {
- if KGZweapon = 0:KGZweapon = 1 & 'You found a good cudgel lying on the pavement and took her'
- act 'Go to the apartment':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 0
- KGZbatl = 0
- gs 'stat'
- 'You went to the apartment carefully trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the store':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- 'You cautiously went to the store with smashed storefronts trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the hospital':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 3
- KGZbatl = 0
- gs 'stat'
- 'You went to the hospital carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the boulevard':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 4
- KGZbatl = 0
- gs 'stat'
- 'You gingerly walked down the street, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- }
- $KGZvihod2 = {
- act 'Go to the street':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 1
- KGZbatl = 0
- gs 'stat'
- 'You carefully went into the street trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search provisions':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you started searching the store looking for food.'
- KGZsupoisk = rand(0, 100)
- if KGZsupoisk = 100:
- KGZsup += 1
- 'You found enough food to stretch another day.'
- elseif KGZday < KGZsupoisk:
- KGZsup += 1
- 'You found enough food to stretch another day.'
- else
- 'You are not able to find anything edible, all that you have found rotten and no good for eating.'
- end
- act 'Further':gt $curloc
- end
- }
- $KGZvihod3 = {
- act 'Go to the street':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 1
- KGZbatl = 0
- gs 'stat'
- 'You carefully went into the street trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search kits':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you started searching the hospital looking kit.'
- KGZsupoisk = rand(0, 100)
- if KGZsupoisk = 100:
- KGZmedkit += 1
- 'You have found a first aid kit.'
- elseif KGZday < KGZsupoisk:
- KGZmedkit += 1
- 'You have found a first aid kit.'
- else
- 'You are not able to find anything useful.'
- end
- act 'Further':gt $curloc
- end
- }
- $KGZvihod4 = {
- act 'Go to the street to the side of his house':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 1
- KGZbatl = 0
- gs 'stat'
- 'You carefully went into the street trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the hunting store':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 5
- KGZbatl = 0
- gs 'stat'
- 'You carefully went hunting store trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the police station':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 6
- KGZbatl = 0
- gs 'stat'
- 'You cautiously went to the police station trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the hardware store':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 7
- KGZbatl = 0
- gs 'stat'
- 'You cautiously went to the hardware store trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- if KGZcopcar = 0:
- act 'Search the police car':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 1
- KGZcopcar = 1
- bullet += 10
- gs 'stat'
- 'Noiselessly you started searching the police car.'
- if KGZgun = 0:KGZgun = 1 & 'You have found a pistol'
- 'You found 10t ammunition for the gun.'
- act 'Further':gt $curloc
- end
- end
- act 'Go on the highway':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 8
- KGZbatl = 0
- gs 'stat'
- 'You cautiously walked towards the highway trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- }
- $KGZvihod5 = {
- act 'Leave the store':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 4
- KGZbatl = 0
- gs 'stat'
- 'You carefully went into the street trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search salesroom':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- bulletrand = rand(3, 20)
- bullet2 += bulletrand
- gs 'stat'
- 'Noiselessly you started searching the hunting store.'
- if KGZgun2 = 0:KGZgun2 = 1 & 'You found a shotgun'
- 'You have found <<bulletrand>>to be shotgun cartridges.'
- act 'Further':gt $curloc
- end
- }
- $KGZvihod6 = {
- act 'Get Outside':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 4
- KGZbatl = 0
- gs 'stat'
- 'You carefully went into the street trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search the police station':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- bulletrand = rand(3, 20)
- bullet += bulletrand
- gs 'stat'
- 'Noiselessly you started searching the police station.'
- if KGZgun = 0:KGZgun = 1 & 'You have found a pistol'
- 'You have found <<bulletrand>>be ammo for the gun.'
- act 'Further':gt $curloc
- end
- if KGZcopdoor = 0:
- 'Armed room is locked on a massive iron door which can be opened only grinder, but the trouble is, there is no electricity.'
- if KGZgenerator > 0 and KGZbenzin > 0 and KGZbolgarka > 0:
- act 'Uncover grinder armed room':
- cls
- KGZhour += 1
- minut += 1
- KGZcopdoor = 1
- KGZbatl = 0
- bullet3 += 500
- KGZdead = KGZday * 10
- gs 'stat'
- 'Noiselessly you started searching the police station.'
- if KGZgun3 = 0:KGZgun3 = 1 & 'You found Machine'
- 'You have found 500 tons of ammunition for machine.'
- 'The noise from the grinder ran dead and attacked you.'
- act 'Srazhatsya':KGZdist = rand(5, 8) & gt 'KGZfight'
- end
- end
- elseif KGZcopdoor = 1:
- 'Armory room is empty, just a bunch of dead on the floor, according to a recent fight with you.'
- if KGZratia = 0:
- act 'Pick up radio':
- cls
- KGZhour += 1
- minut += 1
- KGZratia = 1
- KGZbatl = 1
- gs 'stat'
- 'You have found a radio. Including it you heard the voice repeating the same phrase. "Everyone who hears me. Safe Haven is 10m kilometer highway. Go to Fort Bragg."'
- act 'Further':gt $curloc
- end
- end
- end
- }
- $KGZvihod7 = {
- act 'Get Outside':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 4
- KGZbatl = 0
- gs 'stat'
- 'You carefully went into the street trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search the store':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you started searching the hardware store.'
- if KGZweapon < 2:
- KGZweapon = 2
- 'You found an ax'
- act 'Further':gt $curloc
- exit
- end
- if KGZgenerator = 0:
- KGZgenerator = 1
- 'You found refillable portable generator gasoline.'
- act 'Further':gt $curloc
- exit
- end
- if KGZbolgarka = 0:
- KGZbolgarka = 1
- 'You found grinder is powered by electricity.'
- act 'Further':gt $curloc
- exit
- end
- 'You did not find anything useful.'
- act 'Further':gt $curloc
- end
- }
- $KGZvihod8 = {
- act 'Exit at Boulevard':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 4
- KGZbatl = 0
- gs 'stat'
- 'You went to the boulevard carefully trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the gas station':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 9
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you went to the gas station.'
- act 'Further':gt $curloc
- end
- if KGZratia > 0:
- act 'Go in the direction of Fort Bragg':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 10
- KGZplaceA = 1
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you went toward Fort Bragg.'
- act 'Further':gt $curloc
- end
- end
- }
- $KGZvihod9 = {
- act 'Exit the highway':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 8
- KGZbatl = 0
- gs 'stat'
- 'You went to the highway carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- if KGZbenzin = 0:
- act 'Pour gasoline':
- cls
- KGZhour += 1
- minut += 1
- KGZbenzin = 1
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you poured gasoline from the column.'
- act 'Further':gt $curloc
- end
- end
- }
- $KGZvihod10 = {
- if KGZplaceA < 10:$KGZplaceA = 'Fort Bragg' & $KGZplaceB = 'from the city'
- if KGZplaceA > 10:$KGZplaceA = 'from the city' & $KGZplaceB = 'Fort Bragg'
- act 'Go in the direction <<$KGZplaceA>>':
- cls
- KGZhour += 1
- minut += 1
- KGZplaceA += 1
- KGZbatl = 0
- gs 'stat'
- 'You went to the highway carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go in the direction <<$KGZplaceB>>':
- cls
- KGZhour += 1
- minut += 1
- KGZplaceA -= 1
- KGZbatl = 0
- gs 'stat'
- 'You went to the highway carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- if KGZplaceA > 10:
- act 'Go to the forest':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 200
- gs 'stat'
- 'You have gone off the highway into the woods.'
- act 'Further':gt $curloc
- end
- end
- }
- $KGZvihod11 = {
- if KGZfortQW = 0:'From the roof of a shot is fired with a sniper rifle.'
- if KGZfortQW = 0:'The man on the roof screaming you. "Fort Bragg fell. I stayed living person. Save me. Ammo I end, and ghouls and climb."'
- act 'Probivatsya the roof':
- cls
- KGZhour += 1
- minut += 1
- if KGZfortQW = 0:KGZfortQW = 1
- KGZplace = 12
- KGZbatl = 0
- KGZdead = rand(KGZday * 20, KGZday * 30)
- gs 'stat'
- 'You ran into a fort surrounded on all sides dead.'
- act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
- end
- act 'Go to the side of the highway (the side leading to the city)':
- cls
- KGZhour += 1
- minut += 1
- KGZplaceA = 9
- KGZplace = 10
- KGZbatl = 0
- gs 'stat'
- 'You went to the highway carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the side of the highway (leading side of the city)':
- cls
- KGZhour += 1
- minut += 1
- KGZplaceA = 11
- KGZplace = 10
- KGZbatl = 0
- gs 'stat'
- 'You went to the highway carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- if KGZfortQW = 2:
- act 'Probivatsya on food warehouse':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 13
- KGZbatl = 0
- KGZdead = rand(KGZday * 20, KGZday * 30)
- gs 'stat'
- 'You ran to the warehouse surrounded on all sides dead.'
- act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
- end
- act 'Probivatsya infirmary':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 14
- KGZbatl = 0
- KGZdead = rand(KGZday * 20, KGZday * 30)
- gs 'stat'
- 'You ran into the hospital surrounded on all sides dead.'
- act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
- end
- act 'Probivatsya armory':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 15
- KGZbatl = 0
- KGZdead = rand(KGZday * 20, KGZday * 30)
- gs 'stat'
- 'You ran into the hospital surrounded on all sides dead.'
- act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
- end
- act 'Probivatsya in garage':
- cls
- KGZhour += 1
- minut += 1
- KGZplace = 16
- KGZbatl = 0
- KGZdead = rand(KGZday * 20, KGZday * 30)
- gs 'stat'
- 'You ran into the hospital surrounded on all sides dead.'
- act 'Srazhatsya':KGZdist = rand(5, 12) & gt 'KGZfight'
- end
- end
- }
- $KGZvihod13 = {
- act 'Exit at Fort Bragg':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 11
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search the warehouse':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you started searching the dark warehouse.'
- udacharand = rand(0, 1)
- if udacharand = 1:
- KGZsuprand = rand(1, 3)
- KGZsup += KGZsuprand
- 'You have found the diet <<KGZsuprand>> days'
- elseif udacharand = 0:
- KGZdead = rand(KGZday * 5, KGZday * 10)
- 'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
- act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
- exit
- end
- act 'Further':gt $curloc
- end
- }
- $KGZvihod14 = {
- act 'Exit at Fort Bragg':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 11
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search the infirmary':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- 'Noiselessly you started searching the dark infirmary.'
- udacharand = rand(0, 1)
- if udacharand = 1:
- KGZmedkit += 1
- 'You have found a first aid kit'
- elseif udacharand = 0:
- KGZdead = rand(KGZday * 5, KGZday * 10)
- 'On the box seemed barely visible in the dark and dead with uterine howling toward you.'
- act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
- exit
- end
- act 'Further':gt $curloc
- end
- }
- $KGZvihod15 = {
- act 'Exit at Fort Bragg':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 11
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Search armory':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- if KGZfortOru = 1:
- 'In Munitions nothing useful.'
- elseif KGZfortOru = 0:
- KGZfortOru = 1
- 'In Munitions you find ammunition for machine 300 pieces and 10 grenades.'
- KGZgranade += 10
- bullet3 += 300
- end
- '.'
- act 'Further':gt $curloc
- end
- }
- $KGZvihod16 = {
- act 'Exit at Fort Bragg':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 11
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- if KGZgruzovik = 0:
- act 'Climb into the truck':
- cls
- KGZhour += 1
- minut += 1
- !!KGZplace = 2
- KGZbatl = 0
- gs 'stat'
- if KGZgruzBenz = 1:
- 'You sat in the cab on the driver''s seat and brought the truck.'
- act 'Go':
- cls
- 'Truck uterine growled jumped into the courtyard of the fort where a crowd had gathered the dead, you go to cut into the crowd and began to push the ghouls, the engine speed drops, the engine roared overwrought gliding over crushed bodies, dead hands clung to the cabin. Some ghouls hung on the cabin in the mirror was clear that the body you have climbed too dead. Gate to the fort closed and they have to knock.'
- act 'Clear the gate':
- cls
- 'You disperse truck hit the gate of the fort. You strongly shaken and rattled the gate collapsed. Something like a truck drove out of the courtyard of the fort on the highway clogged.'
- act 'Drive along the highway into town':
- cls
- KGZgruzovik = 1
- KGZplace = 10
- KGZplaceA = 9
- KGZdead = rand(KGZday * 50, KGZday * 100)
- 'Your truck surrounded by a ring of the dead tried to clear the road of traffic jams. But you get stuck. There is no choice, already dead truck stuck like flies.'
- act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
- end
- act 'Ride on the highway out of town':
- cls
- KGZgruzovik = 2
- KGZplace = 10
- KGZplaceA = 11
- KGZdead = rand(KGZday * 50, KGZday * 100)
- 'Your truck surrounded by a ring of the dead tried to clear the road of traffic jams. But you get stuck. There is no choice, already dead truck stuck like flies.'
- act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
- end
- act 'To go along the side of the city':
- cls
- KGZgruzovik = 3
- KGZplace = 10
- KGZplaceA = 7
- KGZdead = rand(KGZday * 50, KGZday * 100)
- 'Your truck surrounded by a ring of the dead went on slippery roadside. When the truck crushed corpses wheel very punt and you still make a mistake, the truck slid into a ditch and overturned. There is no choice, already dead truck stuck like flies.'
- act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
- end
- act 'To go along the side of the city':
- cls
- KGZgruzovik = 4
- KGZplace = 10
- KGZplaceA = 13
- KGZdead = rand(KGZday * 50, KGZday * 100)
- 'Your truck surrounded by a ring of the dead went on slippery roadside. When the truck crushed corpses wheel very punt and you still make a mistake, the truck slid into a ditch and overturned. There is no choice, already dead truck stuck like flies.'
- act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight'
- end
- end
- end
- elseif KGZgruzBenz = 0:
- KGZgruzBenzMark = 1
- 'Heck, empty tank truck, standing next column, you only need to fill.'
- end
- act 'Get out of the cab':gt $curloc
- end
- end
- if KGZgruzBenzMark = 1:
- act 'Exit at Fort Bragg':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZgruzBenz = 1
- gs 'stat'
- 'You carefully tucked truck gasoline.'
- act 'Further':gt $curloc
- end
- end
- }
- $KGZvihod100 = {
- act 'Wander through the dead city':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 100
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- KGZlocrand = rand(0, 100)
- if KGZlocrand >= 90 and KGZlok = 0:
- KGZlok = 1
- 'You have found a solid house with iron bars on the windows'
- act 'Enter the house':KGZplace = 101 & gt $curloc
- elseif KGZlocrand >= 80 and KGZlok2 = 0:
- KGZlok2 = 1
- 'You find a large supermarket where when it sold a variety of goods'
- act 'Sign in to supermarket':KGZplace = 102 & gt $curloc
- end
- act 'Further':gt $curloc
- end
- act 'Go to the side of the highway':
- cls
- KGZhour += 1
- minut += 1
- KGZplaceA = 19
- KGZplace = 10
- KGZbatl = 0
- gs 'stat'
- 'You went to the highway carefully, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- if KGZlok = 1:act 'Enter the house':KGZhour += 1 & KGZplace = 101 & gt $curloc
- if KGZlok2 = 1:act 'Sign in to supermarket':KGZhour += 1 & KGZplace = 102 & gt $curloc
- }
- $KGZvihod102 = {
- act 'Get out of the supermarket':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 100
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Scour supermarket':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- gs 'stat'
- 'You gently started to fumble in search of useful, trying not to stumble on the dead.'
- udarand = rand(0, 100)
- if udarand >= 90:
- tiprand = rand(0, 1)
- if tiprand = 0:KGZsup += 1 & 'You are lucky and you find food'
- if tiprand = 1:KGZmedkit += 1 & 'You are lucky and you find a first aid kit'
- end
- act 'Further':gt $curloc
- end
- }
- $KGZvihod200 = {
- act 'Walk through the woods to the highway':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 10
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Walk through the woods from the highway':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 201
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- }
- $KGZvihod201 = {
- act 'Go to the forest':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 200
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- act 'Go to the farmhouse':
- cls
- KGZhour += 1
- minut += 1
- KGZbatl = 0
- KGZplace = 202
- gs 'stat'
- 'You went cautiously, trying not to stumble on the dead.'
- act 'Further':gt $curloc
- end
- }
- $KGZvincent = {
- cls
- if KGZfortQW = 1:KGZfortQW = 2
- 'The fort has arsenal and warehouse with food, hospital and garage with trucks. But a lot of dead, really a lot. Several soldiers tried to break but died. Some tried to use flamethrowers, but still dead burn, they manage to reach the man and the end. From the fort should leave as soon as possible.'
- act 'Further':gt $curloc
- }
- $KGZfizatk = {
- if KGZweapon = 0:
- KGZuspeh = rand(0, 100)
- if KGZuspeh <= 30:
- KGZdead -= 1
- 'You were very good ghouls fist on the head and he fell stopping moves.'
- else
- 'Ghoul irreversible no attention to your punch.'
- end
- elseif KGZweapon = 1:
- KGZuspeh = rand(0, 100)
- if KGZuspeh <= 50:
- KGZdead -= 1
- 'You were very good ghouls club head and he fell stopping moves.'
- else
- 'Ghoul irreversible no attention to your clubbing.'
- end
- elseif KGZweapon = 2:
- KGZuspeh = rand(0, 100)
- if KGZuspeh <= 70:
- KGZdead -= 1
- 'You were very good ghouls ax on the head and he fell stopping moves.'
- else
- 'Ghoul irreversible no attention to your ax blow.'
- end
- end
- if KGZdead > 0:
- kgzuron = rand(KGZdead * 2, KGZdead * 5)
- KGZHP -= kgzuron
- '<<KGZdead>> dead clutching at you, trying to tear.'
- '<b><font color="red">you have caused damage <<kgzuron>> units.</font></b>'
- end
- }
- $KGZgunatk = {
- KGZuspeh = rand(0, 100)
- if KGZdist <= 5:
- if KGZuspeh <= 90:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- elseif KGZdist <= 10:
- if KGZuspeh <= 80:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- else
- if KGZuspeh <= 70:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- end
- }
- $KGZgunatk2 = {
- KGZuspeh = rand(0, 100)
- if KGZdist <= 5:
- if KGZuspeh <= 100:
- KGZdead -= 1
- 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- elseif KGZdist <= 10:
- if KGZuspeh <= 70:
- KGZdead -= 1
- 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- else
- if KGZuspeh <= 50:
- KGZdead -= 1
- 'You have thrust the charge shot in the head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- end
- }
- $KGZgunatk3 = {
- KGZuspeh = rand(0, 100)
- if KGZdist <= 5:
- if KGZuspeh <= 70:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- elseif KGZdist <= 10:
- if KGZuspeh <= 95:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- else
- if KGZuspeh <= 85:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- end
- }
- $KGZgunatk4 = {
- :KGZmarkgun
- KGZbulgun -= 1
- KGZuspeh = rand(0, 100)
- if KGZdead > 0:
- if KGZdist <= 5:
- if KGZuspeh <= 80:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- elseif KGZdist <= 10:
- if KGZuspeh <= 70:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- else
- if KGZuspeh <= 60:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- end
- end
- if KGZbulgun > 0:jump 'KGZmarkgun'
- }
- $KGZgunatk5 = {
- :KGZmarkgunb
- KGZbulgun -= 1
- KGZuspeh = rand(0, 100)
- if KGZdead > 0:
- if KGZdist <= 5:
- if KGZuspeh <= 70:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- elseif KGZdist <= 10:
- if KGZuspeh <= 60:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- else
- if KGZuspeh <= 50:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You hit the dead.'
- end
- end
- end
- if KGZbulgun > 0:jump 'KGZmarkgunb'
- }
- $KGZdeadmanatk = {
- if KGZdist > 0:KGZdist -= 1
- if KGZdead > 0 and KGZdist <= 2:
- kgzuron = rand(KGZdead * 2, KGZdead * 5)
- KGZHP -= kgzuron
- '<<KGZdead>> dead clutching at you, trying to tear.'
- '<b><font color="red">you have caused damage <<kgzuron>> units.</font></b>'
- elseif KGZdist > 2 and KGZdead > 0:
- '<<KGZdead>> The Dead wheezing and limping approach you.'
- end
- }
- $KGZgranatk = {
- KGZuspeh = rand(0, 100)
- KGZgranade -= 1
- 'You threw a grenade into the Dead'
- if KGZdist <= 5:
- KGZdist += rand(1, 5)
- KGZdead -= rand(5, 20)
- KGZHP -= rand(5, 20)
- 'Powerful explosion threw the dead in different directions'
- 'You hurt by a grenade'
- elseif KGZdist <= 10:
- KGZdist += rand(1, 3)
- KGZdead -= rand(3, 10)
- 'Powerful explosion threw the dead in different directions'
- else
- if KGZuspeh <= 5:
- KGZdead -= 1
- 'You put a bullet in his head and he fell ghoul stopping moves.'
- else
- 'You do not dokinuli grenade and it exploded harmlessly.'
- end
- end
- }
- --- KGZdyn ---------------------------------
|