glife/locations/atak.qsrc

# atak

menu_off = 1

if $ARGS[0] = 'player':
	cla
	tip = 0
	strenA = pcs_stren
	speedA = speed
	agilA = pcs_agil
	vitalA = pcs_vital
	!Skills
	boxingA = boxing
	!Parameters
	healthA = pcs_health
	BonusA = BonusAtak
	strenD = strenV
	speedD = speedV
	agilD = agilV
	vitalD = vitalV
	!Skills
	boxingD = boxingV
	!Parameters
	healthD = healthV
	initBonusA = initBonus
	initBonus = 0
	initBonusV = 0
	BonusD = BonusDefV

	if stunV <= 0:
		xgt'atak','popad'
	elseif stunV > 0:
		'<b><font color = green><<$boydesc>> Can not move a critical hit</font></b>'

		xgt'atak','uronKrit'
	end
end

if $ARGS[0] = 'enemy':
	cla
	tip = 1
	strenA = strenV
	speedA = speedV
	agilA = agilV
	vitalA = vitalV
	!Skills
	boxingA = boxingV
	!Parameters
	healthA = healthV
	BonusA = BonusAtakV
	strenD = pcs_stren
	speedD = speed
	agilD = pcs_agil
	vitalD = pcs_vital
	!Skills
	boxingD = boxing
	!Parameters
	healthD = pcs_health
	BonusD = BonusDef
	initBonusA = initBonusV
	initBonus = 0
	initBonusV = 0

	if stun <= 0:
		xgt'atak','popad'
	elseif stun > 0:
		'<b><font color = red>YOU can not move a critical hit</font></b>'

		xgt'atak','uronKritV'
	end
end

if $ARGS[0] = 'popad':
	cla
	!payment hit dodge
	poSp = speedA*20/100
	uvAg = agilD*20/100
	poBox = boxingA*20/100
	uvBox = boxingD*20/100
	popad = RAND(boxingA-poBox,boxingA+poBox) + RAND(speedA-poSp,speedA+poSp) + BonusA + initBonusA
	uvorot = RAND(boxingD-uvBox,boxingD+uvBox) + RAND(agilD-uvAg,agilD+uvAg) + BonusD
	uvorKoef = uvorot*50/100
	popKoef = popad*50/100

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

				xgt'atak','uronKrit'
			elseif tip = 1:
				!He attacks the enemy
				'<b><font color = red>Critical hits</font></b>'

				xgt'atak','uronKritV'
			end
		elseif popad < uvorot+uvorKoef:
			!Normal hit
			if tip = 0:
				!attack players
				'<b><font color = green>EYE</font></b>'

				xgt'atak','uron'
			elseif tip = 1:
				!He attacks the enemy
				'<b><font color = red>EYE</font></b>'

				xgt'atak','uronV'
			end
		end
	elseif popad <= uvorot:
		if popad+popKoef <= uvorot:
			!critical blunder
			if tip = 0:
				!attack players
				'<b><font color = red>CRITICAL SLIP</font></b>'

				xgt'atak','uronKritV'
			elseif tip = 1:
				!He attacks the enemy
				'<b><font color = green>CRITICAL SLIP</font></b>'

				xgt'atak','uronKrit'
			end
		elseif popad+popKoef > uvorot:
			!bloomer
			if tip = 0:
				!attack players
				'<b><font color = red>LOST</font></b>'

				xgt'fight','sta'
			elseif tip = 1:
				!He attacks the enemy
				'<b><font color = green>LOST</font></b>'

				xgt'fight','sta'
			end
		end
	end
end

if $ARGS[0] = 'uronKrit':
	cla
	damage = RAND(pcs_stren,pcs_stren*2) + weapbonus + magweapbonus

	if knife > 0:
		knibon = knife+1
		knife = 0
		damage = damage*knibon
		knibon = 0

		'<b><font color = green>The enemy flies your throwing knife</font></b>'
	end

	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
		if dospehV > 0:damage = damage - dospehDefV & dospehEnV = dospehEnV - 1
		if damage < 0:damage = 0
		healthV = healthV - damage
		if weaponTipe = 1:bloodV = bloodV + RAND(weapon/4,weapon/2)
		if weaponTipe = 2:stun = stun + RAND(1,2)
		if weaponTipe = 3:bloodV = bloodV + RAND(weapon/4,weapon/2)

		if stunner > 0:
			stunner = 0
			stunV = RAND(3,6)

			'<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
		end

		'<b><font color = green>Accept damage <<damage>> 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'
	elseif defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
		defenceV = defenceV - damage

		'<b><font color = green>Protection of the enemy suffered damage <<damage>> units</font></b>'

		xgt'fight','sta'
	elseif klonV > 0 and unmaterialV <= 0:
		klonV = klonV - 1

		'<b><font color = green>Destroyed enemy clone, he still had <<KlonV>> Clones</font></b>'

		xgt'fight','sta'
	elseif unmaterialV > 0:
		unmaterialV = unmaterialV - 1

		'<b><font color = red>Your kick flew right through the opponent''s body. <<$boydesc>> Not material</font></b>'

		xgt'fight','sta'
	elseif 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:
			healthV = healthV - damage
			if weaponTipe = 1:bloodV = bloodV + RAND(weapon/4,weapon/2)
			if weaponTipe = 2:stun = stun + RAND(1,2)
			if weaponTipe = 3:bloodV = bloodV + RAND(weapon/4,weapon/2)

			if stunner > 0:
				stunV = RAND(3,6)

				'<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
			end

			'<b><font color = green>Accept damage <<damage>> 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
		end
		xgt'fight','sta'
	end
end

if $ARGS[0] = 'uron':
	cla
	stKo = pcs_stren*20/100
	damage = RAND(pcs_stren-stKo,pcs_stren+stKo) + weapbonus + magweapbonus

	if knife > 0:
		knibon = knife+1
		knife = 0
		damage = damage*knibon
		knibon = 0

		'<b><font color = green>The enemy flies your throwing knife</font></b>'
	end

	if defenceV <= 0 and klonV <= 0 and unmaterialV <= 0 and barierV <= 0:
		if dospehV > 0:damage = damage - dospehDefV & dospehEnV = dospehEnV - 1
		if damage < 0:damage = 0
		healthV = healthV - damage

		if stunner > 0:
			stunner = 0
			stunV = RAND(1,3)

			'<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
		end

		'<b><font color = green>Accept damage <<damage>> 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'
	elseif defenceV > 0 and klonV <= 0 and unmaterialV <= 0:
		defenceV = defenceV - damage

		'<b><font color = green>Protection of the enemy suffered damage <<damage>> units</font></b>'

		xgt'fight','sta'
	elseif klonV > 0 and unmaterialV <= 0:
		klonV = klonV - 1

		'<b><font color = green>Destroyed enemy clone, he still had <<KlonV>> Clones</font></b>'

		xgt'fight','sta'
	elseif unmaterialV > 0:
		unmaterialV = unmaterialV - 1

		'<b><font color = red>Your kick flew right through the opponent''s body. <<$boydesc>> Not material</font></b>'

		xgt'fight','sta'
	elseif 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:
			healthV = healthV - damage

			if stunner > 0:
				stunV = RAND(1,3)

				'<b><font color = green>You paralyzed the enemy on <<stunV>> moves.</font></b>'
			end

			'<b><font color = green>Accept damage <<damage>> 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
		end
		xgt'fight','sta'
	end
end

if $ARGS[0] = 'uronKritV':
	cla
	damage = RAND(strenV,strenV*2) + weapbonusV + magweapbonusV

	if knifeV > 0:
		knibonV = knifeV+1
		knifeV = 0
		damage = damage*knibonV
		knibonV = 0

		'<b><font color = red>As you fly throwing knife</font></b>'
	end

	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
		if dospeh > 0:damage = damage - dospehDef & dospehEn = dospehEn - 1
		if damage < 0:damage = 0
		pcs_health = pcs_health - damage
		if weaponTipeV = 1:blood = blood + RAND(weaponV/4,weaponV/2)
		if weaponTipeV = 2:stunV = stunV + RAND(1,2)
		if weaponTipeV = 3:blood = blood + RAND(weaponV/4,weaponV/2)

		if stunnerV > 0:
			stunnerV = 0
			stun = RAND(3,6)

			'<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
		end

		'<b><font color = red>You harmed <<damage>> units</font></b>'

		if zerkalo > 0:
			zerkalo = zerkalo - 1
			healthV = healthV - damage

			'<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
		end
		xgt'fight','sta'
	elseif defence > 0 and klon <= 0 and unmaterial <= 0:
		defence = defence - damage

		'<b><font color = red>Your protection harmed <<damage>> units</font></b>'

		xgt'fight','sta'
	elseif klon > 0 and unmaterial <= 0:
		klon = klon - 1

		'<b><font color = red>It destroys your clone, Do you have more <<Klon>> Clones</font></b>'

		xgt'fight','sta'
	elseif unmaterial > 0:
		unmaterial = unmaterial - 1

		'<b><font color = green>Beat the enemy flew right through your body. YOU are not material</font></b>'

		xgt'fight','sta'
	elseif barier > 0:
		!imeniteta barrier for damage
		if barier >= damage:
			'<b><font color = green>You can easily withstand the impact of the enemy</font></b>'

			xgt'fight','sta'
		elseif barier < damage:
			pcs_health = pcs_health - damage
			if weaponTipeV = 1:blood = blood + RAND(weaponV/4,weaponV/2)
			if weaponTipeV = 2:stunV = stunV + RAND(1,2)
			if weaponTipeV = 3:blood = blood + RAND(weaponV/4,weaponV/2)

			if stunnerV > 0:
				stun = RAND(3,6)

				'<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
			end

			'<b><font color = red>You harmed <<damage>> units</font></b>'

			if zerkalo > 0:
				zerkalo = zerkalo - 1
				healthV = healthV - damage

				'<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
			end
		end
		xgt'fight','sta'
	end
end

if $ARGS[0] = 'uronV':
	cla
	stKo = strenV*20/100
	damage = RAND(strenV-stKo,strenV+stKo) + weapbonusV + magweapbonusV

	if knifeV > 0:
		knibonV = knifeV+1
		knifeV = 0
		damage = damage*knibonV
		knibonV = 0

		'<b><font color = red>As you fly throwing knife</font></b>'
	end

	if defence <= 0 and klon <= 0 and unmaterial <= 0 and barier <= 0:
		if dospeh > 0:damage = damage - dospehDef & dospehEn = dospehEn - 1
		if damage < 0:damage = 0
		pcs_health = pcs_health - damage

		if stunnerV > 0:
			stunnerV = 0
			stun = RAND(3,6)

			'<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
		end

		'<b><font color = red>You harmed <<damage>> units</font></b>'

		if zerkalo > 0:
			zerkalo = zerkalo - 1
			healthV = healthV - damage

			'<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
		end

		xgt'fight','sta'
	elseif defence > 0 and klon <= 0 and unmaterial <= 0:
		defence = defence - damage

		'<b><font color = red>Your protection harmed <<damage>> units</font></b>'

		xgt'fight','sta'
	elseif klon > 0 and unmaterial <= 0:
		klon = klon - 1

		'<b><font color = red>It destroys your clone, Do you have more <<Klon>> Clones</font></b>'

		xgt'fight','sta'
	elseif unmaterial > 0:
		unmaterial = unmaterial - 1

		'<b><font color = green>Beat the enemy flew right through your body. YOU are not material</font></b>'

		xgt'fight','sta'
	elseif barier > 0:
		!imeniteta barrier for damage
		if barier >= damage:
			'<b><font color = green>You can easily withstand the impact of the enemy</font></b>'

			xgt'fight','sta'
		elseif barier < damage:
			pcs_health = pcs_health - damage

			if stunnerV > 0:
				stun = RAND(3,6)

				'<b><font color = red><<$boydesc>> You paralyzed on <<stun>> moves.</font></b>'
			end

			'<b><font color = red>You harmed <<damage>> units</font></b>'

			if zerkalo > 0:
				zerkalo = zerkalo - 1
				healthV = healthV - damage

				'<b><font color = green>You are repelled and the damage <<$boydesc>> We received <<damage>> points of damage</font></b>'
			end
		end
		xgt'fight','sta'
	end
end

--- atak ---------------------------------