glife/locations/055_atakM

# atakM

if $ARGS[0] = 'atakVmanna':
	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 'atakM', 'uronKritV'
		end

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

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

if $ARGS[0] = 'uronKritV':
	cla
	set damage = rand(1000, 2000)
	set damageM = rand(1000, 2000)

	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="red">caused damage your health <<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>> to give <<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
		'<b><font color="red">Protection of your harmed <<damSum>> units</font></b>'
		xgt 'fight', 'sta'
	end

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

	if unmaterial > 0:
		set unmaterial -= 1
		'<b><font color="green">Strike the enemy flew right through your body. 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
			'<b><font color="red">You harmed <<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>> to give <<damage>> points of damage</font></b>'
			end
		end

		xgt 'fight', 'sta'
	end
end

if $ARGS[0] = 'uronV':
	cla
	set damage = rand(500, 1000)
	set damageM = rand(500, 1000)

	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="red">caused damage your health <<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>> to give <<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
		'<b><font color="red">Protection of your harmed <<damSum>> units</font></b>'
		xgt 'fight', 'sta'
	end

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

	if unmaterial > 0:
		set unmaterial -= 1
		'<b><font color="green">Strike the enemy flew right through your body. 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
			'<b><font color="red">You harmed <<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>> to give <<damage>> points of damage</font></b>'
			end
		end

		xgt 'fight', 'sta'
	end
end

--- atakM ---------------------------------