Script 2

local NPC_ID = 600004
local METEOR = 41276

local function Suicide (eventID, delay, pCall, creature)
    if (creature:GetAura(74458) == true) then
        creature:SendUnitSay("I will not let me blood stain your hands, I will rid this world of myself", 0)
        creature:CastSpell(creature, 7, true)
end
end

local function PhaseEnd (eventID, delay, pCall, creature)
    if (creature:GetHealthPct() <= 10) then
                creature:RemoveEvents()
        creature:CastSpell(74458)
        creature:SendUnitSay("It would appear that I have been beaten, please forgive me.", 0)
                creature:RegisterEvent(Suicide, 8000, 1)
    end
    end

local function PhaseThree (eventID, delay, pCall, creature)
    if (creature:GetHealthPct() <= 30) then
                creature:RemoveEvents()
                local TARGET3 = creature:GetAITarget(1, true, 0, 45)
        creature:JumpToCoords(10329.123047, -6280.8548980, 26.420488, 10, 10)
        creature:CastSpell(TARGET3, 59351, true)
                creature:RegisterEvent(PhaseEnd, 1000, 1)
    end
    end

local function PhaseTwo (eventID, delay, pCall, creature)
    if (creature:GetHealthPct() <= 75) then
        creature:RemoveEvents()
    creature:JumpToCoords(10322.841797, -6302.415039, 26.328140, 10, 10)
    creature:CastSpellAoF(10289.741211, -6288.017578, 26.145884, 41276, true) --one
    creature:CastSpellAoF(10297.828125, -6280.993652, 26.863653, 41276, true) --two
    creature:CastSpellAoF(10306.276367, -6276.641602, 27.530766, 41276, true) --three
    creature:CastSpellAoF(10289.741211, -6288.017578, 26.145884, 41276, true) --four
    creature:CastSpellAoF(10297.828125, -6280.993652, 26.863653, 41276, true) --five
    creature:CastSpellAoF(10306.276367, -6276.641602, 27.530766, 41276, true) --six
        creature:RegisterEvent(PhaseThree, 1000, 1)
    end
    end

local function PhaseOne (eventID, delay, pCall, creature)
    if (creature:GetHealthPct() <= 90) then
        creature:RemoveEvents()
        local TARGET2 = creature:GetAITarget(0, true, 0, 45)
    creature:CastSpell(TARGET2, 59351, true)
        creature:RegisterEvent(PhaseTwo, 1000, 2)
end
end

local function ShaOfLust_OnCombat (event, creature, target)
    local TARGET = creature:GetAITarget(1, true, 0, 45)
         creature:CastSpell(TARGET, 66552, true)
                 creature:RegisterEvent(PhaseOne, 1000, 1)
    end

RegisterCreatureEvent(NPC_ID, 1, ShaOfLust_OnCombat)