glife/locations/atakB

# atakB
if $ARGS[0] = 'atak':
	cla
	!!payment hit dodge
	set poSp = speed * 20 / 100
	set uvAg = agilV * 20 / 100
	set poBox = react * 20 / 100
	set uvBox = reactV * 20 / 100
	set popad = rand(react - poBox, react + poBox) + rand(speed - poSp, speed + poSp) + bonusSh
	set uvorot = rand(reactV - uvBox, reactV + uvBox) + rand(agilV - uvAg, agilV + uvAg)
	set uvorKoef = uvorot * 50 / 100
	set popKoef = popad * 50 / 100

	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
			!!Crete, very direct hit
			'<b><font color="green">critical hits</font></b>'
			gs 'atakB', 'uronKrit'
		end

		if popad < uvorot + uvorKoef:
			!!normal hit
			!!attack the enemy
			'<b><font color="green">Contact</font></b>'
			gs 'atakB', 'uron'
		end
	end

	if popad <= uvorot:'<b><font color="red">is washed</font></b>'
end

if $ARGS[0] = 'uronKrit':
	cla
	set damDef = defence/100
	set damKoef = damDef * 20/100
	set damage = rand(damDef + damKoef, damDef + damKoef * 2)
	gs 'atakB', 'damage'
end

if $ARGS[0] = 'uron':
	cla
	set damDef = defence / 100
	set damKoef = damDef * 20 / 100
	set damage = rand(damDef - damKoef, damDef + damKoef)
	gs 'atakB', 'damage'
end

if $ARGS[0] = 'damage':
	cla

	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
		if dospehV > 0:set damageV -= dospehDefV & set dospehEn -= 1
		if damage < 0:set damage = 0

		set healthV -= damage
		!!set manna -= damageM

		if eleSh > 0:
			set stunV = rand(eleSh, eleSh * 3)
			'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
		end

		'<b><font color="green">You have caused damage <<damage>> units</font></b>'
		!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'

		if zerkaloV > 0:
			set zerkaloV -= 1
			set defence -= damage
			'<b><font color="red"><<$nameV>> reflected the damage and your defense has received <<damage>> points of damage</font></b>'
		end

		!!xgt 'fight', 'sta'
	end

	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
		!!set damSum = damage + damageM
		!!set defence -= damSum
		set defenceV -= damage
		'<b><font color="green">caused damage to your defense <<damage>> Protection of the enemy units</font></b>'
		!!xgt 'fight', 'sta'
	end

	if klonV > 0 and unmaterialV <= 0:
		set klonV -= 1
		'<b><font color="green">Destroyed enemy clone</font></b>'
		!!xgt 'fight', 'sta'
	end

	if unmaterialV > 0:
		set unmaterialV -= 1
		'<b><font color="red">Blow your protection passed through the body of the opponent. Opponents do not materials</font></b>'
		!!xgt 'fight', 'sta'
	end

	if barierV > 0:
		!!imeniteta barrier for damage
		if barierV >= damage:
			'<b><font color="red"><<$nameV>> easily withstood kick your protection</font></b>'
			!!xgt 'fight', 'sta'
		end

		if barierV < damage:
			!!set manna -= damageM
			!!set health -= damage
			set healthV -= damage

			if eleSh > 0:
				set stunV = rand(eleSh, eleSh * 3)
				'<b><font color="green"><<$nameV>> paralyzed <<stunV>> rounds</font></b>'
			end

			'<b><font color="green">caused damage to your defense <<damage>> units</font></b>'
			!!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'

			if zerkaloV > 0:
				set zerkaloV -= 1
				set defence -= damage
				'<b><font color="red">Enemy reflected damage and your defense received <<damage>> points of damage</font></b>'
			end
		end

		!!xgt 'fight', 'sta'
	end
end

--- atakB ---------------------------------