glife/locations/057_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 ---------------------------------