# 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
KGZplace = 1
KGZbatl = 0
gs 'stat'
'You cautiously left the apartment trying not to stumble on the dead.'
act 'Further':gt $curloc
end
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
KGZplace = 11
KGZbatl = 0
gs 'stat'
'You gently down into the hatch, trying not to stumble on the dead.'
act 'Further':gt $curloc
end
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
elseif 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
KGZplace = 100
KGZbatl = 0
gs 'stat'
'You cautiously left the apartment trying not to stumble on the dead.'
act 'Further':gt $curloc
end
elseif 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
elseif 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
elseif 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
elseif 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
KGZplace = 201
KGZbatl = 0
gs 'stat'
'You cautiously left the apartment trying not to stumble on the dead.'
act 'Further':gt $curloc
end
end
--- KGZgame ---------------------------------