print("Ally System Version 1 - Loaded - Pandex292")

--[[Item Locals]]--
local itemf = 45645
local itemh = 45646
local itemb = 45647
local itemd = 45648
--Figher Ally
local fighter = 222333
--Healer Ally
local healer = 222334
--Buffer Ally
local buffer = 222335
--Damage Ally
local damage = 222336


function OnEnterCombat_Ally_Fighter(event, player, target)
    local px = player:GetX()
    local py = player:GetY()
    local pz = player:GetZ()
    local po = player:GetO()
    if (player:HasItem(itemf) == true) then
        if (player:IsInCombat() == true) then
        player:SpawnpCreature(fighter, px, py-2, pz, po, 35, 120)
        end
    end
end

function Fighter_OnSpawn(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    if (pCreature:IsAttackable(tar)) then
        pCreature:FullCastSpellOnTarget(3631, tar2)
        pCreature:RegisterEvent(Fighter_Daze, 30, 0)
        end
    end

function Fighter_Daze(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    pCreature:FullCastSpellOnTarget(42435, tar)
end

function Fighter_OnLeaveCombat(pCreature, event, lasttarget)
    pCreature:Despawn(15, 0)
    pCreature:SendBroadcastMessage("My time here is done, I hope I was able to help you.")
end

function OnEnterCombat_Ally_Healer(event, player, target)
    local px = player:GetX()
    local py = player:GetY()
    local pz = player:GetZ()
    local po = player:GetO()
    if (player:HasItem(itemh) == true) then
        if (player:IsInCombat() == true) then
        player:SpawnpCreature(healer, px, py-2, pz, po, 35, 120)
        end
    end
end

function Healer_OnSpawn(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    if (pCreature:IsAttackable(tar)) then
        pCreature:RegisterEvent(Healer_Heal, 45, 0)
        end
    end

function Healer_Heal(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    pCreature:FullCastSpellOnTarget(32546, tar2)
end

function Healer_OnLeaveCombat(pCreature, event, lasttarget)
    pCreature:Despawn(15, 0)
    pCreature:SendBroadcastMessage("My time here is done, I hope I was able to help you.")
end

function OnEnterCombat_Ally_Buffer(event, player, target)
    local px = player:GetX()
    local py = player:GetY()
    local pz = player:GetZ()
    local po = player:GetO()
    if (player:HasItem(itemb) == true) then
        if (player:IsInCombat() == true) then
        player:SpawnpCreature(buffer, px, py-2, pz, po, 35, 120)
        end
    end
end

function Buffer_OnSpawn(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    if (pCreature:IsAttackable(tar)) then
        pCreature:FullCastSpellOnTarget(34199, tar2)
        pCreature:FullCastSpellOnTarget(31305, tar2)
        pCreature:FullCastSpellOnTarget(35912, tar2)
        pCreature:FullCastSpellOnTarget(36001, tar2)
        pCreature:FullCastSpellOnTarget(35874, tar2)
        pCreature:FullCastSpellOnTarget(38734, tar2)
        end
    end


function Buffer_OnLeaveCombat(pCreature, event, lasttarget)
    pCreature:Despawn(15, 0)
    pCreature:SendBroadcastMessage("My time here is done, I hope I was able to help you.")
end

function OnEnterCombat_Ally_Damage(event, player, target)
    local px = player:GetX()
    local py = player:GetY()
    local pz = player:GetZ()
    local po = player:GetO()
    if (player:HasItem(itemd) == true) then
        if (player:IsInCombat() == true) then
        player:SpawnpCreature(damage, px, py-2, pz, po, 35, 120)
        end
    end
end

function Damage_OnSpawn(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    if (pCreature:IsAttackable(tar)) then
        pCreature:RegisterEvent(Damage_Dmg, 15, 0)
        end
    end

function Damage_Dmg(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    pCreature:FullCastSpellOnTarget(69869, tar)
    pCreature:RegisterEvent(Damage_Dmg2, 25, 0)
end

function Damage_Dmg2(pCreature, event)
    local tar = pCreature:GetClosestEnemy()
    local tar2 = pCreature:GetClosestFriend()
    pCreature:FullCastSpellOnTarget(36876, tar)
end

function Damage_OnLeaveCombat(pCreature, event, lasttarget)
    pCreature:Despawn(15, 0)
    pCreature:SendBroadcastMessage("My time here is done, I hope I was able to help you.")
end

RegisterServerHook(9, "OnEnterCombat_Ally_Fighter")
RegisterUnitEvent(fighter, 18, "Fighter_OnSpawn")
RegisterUnitEvent(fighter, 2, "Fighter_OnLeaveCombat")
RegisterServerHook(9, "OnEnterCombat_Ally_Healer")
RegisterUnitEvent(healer, 18, "Healer_OnSpawn")
RegisterUnitEvent(healer, 2, "Healer_OnLeaveCombat")
RegisterServerHook(9, "OnEnterCombat_Ally_Buffer")
RegisterUnitEvent(buffer, 18, "Buffer_OnSpawn")
RegisterUnitEvent(buffer, 2, "Buffer_OnLeaveCombat")
RegisterServerHook(9, "OnEnterCombat_Ally_Damage")
RegisterUnitEvent(damage, 18, "Damage_OnSpawn")
RegisterUnitEvent(damage, 2, "Damage_OnLeaveCombat")