glife/locations/atakB

# atakB
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>'

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

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

if $ARGS[0] = 'uronKrit':
	cla
	damDef = defence/100
	damKoef = damDef*20/100
	damage = RAND(damDef+damKoef,damDef+damKoef*2)
	gs'atakB','damage'
end

if $ARGS[0] = 'uron':
	cla
	damDef = defence/100
	damKoef = damDef*20/100
	damage = RAND(damDef-damKoef,damDef+damKoef)
	gs'atakB','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
		!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
			defence = defence - damage

			'<b><font color = red><<$boydesc>> It reflected the damage and your defense received <<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>Your defense 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>Blow your protection 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 protection</font></b>'

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

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

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

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

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

				'<b><font color = red>Opponent reflected damage and your defense received <<damage>> points of damage</font></b>'
			end
		end

		!xgt'fight','sta'
	end
end

--- atakB ---------------------------------