# KGOLgame $KGOLstat = { clr '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <> level' 'Close Statistics' if KGOLneedExp > 0:pl 'Total experiment <>, it is necessary to next level <> experience' if KGOLneedExp <= 0:pl 'You need to increase the level.' 'Power <>, speed and evasion <>, endurance <>Intelligence <>, armor protection <>, the bonus damage from weapons <>' '' '
Exodus
' '<<$KGOLset>>' '<<$KGOLset2>>' '<<$KGOLset3>>' '<<$KGOLset4>>' '<<$KGOLset5>>' '' '
Equipment
' if KGOLpotionH > 0:pl 'Health potions <> pieces. Drink.' if KGOLpotionM > 0:pl 'Mana potions <> pieces. Drink.' '
PVE
' 'Ratio <>, losses <>' '
PVP
' 'Ratio <>, losses <>' } $KGOLstat2 = { gs 'stat' } minut += 1 gs 'stat' if KGOLset= 0:$KGOLset = 'On the head there is nothing' if KGOLset2 = 0:$KGOLset2 = 'Body simple clothes' if KGOLset3 = 0:$KGOLset3 = 'Simple shoes on his feet' if KGOLset4 = 0:$KGOLset4 = 'No gloves on hands' if KGOLset5 = 0:$KGOLset5 = 'No weapon' KGHPMAX = KGOLvital * 10 KGMannaMax = KGOLintel * 10 if KGHP > KGHPMAX:KGHP = KGHPMAX if KGManna > KGMannaMax:KGManna = KGMannaMax KGOLbrona -= KGOLbronaMod KGOLbronaMod = 0 KGOLstren -= KGOLstrenMod KGOLstrenMod = 0 KGOLspeed -= KGOLspeedMod KGOLspeedMod = 0 KGOLvital -= KGOLvitalMod KGOLvitalMod = 0 KGOLintel -= KGOLintelMod KGOLintelMod = 0 KGOLwpower -= KGOLwpowerMod KGOLwpowerMod = 0 KGOLcooldown = 0 if KGHP < KGHPMAX and KGOLhirka > 0: kghneed = KGHPMAX - KGHP if KGOLhirka >= kghneed: KGOLhirka -= kghneed KGHP = KGHPMAX else KGHP = KGOLhirka KGOLhirka = 0 end end if KGHP < 0:KGHP = 0 gs 'KGOLexpa' 'Get out of the game' 'View Statistics' '<<$KGOLname>> <<$KGOLrace>> <<$KGOLklass>> <> level' 'Life <>, the manna <>' if KGHP < KGHPMAX:'You''ve got <>% of life' if KGManna < KGMannaMax:'You''ve got <>% of manna' if KGOLhirka > 0:'Hirka can restore automatically <> health units' if KGOLPrizeM > 0:'You have <> coins' if KGOLneedExp <= 0:'You need to increase the level.' if KGOLpoint > 0:'You have not allocated skill points.' if KGOLspellpoint >= 4:'You can choose your skill.' '<>' '' '
Countryside
' 'You are in the picturesque village where to spawn characters stand motionless. NPC standing pillars and in the distance one can see the monsters.' act 'Approach the NPC': cls minut += 1 if KGOLmqw = 12 and KGOLlvl >= 5: KGOLmqw = 13 '(NPS) - <<$KGOLname>> you need to kill the royal 10t beetles. Reward 200 experience.' elseif KGOLmqw = 13 and KGOLqwvip >= 10: KGOLqwvip = 0 KGOLmqw = 14 KGOLexp += 200 '(NPS) - <<$KGOLname>> congratulations, that''s a reward of 200 experience.' elseif KGOLmqw = 10 and KGOLlvl >= 5: KGOLmqw = 11 '(NPS) - <<$KGOLname>> you need to kill toads 10t. Reward 100 experience.' elseif KGOLmqw = 11 and KGOLqwvip >= 10: KGOLqwvip = 0 KGOLmqw = 12 KGOLexp += 100 '(NPS) - <<$KGOLname>> congratulations, that''s a reward of 100 experience.' elseif KGOLmqw = 8: KGOLmqw = 9 '(NPS) - <<$KGOLname>> you need to kill 30t young cacti. Then I''ll give you a helmet.' elseif KGOLmqw = 9 and KGOLqwvip >= 30: KGOLqwvip = 0 KGOLmqw = 10 KGOL= 1 KGOLbrona += 2 $KGOL= 'Helm of rough skin' '(NPS) - <<$KGOLname>> congratulations, here''s your helmet.' elseif KGOLmqw = 6: KGOLmqw = 7 '(NPS) - <<$KGOLname>> you need to kill wolves 25t toothless. Then I''ll give you mittens.' elseif KGOLmqw = 7 and KGOLqwvip >= 25: KGOLqwvip = 0 KGOLmqw = 8 KGOLset4 = 1 KGOLbrona += 2 $KGOLset4 = 'Gauntlets of rough skin' '(NPS) - <<$KGOLname>> congratulations, here''s your mittens.' elseif KGOLmqw = 4: KGOLmqw = 5 '(NPS) - <<$KGOLname>> you need to kill 20t sundews. Then I will give you boots.' elseif KGOLmqw = 5 and KGOLqwvip >= 20: KGOLqwvip = 0 KGOLmqw = 6 KGOLset3 = 1 KGOLbrona += 2 $KGOLset3 = 'Rugged Leather Boots' '(NPS) - <<$KGOLname>> congratulations, here are your boots.' elseif KGOLmqw = 2: KGOLmqw = 3 '(NPS) - <<$KGOLname>> you need to kill 10t rainbow beetles. Then I will give you armor.' elseif KGOLmqw = 3 and KGOLqwvip >= 10: KGOLqwvip = 0 KGOLmqw = 4 KGOLset2 = 1 KGOLbrona += 10 $KGOLset2 = 'Simple armor' '(NPS) - <<$KGOLname>> congratulations, here''s your armor.' elseif KGOLmqw = 0: KGOLmqw = 1 '(NPS) - <<$KGOLname>> you need to kill prey 5t colors. Then I''ll give you a weapon.' elseif KGOLmqw = 1 and KGOLqwvip >= 5: KGOLqwvip = 0 KGOLmqw = 2 KGOLset5 = 1 KGOLwpower = 10 if KGOLklass = 1 or KGOLklass = 6:$KGOLset5 = 'In the hands of a simple sword' if KGOLklass = 2:$KGOLset5 = 'In the hands of ordinary daggers' if KGOLklass = 3 or KGOLklass = 4:$KGOLset5 = 'In the hands of a simple staff' if KGOLklass = 5:$KGOLset5 = 'In the hands of a simple bow' '(NPS) - <<$KGOLname>> congratulations, here''s your gun.' end act 'Leave':gt $curloc end act 'Go to the store': cls minut += 1 if KGOLmoney >= 300: act 'Buy health potion 300': KGOLmoney -= 300 KGOLpotionH += 1 gt $curloc end end if KGOLmoney >= 300: act 'Buy a potion of mana 300': KGOLmoney -= 300 KGOLpotionM += 1 gt $curloc end end if KGOLmoney >= 1500 and KGOLhirka <= 0: act 'Buy hirka 1500': KGOLmoney -= 1500 KGOLhirka += 10000 gt $curloc end end act 'Leave':gt $curloc end if KGHP < KGHPMAX or KGManna < KGMannaMax: act 'Regenerate (1:00)': cls minut += 60 KGHP = KGHPMAX KGManna = KGMannaMax 'It was very sad. You''ve been sitting for an hour to regenerate your character. But free.' act 'Leave':gt $curloc end end if KGHP > 0: act 'Farm near the village': cls minut += 1 KGOLdist = rand(1, 10) 'On a variety of monsters roam the field' act 'Predatory flower': gs 'KGOLenemy', '0' gt 'KGOLfight' end act 'Iridescent beetle': gs 'KGOLenemy', '1' gt 'KGOLfight' end act 'Sundew': gs 'KGOLenemy', '2' gt 'KGOLfight' end act 'Toothless dog': gs 'KGOLenemy', '3' gt 'KGOLfight' end act 'Young cactus': gs 'KGOLenemy', '4' gt 'KGOLfight' end end end if KGOLlvl >= 5 and KGHP > 0: act 'Farm near the mill': cls minut += 1 KGOLdist = rand(1, 10) 'Mill about a variety of monsters roam' act 'Toad': gs 'KGOLenemy', '5' gt 'KGOLfight' end act 'Royal beetle': gs 'KGOLenemy', '6' gt 'KGOLfight' end act 'Spotted mantis': gs 'KGOLenemy', '7' gt 'KGOLfight' end act 'Plague Rat': gs 'KGOLenemy', '8' gt 'KGOLfight' end act 'Prickly cactus': gs 'KGOLenemy', '9' gt 'KGOLfight' end end act 'Boss Level 5': gs 'KGOLboss', '1' gt 'KGOLfight' end end --- KGOLgame ---------------------------------