glife/locations/052_atakA1

# atakA1
if $ARGS[0] = 'atak':
	cla
	!расчет попадания уворота
	set poSp = speedV * 20/100
	set uvAg = agil * 20/100
	set poBox = reactV * 20/100
	set uvBox = react * 20/100
	set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp) + bonusShV
	set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
	set uvorKoef = uvorot * 50/100
	set popKoef = popad * 50/100

	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
			!крит, очень точное попадание
			'<b><font color="red">critical hits</font></b>'
			xgt 'atakA1', 'uronKrit'
		end

		if popad < uvorot + uvorKoef:
			!нормальное попадание
			!атаковал противник
			'<b><font color="red">Contact</font></b>'
			xgt 'atakA1', 'uron'
		end
	end

	if popad <= uvorot:
		'<b><font color="green">is washed</font></b>'
		xgt 'fight', 'sta'
	end
end

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

	if damTipMV > 0:
		set damKoefM = damTipMV * 20/100
		set damageM = rand(damTipMV + damKoefM, damTipMV + damKoefM * 2)
	end

	xgt 'atakA1', 'damage'
end

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

	if damTipMV > 0:
		set damKoefM = damTipMV * 20/100
		set damageM = rand(damTipMV - damKoefM, damTipMV + damKoefM)
	end

	xgt 'atakA1', 'damage'
end

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

	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
		if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
		if damage < 0:set damage = 0

		set health -= damage

		if hidanAtk = 1:
			set hidanAtk = 0
			set zerkaloV += 50
			set bloodV += 50
			'<b><font color="red"><<$nameV>> drink your blood.</font></b>'
		end

		if damTipMV > 0:
			set manna -= damageM
			set manna += damageM
			'<b><font color="red"><<$nameV>> absorbed <<damageM>> units of manna you.</font></b>'
		end

		if poisonAV = 1:
			set poisonV = 50
			'<b><font color="red"><<$nameV>> have poisoned the needles hit.</font></b>'
		end

		!set manna -= damageM
		if eleShV > 0:
			set stun = rand(eleShV, eleShV * 3)
			'<b><font color="red">You are paralyzed <<stunV>> rounds</font></b>'
		end

		'<b><font color="red"><<$nameV>> damage caused you <<damage>> units</font></b>'
		!'<b><font color="red">caused damage your manna <<damageM>> units</font></b>'

		if zerkalo > 0:
			set zerkalo -= 1
			set healthV -= damage
			'<b><font color="green">You are repelled damage and <<$nameV>> received <<damage>> points of damage</font></b>'
		end

		xgt 'fight', 'sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
		!set damSum = damage + damageM
		!set defence -= damSum
		set defence -= damage
		'<b><font color="red">Protection of your harmed <<damage>> units</font></b>'
		xgt 'fight', 'sta'
	end

	if klon > 0 and unmaterial <= 0:
		set klon -= 1
		'<b><font color="red">destroy your clone</font></b>'
		xgt 'fight', 'sta'
	end

	if unmaterial > 0:
		set unmaterial -= 1
		'<b><font color="green">Strike the enemy passed through you. YOU is not material</font></b>'
		xgt 'fight', 'sta'
	end

	if barier > 0:
		!барьер именитета для урона
		if barier >= damage:
			'<b><font color="green">You can easily withstood the impact of the opponent</font></b>'
			xgt 'fight', 'sta'
		end

		if barier < damage:
			!set manna -= damageM
			!set health -= damage
			set health -= damage

			if damTipM > 0:
				set manna -= damageM
				set mannaV += damageM
				'<b><font color="green">you have ingested <<damageM>> units of manna from the enemy.</font></b>'
			end

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

			if poisonAV = 1:
				set poisonV = 50
				'<b><font color="red"><<$nameV>> have poisoned the needles hit.</font></b>'
			end

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

			if zerkalo > 0:
				set zerkalo -= 1
				set healthV -= damage
				'<b><font color="green">You are repelled enemy damage and received <<damage>> points of damage</font></b>'
			end
		end

		xgt 'fight', 'sta'
	end
end

if $ARGS[0] = 'atakW':
	cla
	!расчет попадания уворота
	set poSp = speedV * 20 / 100
	set uvAg = agil * 20 / 100
	set poBox = reactV * 20 / 100
	set uvBox = react * 20 / 100
	set popad = rand(reactV - poBox, reactV + poBox) + rand(speedV - poSp, speedV + poSp)
	set uvorot = rand(react - uvBox, react + uvBox) + rand(agil - uvAg, agil + uvAg)
	set uvorKoef = uvorot * 50 / 100
	set popKoef = popad * 50 / 100

	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
			!крит, очень точное попадание
			'<b><font color="red">critical hits</font></b>'
			xgt 'atakA1', 'uronKritW'
		end

		if popad < uvorot + uvorKoef:
			!нормальное попадание
			'<b><font color="red">Contact</font></b>'
			xgt 'atakA1', 'uronW'
		end
	end

	if popad <= uvorot:
		'<b><font color="green">is washed</font></b>'
		xgt 'fight', 'sta'
	end
end

if $ARGS[0] = 'uronKritW':
	cla
	set damKoef = damTipV * 20/100
	set damage = rand(damTipV + damKoef, damTipV + damKoef * 2)
	set damKoefM = damTipMV * 20/100
	set damageM = rand(damTipMV + damKoefM, damTipMV + damKoefM * 2)
	xgt 'atakA1', 'damageW'
end

if $ARGS[0] = 'uronW':
	cla
	set damKoef = damTipV * 20/100
	set damage = rand(damTipV - damKoef, damTipV + damKoef)
	set damKoefM = damTipMV * 20/100
	set damageM = rand(damTipMV - damKoefM, damTipMV + damKoefM)
	xgt 'atakA1', 'damageW'
end

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

	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
		if dospeh > 0:set damage -= dospehDef & set dospehEn -= 1
		if damage < 0:set damage = 0

		set health -= damage
		set manna -= damageM
		'<b><font color="green">You are harmed <<damage>> units</font></b>'
		'<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'

		if zerkalo > 0:
			set zerkalo -= 1
			set health -= damage
			'<b><font color="red"><<$nameV>> reflected the damage and you got <<damage>> points of damage</font></b>'
		end

		xgt 'fight', 'sta'
	end

	if defence > 0 and klon <= 0 and unmaterial <= 0:
		set damSum = damage + damageM
		set defence -= damSum
		!set defenceV -= damage
		'<b><font color="green">You have caused damage <<damSum>> Protection of the enemy units</font></b>'
		xgt 'fight', 'sta'
	end

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

	if unmaterial > 0:
		set unmaterial -= 1
		'<b><font color="red">Your shot went through the opponent´s body. Opponents do not materials</font></b>'
		xgt 'fight', 'sta'
	end

	if barier > 0:
		!барьер именитета для урона
		if barier >= damage:
			'<b><font color="red"><<$nameV>> easily withstood your butt</font></b>'
			xgt 'fight', 'sta'
		end

		if barier < damage:
			set manna -= damageM
			set health -= damage
			!set healthV -= damage
			'<b><font color="green">You have caused damage <<damage>> units</font></b>'
			'<b><font color="green">You have caused damage to the enemy manna <<damageM>> units</font></b>'

			if zerkalo > 0:
				set zerkalo -= 1
				set healthV -= damage
				'<b><font color="red">Enemy reflected damage and you got <<damage>> points of damage</font></b>'
			end
		end

		xgt 'fight', 'sta'
	end
end

--- atakA1 ---------------------------------