# KGZgame minut += 1 gs 'stat' gs 'KGZdyn' if KGZHP <= 0: cla *clr '
GAME OVER
' act 'Quit Game':gt 'KGZstart' exit end if KGZhour >= 6 and KGZhour <= 21: KGZsvet = 1 else KGZsvet = 0 end 'Get out of the game' 'Health <>. Day <>, h <>.' 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: '
Apartment
' 'Your apartment is a safe place. The apartment is stored provisions, which will be enough to <> days' if KGZmedkit > 0: 'First aid kits <> 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 end if KGZplace = 1: KGZdead = rand(KGZday, KGZday * 2) '
Street
' 'On the street the broken machine, lie the corpses.' if KGZbatl = 0: 'Roam the streets <> 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 end if KGZplace = 2: KGZdead = rand(KGZday, KGZday * 2) '
Shop
' 'In store stale air from spoiled food and dead.' if KGZbatl = 0: 'Wander around the store <> 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 end if KGZplace = 3: KGZdead = rand(KGZday, KGZday * 2) '
Hospital
' 'Hospital floor littered with papers and dead bodies of patients and physicians.' if KGZbatl = 0: 'Wander around the hospital <> 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 end if KGZplace = 4: KGZdead = rand(KGZday, KGZday * 2) '
Boulevard
' 'On the boulevard cluster of abandoned and wrecked cars everywhere corpses.' if KGZbatl = 0: 'Wander along the boulevard <> 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 end if KGZplace = 5: KGZdead = rand(KGZday, KGZday * 2) '
Hunting Store
' '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 <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 6) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod5 end else 'The Walking Dead is not visible.' dynamic $KGZvihod5 end end if KGZplace = 6: KGZdead = rand(KGZday, KGZday * 2) '
Police station
' '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 <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 5) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod6 end else 'The Walking Dead is not visible.' dynamic $KGZvihod6 end end if KGZplace = 7: KGZdead = rand(KGZday, KGZday * 2) '
Drugstore
' 'In store everything upside down and smells mertvyachinoy.' if KGZbatl = 0: 'Roam around the room <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 5) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod7 end else 'The Walking Dead is not visible.' dynamic $KGZvihod7 end end if KGZplace = 8: KGZdead = rand(KGZday * 2, KGZday * 4) '
Route
' '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 <> 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 end if KGZplace = 9: KGZdead = rand(KGZday, KGZday * 2) '
Threading
' '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 <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 5) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod9 end else 'The Walking Dead is not visible.' dynamic $KGZvihod9 end end 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 '
Highway in Fort Bragg
' '
<>th kilometer
' 'On the highway are broken machines are corpses.' if KGZbatl = 0: 'Wander along the highway <> 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 end if KGZplace = 11: KGZdead = rand(KGZday * 10, KGZday * 20) '
Fort Bragg
' 'Fort Bragg is a small building surrounded by a fence.' if KGZbatl = 0: 'Roam around the fort <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(3, 10) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod11 end else 'The Walking Dead is not visible.' dynamic $KGZvihod11 end end if KGZplace = 12: if KGZdost = 0:KGZdost = 1 KGZdead = rand(KGZday * 10, KGZday * 20) '
Roof Fort Bragg
' 'On the roof is full of lying motionless rotting bodies, many spent cartridges.' 'Provisions enough for <> day' if KGZfortQW > 0:'Young tired man in the form of Ranger, sits leaning on a sniper rifle.' if KGZmedkit > 0: 'First aid kits <> 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 end if KGZplace = 13: KGZdead = rand(KGZday * 10, KGZday * 20) '
Fort Bragg
' '
Food Storage
' 'Stock dark and heard noises.' if KGZbatl = 0: 'Wander around the warehouse <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod13 end else 'The Walking Dead is not visible.' dynamic $KGZvihod13 end end if KGZplace = 14: KGZdead = rand(KGZday * 10, KGZday * 20) '
Fort Bragg
' '
Infirmary
' 'In the hospital is dark and heard noises.' if KGZbatl = 0: 'By Infirmary roam <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod14 end else 'The Walking Dead is not visible.' dynamic $KGZvihod14 end end if KGZplace = 15: KGZdead = rand(KGZday * 10, KGZday * 20) '
Fort Bragg
' '
Arms
' 'In the armory dark and heard noises.' if KGZbatl = 0: 'On weapons roam <>Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod15 end else 'The Walking Dead is not visible.' dynamic $KGZvihod15 end end if KGZplace = 16: KGZdead = rand(KGZday * 10, KGZday * 20) '
Fort Bragg
' '
Garage
' 'The garage is dark and heard noises.' if KGZbatl = 0: 'Roam around the garage <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(2, 3) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod16 end else 'The Walking Dead is not visible.' dynamic $KGZvihod16 end end if KGZplace = 100: KGZdead = rand(KGZday * 20, KGZday * 30) '
City Koldkrik
' 'The city was destroyed and fires could be seen.' if KGZbatl = 0: 'Roam the streets <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(10, 30) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod100 end else 'The Walking Dead is not visible.' dynamic $KGZvihod100 end end if KGZplace = 101: '
House
' 'This home is a safe place. The house is kept provision, which will be enough to <> days' if KGZmedkit > 0: 'First aid kits <> 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 end if KGZplace = 102: KGZdead = rand(KGZday * 5, KGZday * 10) '
Supermarket
' 'At the supermarket, dark and heard noises.' if KGZbatl = 0: 'Roam the halls of the Trade <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(5, 10) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod102 end else 'The Walking Dead is not visible.' dynamic $KGZvihod102 end end if KGZplace = 200: KGZdead = rand(KGZday, KGZday * 2) '
Forest
' 'In the dark forest and heard noises.' if KGZbatl = 0: 'Wander through the woods <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(10, 30) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod200 end else 'The Walking Dead is not visible.' dynamic $KGZvihod200 end end if KGZplace = 201: KGZdead = rand(KGZday, KGZday * 3) '
Farm
' 'Large fenced farm fence.' if KGZbatl = 0: 'Wander around the neighborhood <> Dead' KGZagr = rand(0, 10) if KGZagr <= 8: 'Sensing you dead immediately rush to the attack.' act 'Srazhatsya':KGZdist = rand(10, 30) & gt 'KGZfight' else 'Fortunately, you do not notice the dead.' dynamic $KGZvihod201 end else 'The Walking Dead is not visible.' dynamic $KGZvihod201 end end if KGZplace = 202: '
House
' 'This home is a safe place. The house is kept provision, which will be enough to <> days' if KGZmedkit > 0: 'First aid kits <> 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 --- KGZgame ---------------------------------