zerato

local Vertei, Xan, Abild
local running = false

function Verteidigungssystem_OnSpawn(unit, event)
    Vertei = unit
end
RegisterUnitEvent(41008, 18, "Verteidigungssystem_OnSpawn")

function Xanderli_OnSpawn(unit, event)
    Xan = unit
end
RegisterUnitEvent(41014, 18, "Xanderli_OnSpawn")

function Abild_von_Aurion_OnSpawn(unit, event)
    Abild = unit
end
RegisterUnitEvent(41013, 18, "Abild_von_Aurion_OnSpawn")

function Vertei_OnCombat(unit, event)
    if(running) then
        return
    end
    if(not Xan or not Xan:IsInWorld() or not Abild or not Abild:IsInWorld()) then
        return
    end
    if(not Vertei or not Vertei:IsInWorld()) then
        Vertei = unit
    end
    running = true
    unit:SendChatMessage(42, 0, "Das Verteidigungssystem wurde Aktiviert. Es wurden Eindringliger Lokaisiert. Sie müssen vernichtet werden!")
    unit:SetFaction(35)
    unit:MoveTo(435.534393, 776.479309, 11.967607, 1.581019)
    unit:RegisterEvent("Abild_Speaker", 7000, 1)
end

function Abild_Speaker(unit, event)
    unit:MoveTo(435.538788, 764.743225, 11.867945, 4.715304)
    unit:Emote(469, 100)
    unit:CastSpellAoF(51807, 435.711548, 753.321411, 11.649133, 1.612981)
    unit:SpawnCreature(41013, 435.711548, 753.321411, 11.649133, 1.612981, 35, 0)
    Abild:SendChatMessage(12, 0, "Residend, du hast einen große Aufgabe für Heute. Ich werde mir den Kampf zwischen dir und den Eindringlige ansehen. Also gebt eure bestes!")
    Abild:MoveTo(434.673798, 733.429504, 15.643701, 1.546218)
    Abild:MoveTo(434.755066, 736.734497, 15.655533, 1.546218)
    Abild:CastSpell(40733)
    Abild:SendChatMessage(42, 0, "Abild von Aurion hilft Residend beim Kampf!")
    unit:RegisterEvent("Residend_Speaker", 3000, 1)
end

function Residend_Speaker(unit, event)
    unit:SendChatMessage(12, 0, "Wie ihr wollt meister! Ich werde euch nicht entäuschen.")
    unit:SetFaction(20)
    unit:RegisterEvent("Vertei_Phase1", 1000, 0)
end

function Vertei_Phase1(unit, event)
    unit:RegisterEvent("Vertei_Spell1", 13000, 0)
    unit:RegisterEvent("Vertei_Spell2", 43000, 0)
    Abild:SendChatMessage(12, 0, "Ich greife jetzt mit an!")
    Abild:RegisterEvent("Abild_Spell3", 60000, 0)
    unit:RegisterEvent("Vertei_Spell4", 25000, 0)
    Abild:RegisterEvent("Abild_Spell5", 80000, 0)
    unit:RegisterEvent("Vertei_Phase2", 1000, 0)
end

function Vertei_Spell1(unit, event)
    unit:CastSpellOnTarget(69409, unit:GetMainTank())
end
function Vertei_Spell2(unit, event)
    unit:CastSpell(71935)
end
function Vertei_Spell4(unit, event)
    unit:FullCastSpell(15549)
end
function Abild_Spell3(unit, event)
    unit:CastSpellOnTarget(64974, unit:GetRandomPlayer(0))
    unit:SendChatMessage(42, 0, "Aurion beginnt überspringende Kugelblitze zu wirken! Geht Zusammen oder Auseinander!")
end
function Abild_Spell5(unit, event)
    unit:CastSpellOnTarget(28299, unit:GetRandomPlayer(0))
    unit:SendChatMessage(42, 0, "Aurion beginnt Kugelblitze zu wirken!")
end

function Vertei_Phase2(unit, event)
    if unit:GetHealthPct() <75 then
        unit:RemoveEvents()
        unit:SendChatMessage(42, 0, "Die zweite Phase beginnt")
        unit:RegisterEvent("Vertei_Spell1", 16000, 0)
        unit:RegisterEvent("Vertei_Spell2", 30000, 0)
        Abild:RegisterEvent("Abild_Spell3", 44000, 0)
        Abild:RegisterEvent("Abild_Spell4", 56000, 0)
        Abild:RegisterEvent("Abild_Spell5", 63000, 0)
        unit:RegisterEvent("Vertei_Spell6", 70000, 0)
        unit:RegisterEvent("Vertei_Phase3", 1000, 0)
    end
