Code:
function Satan_p1(pUnit, Event)
if pUnit:GetHealthPct() < 90 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "You have seen death, and now you must feel it!")
pUnit:FullCastSpell(59172, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(42926, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p2",1000, 0)
end
end
function Satan_p2(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "The underworld will rise!")
pUnit:FullCastSpell(59172, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p3",1000, 0)
end
end
function Satan_p3(pUnit, Event)
if pUnit:GetHealthPct() < 72 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "Do you believe in heaven? Cause your in HELL!")
pUnit:FullCastSpell(47857, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p4",1000, 0)
end
end
function Satan_p4(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "I am the Prince of Darkness!")
pUnit:FullCastSpell(54322, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p5",1000, 0)
end
end
function Satan_p5(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "I shall not be defeated!!")
pUnit:FullCastSpell(48158, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p6",1000, 0)
end
end
function Satan_p6(pUnit, Event)
if pUnit:GetHealthPct() < 35 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "You will be made to serve me!")
pUnit:FullCastSpell(38840)
pUnit:CastSpell(48125, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(48125, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p7",1000, 0)
end
end
function Satan_p7(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "Come forth Angels of Darkness")
x = pUnit:GetX();
y = pUnit:GetY();
z = pUnit:GetZ();
o = pUnit:GetO();
pUnit:SpawnCreature(95436, x+5, y+5, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+4, y+4, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+3, y+3, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+2, y+2, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+1, y+1, z, o, 72, 60000)
pUnit:CastSpell(47820, pUnit:GetRandomPlayer(0))
pUnit:FullCastSpell(42859, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p8",1000, 0)
end
end
function Satan_p8(pUnit, Event)
if pUnit:GetHealthPct() < 7 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "It will take more than that to be rid of me!")
pUnit:SetHealthPct(100)
pUnit:RegisterEvent("Satan_p9",1000, 0)
end
end
function Satan_p9(pUnit, Event)
if pUnit:GetHealthPct() < 90 then
pUnit:RemoveEvents();
pUnit:SendChatMessage(12, 0, "Are you so Ignorant? Do you not know who I am? I am the Dark Lord Himself. I am Satan!")
pUnit:FullCastSpell(47825, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p10",1000, 0)
end
end
function Satan_p10(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "Come forth Angels of Darkness and aid me once again!")
x = pUnit:GetX();
y = pUnit:GetY();
z = pUnit:GetZ();
o = pUnit:GetO();
pUnit:SpawnCreature(95436, x+5, y+5, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+4, y+4, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+3, y+3, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+2, y+2, z, o, 72, 60000)
pUnit:SpawnCreature(95436, x+1, y+1, z, o, 72, 60000)
pUnit:RegisterEvent("Satan_p11",1000, 0)
end
end
function Satan_p11(pUnit, Event)
if pUnit:GetHealthPct() < 30 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "Bow before your master!")
pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(48125, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(47862, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(47843, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satan_p12",1000, 0)
end
end
function Satan_p12(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "Face me coward... In my domain!")
pUnit:Despawn(1, 0)
pUnit:SpawnCreature(95437, 16227, 16402, -64.38, 1.615564, 233, 0)
local Target = pUnit:GetRandomPlayer(0)
Target:Teleport(1, 16228, 16395, -64.37)
end
end
function Satan_OnEnterCombat(pUnit, Event)
pUnit:RegisterEvent("Satan_p1",1000, 0)
pUnit:SendChatMessage (12, 0, "You stand before the power of Hell and all of its glory!")
end
function Satan_OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "I am the force to reckon with. You were no match for me!")
end
RegisterUnitEvent(95435, 1, "Satan_OnEnterCombat")
RegisterUnitEvent(95435, 2, "Satan_OnLeaveCombat")
Part 2:
Code:
function Satantwo_p1(pUnit, Event)
pUnit:SetHealthPct(20)
pUnit:RemoveEvents();
pUnit:RegisterEvent("Satantwo_p2", 1000, 0)
end
function Satantwo_p2(pUnit, Event)
if pUnit:GetHealthPct() < 15 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "You should have listened. No matter, you shall perish!")
pUnit:SetScale(2)
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satantwo_p3", 1000, 0)
end
end
function Satantwo_p3(pUnit, Event)
if pUnit:GetHealthPct() < 10 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "My domain is no more...")
pUnit:Despawn(1, 0)
pUnit:SpawnCreature(95438, 16229.85, 16295.993, 30.777, 2, 233, 0)
local Target = pUnit:GetRandomPlayer(0)
Target:Teleport(1, 16227.9, 16300, 30.1)
end
end
function Satantwo_OnEnterCombat(pUnit, Event)
pUnit:RegisterEvent("Satantwo_p1",1000, 0)
pUnit:SendChatMessage (12, 0, "What is it you desire?")
end
function Satantwo_OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "You were no match in my Domain")
end
RegisterUnitEvent(95437, 1, "Satantwo_OnEnterCombat")
RegisterUnitEvent(95437, 2, "Satantwo_OnLeaveCombat")
part 3:
Code:
function Satanthree_p1(pUnit, Event)
pUnit:SetHealthPct(10)
pUnit:RemoveEvents();
pUnit:RegisterEvent("Satanthree_p2", 1000, 0)
end
function Satanthree_p2(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "You should have listened. No matter, you shall perish!")
pUnit:SetScale(2)
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Satanthree_p3", 1000, 0)
end
end
function Satanthree_p3(pUnit, Event)
if pUnit:GetHealthPct() < 1 then
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "You have not seen the last of me!")
pUnit:FullCastSpell(50438)
pUnitR:RegeisterEvent("Satanthree_Died", 1000, 0)
end
end
function Satanthree_OnEnterCombat(pUnit, Event)
pUnit:RegisterEvent("Satanthree_p1",1000, 0)
pUnit:SendChatMessage (12, 0, "My energy where has it gone?")
end
function Satanthree_OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents();
pUnit:SendChatMessage (12, 0, "Is this that all you have?")
end
function Satanthree_Died(pUnit, Event)
pUnit:SendChatMessage (12, 0, "It was not supposed to be this way....")
pUnit:RemoveEvents();
end
RegisterUnitEvent(95438, 1, "Satanthree_OnEnterCombat")
RegisterUnitEvent(95438, 2, "Satanthree_OnLeaveCombat")
RegisterUnitEvent(95438, 4, "Satanthree_Died")
and lastly here is a link for you to download if you don't like copying and pasting: