-- Lua Script1
-- Author: Jeff
-- DateCreated: 16-Mar-11 13:56:17
--------------------------------------------------------------
print("Naval Counterattack Loaded")
function NavalCounterAttack(iAttackingPlayer, iAttackingUnit, iAttackingUnitDamage, iAttackingUnitFinalDamage, iAttackingUnitMaxHP, iDefendingPlayer, iDefendingUnit, iDefendingUnitDamage, iDefendingUnitFinalDamage, iDefendingUnitMaxHP)
-- First, let's make sure we're looking at a naval vs naval engagement
if iAttackingUnit > 0 and iDefendingUnit > 0 then
local AttackingUnit = Players[iAttackingPlayer]:GetUnitByID( iAttackingUnit )
local DefendingUnit = Players[iDefendingPlayer]:GetUnitByID( iDefendingUnit )
if (AttackingUnit:GetDomainType() == DomainTypes.DOMAIN_SEA and DefendingUnit:GetDomainType() == DomainTypes.DOMAIN_SEA) then
if (AttackingUnit:GetBaseRangedCombatStrength() > 0 and DefendingUnit:GetBaseRangedCombatStrength() > 0) then
--We're in business. Let's launch a counter-attack.
-- Initialize the attack-tracking if this is the first attack of the turn.
--if HasAttackedThisTurn == nil then
HasAttackedThisTurn = {}
--end
--On an initial attack, neither ship will have the flag, so let's flag the attacker.
if HasAttackedThisTurn[DefendingUnit] ~= true and HasAttackedThisTurn[AttackingUnit] ~= true then
HasAttackedThisTurn[AttackingUnit] = true
end
--If the defending unit has the flag, then this will prevent a counter-counter attack.
if HasAttackedThisTurn[DefendingUnit] ~= true then
--print("Qualifies for a counterattack.")
DefendingUnit:RangeStrike( AttackingUnit:GetX(), AttackingUnit:GetY() )
--Now that the attack has been made, let's reset the defender's attack flag so that it may defend from another attack.
DefendingUnit:SetMadeAttack(false)
-- By this point, the attacker will already have been checked to make a counter-counter attack, so let's delete our table.
HasAttackedThisTurn = nil
else
--print("This unit is flagged as having attacked already, unable to counter-attack.")
end
end
end
end
end
--function ClearCombatMemory()
--HasAttackedThisTurn = nil
--end
Events.EndCombatSim.Add( NavalCounterAttack )
--Events.PlayerDoTurn.Add( ClearCombatMemory )