end

function Abild_Spell3(unit, event)
    unit:CastSpellOnTarget(64974, unit:GetRandomPlayer(0))
    unit:SendChatMessage(42, 0, "Aurion beginnt überspringende Kugelblitze zu wirken! Geht Zusammen oder Auseinander!")
end
function Abild_Spell5(unit, event)
    unit:CastSpellOnTarget(28299, unit:GetRandomPlayer(0))
    unit:SendChatMessage(42, 0, "Aurion beginnt Kugelblitze zu wirken!")
end

function Vertei_Spell1(unit, event)
    unit:CastSpellOnTarget(61882, unit:GetRandomPlayer(0))
    unit:SendChatMessage(42, 0, "Achtung Erdbeben!")
end
function Vertei_Spell2(unit, event)
    unit:CastSpellOnTarget(61603, unit:GetRandomPlayer(0))
    unit:SendChatMessage(42, 0, "Raus aus Tod und Verfall")
end

function Abild_Spell4(unit, event)
    unit:CastSpellOnTarget(64974, unit:GetRandomPlayer(0))
end

function Vertei_Spell6(unit, event)
    unit:FullCastSpell(64584)
    unit:SendChatMessage(42, 0, "Verteidigungssystem beginnt Urknall zu Wirken!")
    unit:CastSpell(54322)
end

function Vertei_Phase3(unit, event)
    if unit:GetHealthPct() <2 then
        unit:RemoveEvents()
        unit:SetFaction(35)
        unit:CastSpell(40733)
        Abild:SendChatMessage(14, 0, "STOP! Ich merke schon, dass das Verteidigungssystem gegen euch keinen Chance hat ich werde es Zerstören und ihr werdet dafür diese True bekommen. Das war nur ein Trick ich werde euch erlidigen mit einen Attacke!")
        Abild:RegisterEvent("Abild_Killing", 8000, 0)
        unit:SpawnCreature(41014,  435.794708, 772.467590, 11.940390, 4.690170, 35, 0)
        Xan:CastSpell(35517)
        Xan:RegisterEvent("Xanderli_saveyou", 1000, 1)
    end
end

function Abild_Killing(unit, event)
    Abild:CastSpell(72350)
end

function Xanderli_saveyou(unit, event)
    unit:SendChatMessage(12, 0, "Wieso opfert ihr eure eigenes Verteidiungssystem?")
    Abild:SendChatMessage(12, 0, "Das was im diesen Kampf gesehen habe, hatte mir zum überlegen gebracht, dass ich mein Verteidiungssystem überarbeiten muss, deshalb habe ich es geopfert.")
    unit:SendChatMessage(12, 0, "Aber eine Sache hast du übersehen. Ich kann die Helden wiederbeleben. Das was ich auch jetzt tue!")
    unit:RegisterEvent("Xan_Revive", 2000, 1)
end

function Xan_Revive(unit, event)
    unit:SendChatMessage(42, 0, "Xanderli beginnt Massenwiederbelebung zu Wirken")
    unit:RegisterEvent("Xan_Revive2", 1000, 1)
end

function Xan_Revive2(unit, event)
    unit:CastSpell(72429)
end

function Vertei_OnLeaveCombat(unit, event)
    unit:SendChatMessage(12, 0, "Alle Eindringllige wurden vernichtet!")
    unit:RemoveEvents()
    Abild:SendChatMessage(12, 0, "Gut gemacht!")
    running = false
end

function Vertei_OnKilledPlayer(unit, event)
    Abild:SendChatMessage(12, 0, "Einer eurer Helden ist gefallen und der nächste kommt hinterher!")
end

function Vertei_OnDied(unit, event)
    unit:RemoveEvents()
    unit:SendChatMessage(12, 0, "Wieso..?!?")
    running = false
end

RegisterUnitEvent(41008, 1, "Vertei_OnCombat")
RegisterUnitEvent(41008, 2, "Vertei_OnLeaveCombat")
RegisterUnitEvent(41008, 3, "Vertei_OnKilledPlayer")
RegisterUnitEvent(41008, 4, "Vertei_OnDied")