PDA

View Full Version : [Release] Leoric the Devourer (LUA)


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

lawzon
04-06-2009, 06:16 PM
it would be better if you tested before you relased and you made the sql's becasue some pepole cant do it but other than that nice realse +rep

lordcranberry3
04-08-2009, 01:13 AM
ty.

Alvanaar
04-08-2009, 07:25 AM
Sick grammar. I think I should create a Lua script that's different to all the bosses everyone usually comes up with.

But good effort, Cursedshadow. :D

achieq
05-23-2010, 05:24 PM
TY man!! :D