glife/locations/atakA.qsrc

# atakA

if $ARGS[0] = 'atak':
	cla
	!payment hit dodge
	poSp = speed * 20 / 100
	uvAg = agilV * 20 / 100
	poBox = pcs_react * 20 / 100
	uvBox = reactV * 20 / 100
	popad = RAND(pcs_react - poBox,pcs_react + poBox) + RAND(speed - poSp,speed + poSp) + bonusSh
	uvorot = RAND(reactV - uvBox,reactV + uvBox) + RAND(agilV - uvAg,agilV + uvAg)
	uvorKoef = uvorot * 50 / 100
	popKoef = popad * 50 / 100

	if popad > uvorot:
		if popad >= uvorot + uvorKoef:
			!Crete, very direct hit
			'<b><font color = green>Critical hits</font></b>'

			xgt'atakA','uronKrit'
		elseif popad < uvorot+uvorKoef:
			!Normal hit
			!He attacks the enemy
			'<b><font color = green>EYE</font></b>'

			xgt'atakA','uron'
		end
	elseif popad <= uvorot:
		'<b><font color = red>LOST</font></b>'

		xgt'fight','sta'
	end
end

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

	if damTipM > 0:
		damKoefM = damTipM*20/100
		damageM = RAND(damTipM+damKoefM,damTipM+damKoefM*2)
	end

	xgt'atakA','damage'
end

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

	if damTipM > 0:
		damKoefM = damTipM*20/100
		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:damageV = damageV - dospehDefV & dospehEn = dospehEn - 1
		if damage < 0:damage = 0
		healthV = healthV - damage

		if damTipM > 0:
			mannaV = mannaV - damageM
			pcs_manna = pcs_manna + damageM

			'<b><font color = green>You swallowed <<damageM>> manna enemy units.</font></b>'
		end

		!pcs_manna = pcs_manna - damageM

		if eleSh > 0:
			stunV = RAND(eleSh,eleSh*3)

			'<b><font color = green><<$boydesc>> paralyzed <<stunV>> Rounds</font></b>'
		end

		'<b><font color = green>You have caused damage <<damage>> units</font></b>'
		!'<b><font color = red>Your manna harmed <<damageM>> units</font></b>'

		if zerkaloV > 0:
			zerkaloV = zerkaloV - 1
			pcs_health = pcs_health - damage

			'<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
		end

		xgt'fight','sta'
	end

	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
		!damSum = damage + damageM
		!defence = defence - damSum
		defenceV = defenceV - damage

		'<b><font color = green>You have caused damage <<damage>> Protection of enemy units</font></b>'

		xgt'fight','sta'
	end

	if klonV > 0 and unmaterialV <= 0:
		klonV = klonV - 1

		'<b><font color = green>Destroyed enemy clone</font></b>'

		xgt'fight','sta'
	end

	if unmaterialV > 0:
		unmaterialV = unmaterialV - 1

		'<b><font color = red>Your blow has passed through the body of the enemy. Opponents do not materials</font></b>'

		xgt'fight','sta'
	end

	if barierV > 0:
		!imeniteta barrier for damage
		if barierV >= damage:
			'<b><font color = red><<$boydesc>> easily weathered blow your</font></b>'

			xgt'fight','sta'
		elseif barierV < damage:
			!pcs_manna = pcs_manna - damageM
			!pcs_health = pcs_health - damage
			damage = damage - barierV
			healthV = healthV - damage

			if damTipM > 0:
				mannaV = mannaV - damageM
				pcs_manna = pcs_manna + damageM
				'<b><font color = green>You swallowed <<damageM>> manna enemy units.</font></b>'
			end

			if eleSh > 0:
				stunV = RAND(eleSh,eleSh*3)
				'<b><font color = green><<$boydesc>> paralyzed <<stunV>> Rounds</font></b>'
			end

			'<b><font color = green>You have caused damage <<damage>> units</font></b>'
			!'<b><font color = red>Your manna harmed <<damageM>> units</font></b>'

			if zerkaloV > 0:
				zerkaloV = zerkaloV - 1
				pcs_health = pcs_health - damage
				'<b><font color = red>Opponent reflected damage and you get <<damage>> points of damage</font></b>'
			end
		end

		xgt'fight','sta'
	end
end

if $ARGS[0] = 'atakW':
	cla
	!payment hit dodge
	poSp = speed * 20 / 100
	uvAg = agilV * 20 / 100
	poBox = pcs_react * 20 / 100
	uvBox = reactV * 20 / 100
	popad = RAND(pcs_react - poBox,pcs_react + poBox) + RAND(speed - poSp,speed + poSp)
	uvorot = RAND(reactV - uvBox,reactV + uvBox) + RAND(agilV - uvAg,agilV + uvAg)
	uvorKoef = uvorot * 50 / 100
	popKoef = popad * 50 / 100

	if popad > uvorot:
		if popad >= uvorot+uvorKoef:
			!Crete, very direct hit
			'<b><font color = red>Critical hits</font></b>'

			xgt'atakA','uronKritW'
		elseif popad < uvorot+uvorKoef:
			!Normal hit
			'<b><font color = red>EYE</font></b>'

			xgt'atakA','uronW'
		end
	elseif popad <= uvorot:
		'<b><font color = green>LOST</font></b>'

		xgt'fight','sta'
	end
end

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

if $ARGS[0] = 'uronW':
	cla
	damKoef = damTip*20/100
	damage = RAND(damTip-damKoef,damTip+damKoef)
	damKoefM = damTipM*20/100
	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:damageV = damageV - dospehDefV & dospehEn = dospehEn - 1
		if damage < 0:damage = 0
		healthV = healthV - damage
		mannaV = mannaV - damageM

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

		if zerkaloV > 0:
			zerkaloV = zerkaloV - 1
			pcs_health = pcs_health - damage

			'<b><font color = red><<$boydesc>> reflected the damage and you get <<damage>> points of damage</font></b>'
		end

		xgt'fight','sta'
	end

	if defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
		damSum = damage + damageM
		defenceV = defenceV - damSum
		!defenceV = defenceV - damage

		'<b><font color = green>You have caused damage <<damSum>> Protection of enemy units</font></b>'

		xgt'fight','sta'
	end

	if klonV > 0 and unmaterialV <= 0:
		klonV = klonV - 1

		'<b><font color = green>Destroyed enemy clone</font></b>'

		xgt'fight','sta'
	end

	if unmaterialV > 0:
		unmaterialV = unmaterialV - 1

		'<b><font color = red>Your blow has passed through the body of the enemy. Opponents do not materials</font></b>'

		xgt'fight','sta'
	end

	if barierV > 0:
		!imeniteta barrier for damage
		if barierV >= damage:
			'<b><font color = red><<$boydesc>> easily weathered blow your</font></b>'

			xgt'fight','sta'
		elseif barierV < damage:
			mannaV = mannaV - damageM
			healthV = healthV - damage
			!healthV = 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:
				zerkaloV = zerkaloV - 1
				pcs_health = pcs_health - damage

				'<b><font color = red>Opponent reflected damage and you get <<damage>> points of damage</font></b>'
			end
		end

		xgt'fight','sta'
	end
end

--- atakA ---------------------------------