glife/locations/KGOLexpa

# 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
			'<font color="green">CRETE <<KGHPnpow>></font>'
		else
			KGHPnpow = rand(KGOLpower / 10, KGOLpower / 4)
			KGHPntpow = KGHPnpow - KGOLbronaV

			if KGHPntpow <= 0:KGHPntpow = 1

			KGHPV -= KGHPnpow
			'<font color="blue">Contact with <<KGHPnpow>></font>'
		end
	else
		'<font color="red"><<$KGname>> dodged your attack</font>'
	end
}

$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
			'<font color="green">CRETE <<KGHPnpow>></font>'
		else
			KGHPnpow = rand(KGOLpower/10, KGOLpower / 4)
			KGHPntpow = KGHPnpow - KGOLbronaV

		if KGHPntpow <= 0:KGHPntpow = 1
			KGHPV -= KGHPnpow
			'<font color="blue">Contact with <<KGHPnpow>></font>'
		end
	else
		'<font color="red"><<$KGname>> dodged your attack</font>'
	end
}

$KGOLatkFB = {
	KGHPV -= KGOLpower
	'<font color="green">Faerbol inflicts damage <<KGOLpower>> U</font>'
}

$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
			'<font color="red">CRETE <<KGHPnpow>></font>'
		else
			KGHPnpow = rand(KGOLpowerV/10, KGOLpowerV / 4)
			KGHPntpow = KGHPnpow - KGOLbrona

			if KGHPntpow <= 0:KGHPntpow = 1

			KGHP -= KGHPnpow
			'<font color="brown">Contact with <<KGHPnpow>></font>'
		end
	else
		'<font color="green">You dodged the attack</font>'
	end
}

$KGOLrise = {
	cls
	'<center><b>increasing the screen layer</b></center>'
	'Power <<KGOLstren>>, speed and evasion <<KGOLspeed>>, endurance <<KGOLvital>>Intelligence <<KGOLintel>>'
	'Improve skills points available <<KGOLpoint>>'

	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
	end

	act 'Exit the screen improve':gt 'KGOLgame'
}

$KGOLrise2 = {
	cls
	'<center><b>Screen skills</b></center>'
	'Available skill points increase <<KGOLspellpoint/4>>'
	''
	if KGOLspellpoint >= 4:
		if KGOLklass = 1:
			!!warrior
			'Powerful punch Skill =<<KGOLspell>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Multiple blow Skill =<<KGOLspell2>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell2 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Increased armor Skill =<<KGOLspell3>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell3 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
		elseif KGOLklass = 2:
			!!thief
			'Sneaky blow Skill =<<KGOLspell4>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell4 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Poison Blade, Skill =<<KGOLspell5>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell5 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Invisibility Skill =<<KGOLspell6>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell6 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
		elseif KGOLklass = 3:
			!!magican
			'Faerbol, Skill =<<KGOLspell7>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell7 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Dropping, Skill =<<KGOLspell8>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell8 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Circle of fire, Skill =<<KGOLspell9>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell9 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
		elseif KGOLklass = 4:
			!!priest
			'Hit, Skill =<<KGOLspell10>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell10 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Treatment Skill =<<KGOLspell11>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell11 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Obkast, Skill =<<KGOLspell12>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell12 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
		elseif KGOLklass = 5:
			!!archer
			'Powerful shot, Skill =<<KGOLspell13>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell13 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Triple shot, Skill =<<KGOLspell14>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell14 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Regen mana Skill =<<KGOLspell15>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell15 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
		else
			!!barbarian
			'Thunderbolt, Skill =<<KGOLspell16>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell16 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Stan Skill =<<KGOLspell17>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell17 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
			'Recovery, Skill =<<KGOLspell18>>. <a href="exec:KGOLspellpoint -= 4 & KGOLspell18 += 1 & dynamic $KGOLrise2">Attach a skill point</a>'
		end
	end

	act 'Exit the screen skills':gt 'KGOLgame'
}


$KGOLatkKGOLspell2 = {
	:multiloop
	KGLOloop -= 1
	dynamic $KGOLatk

	if KGLOloop > 0:jump 'multiloop'
}

--- KGOLexpa ---------------------------------