# KGOLexpa <<<<<<< 426_KGOLexpa KGOLneedExpNextLvl=(KGOLlvl * 10)*KGOLlvl KGOLneedExp = KGOLneedExpNextLvl - KGOLexp if KGOLneedExp <= 0 and KGOLlvl > KGOLlvlr: KGOLlvlr = KGOLlvl & KGOLpoint += 10 & KGOLspellpoint += 1 & KGOLlvl += 1 & KGOLexp = 0 $KGOLatk = { KGOLzasV = RAND(KGOLspeedV/4, KGOLspeedV) KGOLataka = RAND(KGOLspeed/2, KGOLspeed * 2) if KGOLataka >= KGOLzasV: if KGOLataka >= KGOLzasV * 2: KGHPnpow = RAND(KGOLpower/2, KGOLpower) KGHPV -= KGHPnpow 'CRETE <>' else KGHPnpow = RAND(KGOLpower/10, KGOLpower/4) KGHPntpow = KGHPnpow - KGOLbronaV if KGHPntpow <= 0: KGHPntpow = 1 KGHPV -= KGHPnpow 'Contact with <>' end else '<<$KGname>> dodged your attack' ======= KGOLneedExpNextLvl=(KGOLlvl*10)*KGOLlvl KGOLneedExp=KGOLneedExpNextLvl-KGOLexp if KGOLneedExp<=0 and KGOLlvl>KGOLlvlr:KGOLlvlr=KGOLlvl&KGOLpoint+=10&KGOLspellpoint+=1&KGOLlvl+=1&KGOLexp=0 $KGOLatk={ KGOLzasV=RAND(KGOLspeedV/4,KGOLspeedV) KGOLataka=RAND(KGOLspeed/2,KGOLspeed*2) if KGOLataka>=KGOLzasV: if KGOLataka>=KGOLzasV*2: KGHPnpow=RAND(KGOLpower/2,KGOLpower) KGHPV-=KGHPnpow 'CRETE <>' else KGHPnpow=RAND(KGOLpower/10,KGOLpower/4) KGHPntpow=KGHPnpow-KGOLbronaV if KGHPntpow<=0:KGHPntpow=1 KGHPV-=KGHPnpow 'hit <>' end else '<<$KGname>> dodged your attack' >>>>>>> 426_KGOLexpa end } <<<<<<< 426_KGOLexpa $KGOLatkPoison = { KGOLzasV = RAND(KGOLspeedV/4, KGOLspeedV) KGOLataka = RAND(KGOLspeed/2, KGOLspeed * 2) if KGOLataka >= KGOLzasV: poison += KGOLspell4 + 1 if KGOLataka >= KGOLzasV * 2: KGHPnpow = RAND(KGOLpower/2, KGOLpower) KGHPV -= KGHPnpow 'CRETE <>' else KGHPnpow = RAND(KGOLpower/10, KGOLpower/4) KGHPntpow = KGHPnpow - KGOLbronaV if KGHPntpow <= 0: KGHPntpow = 1 KGHPV -= KGHPnpow 'Contact with <>' end else '<<$KGname>> dodged your attack' ======= $KGOLatkPoison={ KGOLzasV=RAND(KGOLspeedV/4,KGOLspeedV) KGOLataka=RAND(KGOLspeed/2,KGOLspeed*2) if KGOLataka>=KGOLzasV: poison+=KGOLspell4+1 if KGOLataka>=KGOLzasV*2: KGHPnpow=RAND(KGOLpower/2,KGOLpower) KGHPV-=KGHPnpow 'CRETE <>' else KGHPnpow=RAND(KGOLpower/10,KGOLpower/4) KGHPntpow=KGHPnpow-KGOLbronaV if KGHPntpow<=0:KGHPntpow=1 KGHPV-=KGHPnpow 'hit <>' end else '<<$KGname>> dodged your attack' >>>>>>> 426_KGOLexpa end } <<<<<<< 426_KGOLexpa $KGOLatkFB = { KGHPV -= KGOLpower 'Faerbol inflicts damage <> U' } $KGOLatkV = { KGOLzas = RAND(KGOLspeed/4, KGOLspeed) KGOLatakaV = RAND(KGOLspeedV/2, KGOLspeedV * 2) if KGOLatakaV >= KGOLzas: if KGOLatakaV >= KGOLzas * 2: KGHPnpow = RAND(KGOLpowerV/2, KGOLpowerV) KGHP -= KGHPnpow 'CRETE <>' else KGHPnpow = RAND(KGOLpowerV/10, KGOLpowerV/4) KGHPntpow = KGHPnpow - KGOLbrona if KGHPntpow <= 0: KGHPntpow = 1 KGHP -= KGHPnpow 'Contact with <>' end else 'You dodged the attack' ======= $KGOLatkFB={ KGHPV-=KGOLpower 'Faerbol deals damage <> Power' } $KGOLatkV={ KGOLzas=RAND(KGOLspeed/4,KGOLspeed) KGOLatakaV=RAND(KGOLspeedV/2,KGOLspeedV*2) if KGOLatakaV>=KGOLzas: if KGOLatakaV>=KGOLzas*2: KGHPnpow=RAND(KGOLpowerV/2,KGOLpowerV) KGHP-=KGHPnpow 'CRETE <>' else KGHPnpow=RAND(KGOLpowerV/10,KGOLpowerV/4) KGHPntpow=KGHPnpow-KGOLbrona if KGHPntpow<=0:KGHPntpow=1 KGHP-=KGHPnpow 'hit <>' end else 'You dodged the attack' >>>>>>> 426_KGOLexpa end } <<<<<<< 426_KGOLexpa $KGOLrise = { cls '
increasing the screen layer
' 'Power <>, speed and evasion <>, endurance <>Intelligence <>' 'Improve skills points available <>' if KGOLpoint > 0: act 'Force': KGOLstren += 1 KGOLpoint -= 1 dynamic $KGOLrise end act 'Speed ​​/Dodge': KGOLspeed += 1 KGOLpoint -= 1 dynamic $KGOLrise end act 'Endurance': KGOLvital += 1 KGOLpoint -= 1 dynamic $KGOLrise end act 'Intelligence': KGOLintel += 1 KGOLpoint -= 1 dynamic $KGOLrise end ======= $KGOLrise={ cls '
Screen improve
' 'power <>,speed and dodge <>,endurance <>,intelligence <>' 'Improve the skills of the available points <>' if KGOLpoint>0: act 'power': KGOLstren+=1 KGOLpoint-=1 dynamic $KGOLrise end act 'speed/dodge': KGOLspeed+=1 KGOLpoint-=1 dynamic $KGOLrise end act 'endurance': KGOLvital+=1 KGOLpoint-=1 dynamic $KGOLrise end act 'intelligence': KGOLintel+=1 KGOLpoint-=1 dynamic $KGOLrise end >>>>>>> 426_KGOLexpa end <<<<<<< 426_KGOLexpa act 'Exit the screen improve': gt 'KGOLgame' } $KGOLrise2 = { cls '
Screen skills
' 'Available skill points increase <>' '' if KGOLspellpoint >= 4: if KGOLklass = 1: !воин 'Powerful punch Skill =<>. Attach a skill point' 'Multiple blow Skill =<>. Attach a skill point' 'Increased armor Skill =<>. Attach a skill point' elseif KGOLklass = 2: !вор 'Sneaky blow Skill =<>. Attach a skill point' 'Poison Blade, Skill =<>. Attach a skill point' 'Invisibility Skill =<>. Attach a skill point' elseif KGOLklass = 3: !маг 'Faerbol, Skill =<>. Attach a skill point' 'Dropping, Skill =<>. Attach a skill point' 'Circle of fire, Skill =<>. Attach a skill point' elseif KGOLklass = 4: !жрец 'Hit, Skill =<>. Attach a skill point' 'Treatment Skill =<>. Attach a skill point' 'Obkast, Skill =<>. Attach a skill point' elseif KGOLklass = 5: !лучник 'Powerful shot, Skill =<>. Attach a skill point' 'Triple shot, Skill =<>. Attach a skill point' 'Regen mana Skill =<>. Attach a skill point' else !варвар 'Thunderbolt, Skill =<>. Attach a skill point' 'Stan Skill =<>. Attach a skill point' 'Recovery, Skill =<>. Attach a skill point' ======= act 'Exit the screen improve':gt'KGOLgame' } $KGOLrise2={ cls '
screen skills
' 'Increase skill points available <>' '' if KGOLspellpoint>=4: if KGOLklass=1: !warrior 'powerful blow, skill=<>. To invest in the skill point' 'multiple punch, skill=<>. To invest in the skill point' 'increase armor, skill=<>. To invest in the skill point' elseif KGOLklass=2: !thief 'sneaky punch, skill=<>. To invest in the skill point' 'Poison Blade, skill=<>. To invest in the skill point' 'invisibility, skill=<>. To invest in the skill point' elseif KGOLklass=3: !magician 'Faerbol, skill =<>. To invest in the skill point' 'Dropping, skill=<>. To invest in the skill point' 'circle of fire, skill=<>. To invest in the skill point' elseif KGOLklass=4: !priest 'blow magic, skill=<>. To invest in the skill point' 'treatment, skill=<>. To invest in the skill point' 'Obkast, skill=<>. To invest in the skill point' elseif KGOLklass=5: !archer 'powerful shot, skill=<>. To invest in the skill point' 'triple shot, skill=<>. To invest in the skill point' 'regen mana, skill=<>. To invest in the skill point' else !barbarian 'thunderous, skill=<>. To invest in the skill point' 'camp, skill=<>. To invest in the skill point' 'recovery, skill=<>. To invest in the skill point' >>>>>>> 426_KGOLexpa end end <<<<<<< 426_KGOLexpa act 'Exit the screen skills': gt 'KGOLgame' ======= act 'Exit the screen skills':gt'KGOLgame' >>>>>>> 426_KGOLexpa } <<<<<<< 426_KGOLexpa $KGOLatkKGOLspell2 = { :multiloop KGLOloop -= 1 dynamic $KGOLatk if KGLOloop > 0: jump 'multiloop' } ======= $KGOLatkKGOLspell2={ :multiloop KGLOloop-=1 dynamic $KGOLatk if KGLOloop>0:jump'multiloop' } >>>>>>> 426_KGOLexpa --- KGOLexpa ---------------------------------