Blah

function Angrond_OnCombat(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Only fools seek death!")
    pUnit:RegisterEvent(Angrond_Phase_One, 5000, 0)
end

function Angrond_OnDied(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "I've got to run! NO! STAY AWAY FROM THE LIGHT!")
    pUnit:RemoveEvents()
end

function Angrond_OnKilledTarget(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "Fall to the shadows!")
    pUnit:CastSpell(40318)
end

function Angrond_OnLeaveCombat(pUnit, Event)
    pUnit:SendChatMessage(14, 0, "The shadows have prevailed!")
    pUnit:RemoveEvents()
end

function Angrond_Phase_One(pUnit, Event)
    if (pUnit:GetHealthPct() <= 50) then
        pUnit:RemoveEvents()
        pUnit:SendChatMessage(14, 0, "You're really starting to piss me off!")
        pUnit:RegisterEvent(Angrond_Phase_Two, 5000, 0)
        pUnit:CastSpell(40318)
        pUnit:CastSpell(40318)
        pUnit:CastSpell(40318)
    end
end

function Angrond_Phase_Two(pUnit, Event)
    if (pUnit:GetHealthPct() <= 30) then
        pUnit:RemoveEvents()
        pUnit:SendChatMessage(14, 0, "I can not fail! FELL THE SHADOWS!")
        pUnit:Root()
        for i = 1, 5 do
            pUnit:CastSpell(101329)
        end
        pUnit:RegisterEvent(Angrond_Phase_Three, 5000, 0)
    end
end

function Angrond_Phase_Three(pUnit, Event)
    if(pUnit:GetHealthPct() <= 20) then
        pUnit:RemoveEvents()
        pUnit:RegisterEvent(Angrond_Shadowbolt, 1000, 0)
    end
end

function Angrond_Shadowbolt(pUnit, Event)
    if(not pUnit:IsCasting()) then
        pUnit:FullCastSpellOnTarget(39026, pUnit:GetMainTank())
    end
end

RegisterUnitEvent(88803, 1, Angrond_OnCombat)
RegisterUnitEvent(88803, 2, Angrond_OnLeaveCombat)
RegisterUnitEvent(88803, 3, Angrond_OnKilledTarget)
RegisterUnitEvent(88803, 4, Angrond_OnDied)