local npcId = 800800

function OnEnterCombat(event, creature, target)
    creature:AddAura(48066, creature)
    creature:SendUnitYell("You Think you can challenge me, the High Priestess of the Crusade the Champion of Redridge!", 0)
 end

function PhaseOne(event, creature, target)
 if (GetHealthPct() >= 90) then
    creature:SendUnitYell("HA!, You can not think to best me mortal! Not with the Help of the Crusade!!! Come Minons!", 0)
    creature:CastSpell(target, 65536, true)
end
end

function OnLeaveCombat(event, creature)
    creature:SendUnitYell("I am Out of Combat!", 0)
 end

 function OnDied(event, creature, killer)
    creature:SendUnitYell("I am dead! You Won")
 end

 RegisterCreatureEvent(npcId, 1, OnEnterCombat)
 RegisterCreatureEvent(npcId, 2, OnLeaveCombat)
 RegisterCreatureEvent(npcId, 3, PhaseOne)
 RegisterCreatureEvent(npcId, 4, OnDied)