Corrupted Terenas Menethil - Script

--- This script was made by Darkraid :D with help from Stoneharry so I could make the boss suicide.



local NPCID = 100004   ----  This is the ID of the boss.

function Terenas_OnCombat(pUnit, event, player)   ---- The start of the fight.
 pUnit:SendChatMessage(14, 0, "Welcome to your DOOM, champions! I have escaped Frostmourne's grasp. It won't be long before it pulls me back, but I do like company...")
 pUnit:RegisterEvent("Terenas_Phase1", 1000, 0)
end

function Terenas_OnLeaveCombat(pUnit, event, player)   ---- Hope this part will not happen in-game, thought the boss is powerful.
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "You have failed me, champions! Let's find ourselves in Frostmourne's world.")
end

function Terenas_OnDeath(pUnit, event, player)   ---- I'm relieved that you defeated him :D .
 pUnit:RemoveEvents()
 pUnit:SendChatMessage(14, 0, "I-I'm sorry, champions... for... my co-corrupted form.")
end

function Terenas_Phase1(pUnit, event, player)    ---- Phase 1 of the encounter. He gets a little buff ;;) .
 if pUnit:GetHealthPct() == 85 then
 pUnit:SendChatMessage(14,0, "You, champions, truly are powerful so you could defeated The Lich King.")
 pUnit:RemoveEvents()
 pUnit:CastSpell(31305)
 pUnit:RegisterEvent("Terenas_Phase2", 1000, 0)
end
end

function Terenas_Phase2(pUnit, event, player)     ---- The boss is going crazy.
 if pUnit:GetHealthPct() == 50 then
 pUnit:SendChatMessage(14, 0, "I'm l-losing contr-- NO! I can still FIGHT!")
 pUnit:RemoveEvents()
 pUnit:SetScale(2)
 pUnit:CastSpell(31305)
 pUnit:CastSpell(41107)
 pUnit:CastSpell(71843)
 pUnit:RegisterEvent("Terenas_Phase3", 1000, 0)
end
end

function Terenas_Phase3(pUnit, event, player)    ---- Phase 3, Phase of Suicide. He's an EMO!!!
 if pUnit:GetHealthPct() == 5 then
 pUnit:SendChatMessage(14, 0, "Finally, I have my full powers ready. But I lose control to this body so...")
 pUnit:RemoveEvents()
 pUnit:SetScale(1)
 pUnit:SetCombatCapable(1)
 pUnit:CastSpell(70063)    ---- It will be a surprise for all.
 pUnit:CastSpell(69037)
 pUnit:RegisterEvent("Ikillmyself", 1000, 1)    ---- OMFG EMO NPC xD =))   Thanks Stoneharry :D
end
end

function Ikillmyself(pUnit, Event)
 pUnit:SetHealth(1)
 pUnit:CastSpell(11)
end

RegisterUnitEvent(100004, 1, "Terenas_OnCombat")
RegisterUnitEvent(100004, 2, "Terenas_OnLeaveCombat")
RegisterUnitEvent(100004, 4, "Terenas_OnDeath")