Die_Nasty
04-06-2009, 05:44 PM
Leoric the Devourer
Here is a list of Abilities that he uses.
Heroic Strike, Bitter Blast, Blizzard, Curse of Exertion, Detonate Mana, Meteor, Growth, Shout, Fear, Decimate, Arcane Buffet, Bloodboil, Death and Decay, Cleave, Frost Nova, Berserk.
The Lua Script has NOT been tested yet.
Hope you like it:
function Leorec_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "You will regreat this!")
Unit:RegisterEvent("HeroicStrike", 12500, 0)
Unit:RegisterEvent("BitterBlast", 20000, 0)
Unit:RegisterEvent("IsMoving", 5000, 0)
Unit:RegisterEvent("Blizzard", 5000, 0)
Unit:RegisterEvent("CurseExertion", 22000, 0)
Unit:RegisterEvent("DetonateMana", 10000, 0)
Unit:RegisterEvent("Meteor", 16000, 0)
Unit:RegisterEvent("PhaseTwo", 5000, 0)
end
function Leorec_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end
function Leorec_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Your Weakness makes me stronger, bow in the dust!")
Unit:CastSpell(40318)
end
function Leorec_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "I have failed... but i doubt that my soul will burn in... hell!")
Unit:RemoveEvents()
end
function Leorec_HeroicStrike(Unit, Event)
Unit:FullCastSpellOnTarget(41975, Unit:GetMainTank(1))
end
function Leorec_BitterBlast(Unit, Event)
Unit:FullCastSpellOnTarget(60542, Unit:GetRandomPlayer(2))
end
function IsMoving(Unit, Event)
if Unit:IsInBack(Unit:GetMainTank(1)) then
Moving = 1
else
Moving = 0
end
end
function Blizzard(Unit, Event)
if (Moving == 1) then
local plr = Unit:GetMainTank()
Unit:FullCastSpellOnTarget(59369, Unit:GetMainTank(1))
else
end
end
function CurseExertion(Unit, Event)
Unit:FullCastSpellOnTarget(52772, Unit:GetRandomPlayer(5))
end
function DetonateMana(Unit, Event)
Unit:FullCastSpellOnTarget(27819, Unit:GetRandomPlayer(6))
end
function Meteor(Unit, Event)
Unit:FullCastSpellOnTarget(45150, Unit:GetRandomPlayer(4))
end
function PhaseTwo(Unit, Event))
if Unit:GetHealthPct() = 60 then
Unit:SendChatMessage(14, 0, "Youve acctully managed to hurt me, ill show you anger!")
Unit:RegisterEvent("Shout", 7000, 0)
Unit:RegisterEvent("Fear", 15000, 0)
Unit:RegisterEvent("Decimate", 10000, 0)
Unit:RegisterEvent("ArcaneBuffet", 12000, 0)
Unit:RegisterEvent("PhaseThree", 5000, 0)
end
function Shout(Unit, Event)
Unit:FullCastSpellOnTarget(29107, Unit:GetMainTank(1))
end
function Fear(Unit, Event)
Unit:FullCastSpellOnTarget(31970, Unit:GetRandomPlayer(7))
end
function Decimate(Unit, Event)
Unit:FullCastSpellOnTarget(28374, Unit:GetRandomPlayer(7))
end
function ArcaneBuffet(Unit, Event)
Unit:FullCastSpellOnTarget(59485, Unit:GetMainTank(1))
end
function PhaseThree(Unit, Event)
if Unit:GetHealthPct() = 10 then
Unit:SendChatMessage(14, 0, "Its time to show you my final strength!, Be with me power of the old gods!")
Unit:RegisterEvent("BloodBoil", 3000, 0)
Unit:RegisterEvent("DD", 6000, 0)
Unit:RegisterEvent("Cleave", 10000, 0)
Unit:RegisterEvent("Nova", 15000, 0)
Unit:RegisterEvent("Berserk", 5000, 0)
end
function BloodBoil(Unit, Event)
Unit:FullCastSpellOnTarget(42005, Unit:GetRandomPlayer(7))
end
function DD(Unit, Event)
Unit:FullCastSpellOnTarget(61603, Unit:GetRandomPlayer(7))
end
function Cleave(Unit, Event)
Unit:FullCastSpellOnTarget(19983, Unit:GetMainTank(1))
end
function Nova(Unit, Event)
Unit:FullCastSpellOnTarget(36989, Unit:GetRandomPlayer(6))
end
function Berserk(Unit, Event)
if Unit:GetHealthPct() = 5 then
Unit:SendChatMessage(14, 0, "I can feel the gods power, i will own you!")
Unit:SetScale(3.0)
Unit:CastSpell(41924)
end
RegisterUnitEvent(500000,1,"Leorec_OnCombat")
RegisterUnitEvent(500000,2,"Leorec_OnLeaveCombat")
RegisterUnitEvent(500000,3,"Leorec_OnKilledTarget")
RegisterUnitEvent(500000,4,"Leorec_OnDied")
How to use this Script:
You Copy paste the Coded Text in to Notepad
Save it as: Leoric.LUA
Put it in your scripts folder
Open server
Make the SQL's For him
and Boom :D You have a new boss
Cursed
Here is a list of Abilities that he uses.
Heroic Strike, Bitter Blast, Blizzard, Curse of Exertion, Detonate Mana, Meteor, Growth, Shout, Fear, Decimate, Arcane Buffet, Bloodboil, Death and Decay, Cleave, Frost Nova, Berserk.
The Lua Script has NOT been tested yet.
Hope you like it:
function Leorec_OnCombat(Unit, Event)
Unit:SendChatMessage(14, 0, "You will regreat this!")
Unit:RegisterEvent("HeroicStrike", 12500, 0)
Unit:RegisterEvent("BitterBlast", 20000, 0)
Unit:RegisterEvent("IsMoving", 5000, 0)
Unit:RegisterEvent("Blizzard", 5000, 0)
Unit:RegisterEvent("CurseExertion", 22000, 0)
Unit:RegisterEvent("DetonateMana", 10000, 0)
Unit:RegisterEvent("Meteor", 16000, 0)
Unit:RegisterEvent("PhaseTwo", 5000, 0)
end
function Leorec_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end
function Leorec_OnKilledTarget(Unit, Event)
Unit:SendChatMessage(14, 0, "Your Weakness makes me stronger, bow in the dust!")
Unit:CastSpell(40318)
end
function Leorec_OnDied(Unit, Event)
Unit:SendChatMessage(14, 0, "I have failed... but i doubt that my soul will burn in... hell!")
Unit:RemoveEvents()
end
function Leorec_HeroicStrike(Unit, Event)
Unit:FullCastSpellOnTarget(41975, Unit:GetMainTank(1))
end
function Leorec_BitterBlast(Unit, Event)
Unit:FullCastSpellOnTarget(60542, Unit:GetRandomPlayer(2))
end
function IsMoving(Unit, Event)
if Unit:IsInBack(Unit:GetMainTank(1)) then
Moving = 1
else
Moving = 0
end
end
function Blizzard(Unit, Event)
if (Moving == 1) then
local plr = Unit:GetMainTank()
Unit:FullCastSpellOnTarget(59369, Unit:GetMainTank(1))
else
end
end
function CurseExertion(Unit, Event)
Unit:FullCastSpellOnTarget(52772, Unit:GetRandomPlayer(5))
end
function DetonateMana(Unit, Event)
Unit:FullCastSpellOnTarget(27819, Unit:GetRandomPlayer(6))
end
function Meteor(Unit, Event)
Unit:FullCastSpellOnTarget(45150, Unit:GetRandomPlayer(4))
end
function PhaseTwo(Unit, Event))
if Unit:GetHealthPct() = 60 then
Unit:SendChatMessage(14, 0, "Youve acctully managed to hurt me, ill show you anger!")
Unit:RegisterEvent("Shout", 7000, 0)
Unit:RegisterEvent("Fear", 15000, 0)
Unit:RegisterEvent("Decimate", 10000, 0)
Unit:RegisterEvent("ArcaneBuffet", 12000, 0)
Unit:RegisterEvent("PhaseThree", 5000, 0)
end
function Shout(Unit, Event)
Unit:FullCastSpellOnTarget(29107, Unit:GetMainTank(1))
end
function Fear(Unit, Event)
Unit:FullCastSpellOnTarget(31970, Unit:GetRandomPlayer(7))
end
function Decimate(Unit, Event)
Unit:FullCastSpellOnTarget(28374, Unit:GetRandomPlayer(7))
end
function ArcaneBuffet(Unit, Event)
Unit:FullCastSpellOnTarget(59485, Unit:GetMainTank(1))
end
function PhaseThree(Unit, Event)
if Unit:GetHealthPct() = 10 then
Unit:SendChatMessage(14, 0, "Its time to show you my final strength!, Be with me power of the old gods!")
Unit:RegisterEvent("BloodBoil", 3000, 0)
Unit:RegisterEvent("DD", 6000, 0)
Unit:RegisterEvent("Cleave", 10000, 0)
Unit:RegisterEvent("Nova", 15000, 0)
Unit:RegisterEvent("Berserk", 5000, 0)
end
function BloodBoil(Unit, Event)
Unit:FullCastSpellOnTarget(42005, Unit:GetRandomPlayer(7))
end
function DD(Unit, Event)
Unit:FullCastSpellOnTarget(61603, Unit:GetRandomPlayer(7))
end
function Cleave(Unit, Event)
Unit:FullCastSpellOnTarget(19983, Unit:GetMainTank(1))
end
function Nova(Unit, Event)
Unit:FullCastSpellOnTarget(36989, Unit:GetRandomPlayer(6))
end
function Berserk(Unit, Event)
if Unit:GetHealthPct() = 5 then
Unit:SendChatMessage(14, 0, "I can feel the gods power, i will own you!")
Unit:SetScale(3.0)
Unit:CastSpell(41924)
end
RegisterUnitEvent(500000,1,"Leorec_OnCombat")
RegisterUnitEvent(500000,2,"Leorec_OnLeaveCombat")
RegisterUnitEvent(500000,3,"Leorec_OnKilledTarget")
RegisterUnitEvent(500000,4,"Leorec_OnDied")
How to use this Script:
You Copy paste the Coded Text in to Notepad
Save it as: Leoric.LUA
Put it in your scripts folder
Open server
Make the SQL's For him
and Boom :D You have a new boss
Cursed