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