# 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 ---------------------------------