glife/locations/053_atakA

# atakA
if $ARGS[0] = 'atak':
cla
!расчет попадания уворота
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:
		!крит, очень точное попадание
		'<B><font color = green>critical hits</font></B>'
		xgt 'atakA','uronKrit'
		end

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

	if popad <= uvorot:
	'<B><font color = red>is washed</font></B>'
	xgt 'fight','sta'
	end
end


if $ARGS[0] = 'uronKrit':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip + damKoef, damTip + damKoef * 2)
	if damTipM > 0:
	set damKoefM = damTipM * 20/100
	set damageM = RAND(damTipM + damKoefM, damTipM + damKoefM * 2)
	end
xgt 'atakA','damage'
end

if $ARGS[0] = 'uron':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip - damKoef, damTip + damKoef)
	if damTipM > 0:
	set damKoefM = damTipM * 20/100
	set damageM = RAND(damTipM - damKoefM, damTipM + damKoefM)
	end
xgt 'atakA','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
		if damTipM > 0:
		set mannaV -= damageM
		set manna += damageM
		'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
		end
	!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 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 defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	!set damSum = damage + damageM
	!Set defence -= damSum
	Set defenceV -= damage
	'<B><font color = green>You have caused damage <<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>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
	xgt 'fight','sta'
	end

	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barierV < damage:
		!Set manna -= damageM
		!Set health -= damage
		set damage -= barierV
		Set healthV -= damage
			if damTipM > 0:
			set mannaV -= damageM
			set manna += damageM
			'<B><font color = green>you have ingested <<damageM>> units of manna from the enemy.</font></B>'
			end
			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 health -= damage
			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end

if $ARGS[0] = 'atakW':
cla
!расчет попадания уворота
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)
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:
		!крит, очень точное попадание
		'<B><font color = red>critical hits</font></B>'
		xgt 'atakA','uronKritW'
		end

		if popad < uvorot+uvorKoef:
		!нормальное попадание
		'<B><font color = red>Contact</font></B>'
		xgt 'atakA','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 = damTip * 20/100
set damage = RAND(damTip + damKoef, damTip + damKoef * 2)
set damKoefM = damTipM * 20/100
set damageM = RAND(damTipM + damKoefM, damTipM + damKoefM * 2)
xgt 'atakA','damageW'
end

if $ARGS[0] = 'uronW':
cla
set damKoef = damTip * 20/100
set damage = RAND(damTip - damKoef, damTip + damKoef)
set damKoefM = damTipM * 20/100
set damageM = RAND(damTipM - damKoefM, damTipM + damKoefM)
xgt 'atakA','damageW'
end

if $ARGS[0] = 'damageW':
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 mannaV -= 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 zerkaloV > 0:
		set zerkaloV -= 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 defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
	set damSum = damage + damageM
	Set defenceV -= 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 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>Your shot went through the opponent´s body. Opponents do not materials</font></B>'
	xgt 'fight','sta'
	end

	if barierV > 0:
	!барьер именитета для урона
		if barierV >= damage:
		'<B><font color = red><<$nameV>> easily withstood your butt</font></B>'
		xgt 'fight','sta'
		end
		if barierV < damage:
		Set mannaV -= damageM
		Set healthV -= 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 zerkaloV > 0:
			set zerkaloV -= 1
			set health -= damage
			'<B><font color = red>Enemy reflected damage and you got <<damage>> points of damage</font></B>'
			end
		end
	xgt 'fight','sta'
	end

end
--- atakA ---------------------------------