[Release]Sunwell Bosses Scripts

[AzolexX]

This Are Scripts for Some Bosses In Sunwell

Felmyst-- Started in Lua++ it was un Blizzlike and Buggy I Redone it And Added Missing Stuff its now very Well Working:

--Phase1

function Fel_Cleave(pUnit, Event)
	pUnit:CastSpellOnTarget(31345, pUnit:GetMainTank())
end

function Fel_Corrosion(pUnit, Event)
	pUnit:FullCastSpellOnTarget(45866, pUnit:GetMainTank())
end

function Fel_NoxiousFumes(pUnit, Event)
	pUnit:FullCastSpell(45738)
end

function Fel_GasNova(pUnit, Event)
	pUnit:FullCastSpell(45855)
end

function Fel_Berserk(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "No more hesitation! Your fates are written! ")
        pUnit:PlaySoundToSet(12482)
	pUnit:FullCastSpell(46587)
end

function Fel_Encapsulate(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "I am stronger than ever before!")
        pUnit:PlaySoundToSet(12479)
	pUnit:CastSpellOnTarget(45665, pUnit:GetRandomTarget(0))
end

function Fel_OnCombat(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "Glory to Kil'jaeden! Death to all who oppose!")
        pUnit:PlaySoundToSet(12477)
	pUnit:RegisterEvent("Fel_Cleave",20000,0)
	pUnit:RegisterEvent("Fel_Corrosion",36000,0)
	pUnit:RegisterEvent("Fel_NoxiousFumes",27000,0)
	pUnit:RegisterEvent("Fel_GasNova",30000,0)
	pUnit:RegisterEvent("Fel_Berserk",600000,0)
	pUnit:RegisterEvent("Fel_Encapsulate",45000,0)
	pUnit:RegisterEvent("Phase2",75000,1)
end

function Fel_OnLeaveCombat(pUnit, Event)
	
end

function Fel_OnKilledTarget(pUnit, Event)
	local Choice=math.random(1,2)
	if Choice==1 then
		pUnit:SendChatMessage(14, 0, "I kill for the master!")
                pUnit:PlaySoundToSet(12480)  
	elseif Choice==2 then
		pUnit:SendChatMessage(14, 0, "The end has come!")
                pUnit:PlaySoundToSet(12481)
	end
end

function Fel_OnDied(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "Kil'jaeden... will... prevail...")
        pUnit:PlaySoundToSet(12483)
	pUnit:RemoveEvents()
end


--Phase2

function Phase2(pUnit, Event)
end


function Fel_DemonicVapor(pUnit, Event)
	local x = pUnit:GetX()
	local y = pUnit:GetY()
	local z = pUnit:GetZ()
	local o = pUnit:GetO()
	pUnit:SendChatMessage(14, 0, "Choke on your final breath!")
        pUnit:PlaySoundToSet(12478)
	pUnit:CastSpell(45402)
	pUnit:SpawnCreature(30170, x-1, y, z, o, 14, o)
	pUnit:SpawnCreature(30170, x+1, y, z, o, 14, o)
	pUnit:SpawnCreature(30170, x, y-1, z, o, 14, o)
	pUnit:SpawnCreature(30170, x, y+1, z, o, 14, o)
	pUnit:SpawnCreature(30170, x-3, y, z, o, 14, o)
	pUnit:SpawnCreature(30170, x+3, y, z, o, 14, o)
end

RegisterUnitEvent(25038, 1, "Fel_OnCombat")
RegisterUnitEvent(25038, 2, "Fel_OnLeaveCombat")
RegisterUnitEvent(25038, 3, "Fel_OnKilledTarget")
RegisterUnitEvent(25038, 4, "Fel_OnDied")

M'uru Script Fully Working 100% Blizzlike Script
Guy from WhyDatabase Created it But it didnt have some spells,i Added them Also It never "Spawned Darkness",This Script Contans Add's AI:

function Muru_OnEnterCombat(Unit, Event)
Unit:RegisterEvent("Muru_NegativeEnergy",2000,0)
Unit:RegisterEvent("Muru_Darkness",45000,0)
Unit:RegisterEvent("Muru_VoidSentinel",30000,0)
Unit:RegisterEvent("Muru_Summonset",60000,0)
Unit:RegisterEvent("Muru_Enrage",6000000,0)
Unit:StopMovement()
end

function Muru_NegativeEnergy(Unit, event)
   Unit:CastSpellOnTarget(46008, Unit:GetRandomPlayer(0))
end

function Muru_Darkness(Unit, event)
   Unit:CastSpell(45996)
end

function Muru_Enrage(Unit, Event)
        Unit:CastSpell(26662)
end

function Muru_Summonset(Unit, Event)
Choice=math.random(1, 2)
if Choice==1 then
         Unit:SpawnCreature(25798, 1781.98, 665.4370, 71.2, 5.23, 16,0)
         Unit:SpawnCreature(25798, 1777.76, 662.8, 71.2, 5.21, 16,0)
         Unit:SpawnCreature(25799, 1848.0813, 598.78, 71.3143, 2.4368, 16,0)
end   
if Choice==2 then
         Unit:SpawnCreature(25799, 1781.98, 665.4370, 71.2, 5.23, 16,0)
         Unit:SpawnCreature(25798, 1849.64, 595.196, 71.3143, 2.4886, 16,0)
                        Unit:SpawnCreature(25798, 1848.0813, 598.78, 71.3143, 2.4368, 16,0)
end
end

function Muru_VoidSentinel(Unit, Event)
Choice=math.random(1, 2)
if Choice==1 then
         Unit:SpawnCreature(25772, 1796.94 ,605.072, 71.203, 0.67, 16,0)
end   
if Choice==2 then
                        Unit:SpawnCreature(25772, 1838.32 ,650.789, 71.243, 4.26, 16,0)
end
end

function Muru_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end

function Muru_OnDied(Unit, Event)
Unit:CastSpell(46217)
Unit:Despawn(1000,0)
Unit:RemoveEvents()
end

RegisterUnitEvent(25741, 1, "Muru_OnEnterCombat")
RegisterUnitEvent(25741, 2, "Muru_OnLeaveCombat")
RegisterUnitEvent(25741, 4, "Muru_OnDied")


--Entropius
function Entropius_OnEnterCombat(Unit, Event)
Unit:RegisterEvent("Entropius_NegativeEnergy",4000,0)
Unit:RegisterEvent("Entropius_Darkness",45000,0)
Unit:RegisterEvent("Entropius_BlackHole",150000,0)
Unit:RegisterEvent("Entropius_Enrage",6000000,0)
end

function Entropius_NegativeEnergy(Unit, event)
   Unit:CastSpellOnTarget(46008, Unit:GetRandomPlayer(0))
   Unit:CastSpellOnTarget(46008, Unit:GetRandomPlayer(0))
   Unit:CastSpellOnTarget(46008, Unit:GetRandomPlayer(0))
end

function Entropius_Enrage(Unit, Event)
        Unit:CastSpell(26662)
end

function Entropius_Darkness(Unit, Event)
        Unit:FullCastSpellOnTarget (45141, Unit:GetRandomPlayer(0))   
end

function Entropius_BlackHole(Unit, Event)
   x = Unit:GetX ()
   y = Unit:GetY ()
   z = Unit:GetZ ()
   o = Unit:GetO ()
   Unit:SpawnCreature(25855, x-1, y, z, o, 16, o)
   Unit:SpawnCreature(25855, x+1, y, z, o, 16, o)
   Unit:CastSpellOnTarget(45996, Unit:GetRandomPlayer(0))
end

function Entropius_OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
end

function Entropius_OnDied(Unit, Event)
Unit:RemoveEvents()
end

RegisterUnitEvent(25840, 1, "Entropius_OnEnterCombat")
RegisterUnitEvent(25840, 2, "Entropius_OnLeaveCombat")
RegisterUnitEvent(25840, 4, "Entropius_OnDied")


------------------------Summon
--Summonmove
function Summonmove(Unit)   
   Unit:MoveTo(1815.3, 625.193, 69.6075, 2.3)
end

RegisterUnitEvent(25798,6,"Summonmove")
RegisterUnitEvent(25799,6,"Summonmove")

--VoidSentinel 25772

function VoidSentinel1_OnEnterCombat(Unit, Event)
Unit:RegisterEvent("VoidSentinel1_ShadowPulsePeriodic",7000,0)
Unit:RegisterEvent("VoidSentinel1_VoidBlast",3000,0)
Unit:Despawn(60000, 0)
end

function VoidSentinel1_ShadowPulsePeriodic(Unit, Event)
        Unit:CastSpellOnTarget (46086,Unit:GetRandomPlayer(0))
end

function VoidSentinel1_VoidBlast(Unit, Event)
        Unit:FullCastSpellOnTarget (46161,Unit:GetRandomPlayer(1))
end

function VoidSentinel1_OnDied(Unit, Event)
   x = Unit:GetX ()
   y = Unit:GetY ()
   z = Unit:GetZ ()
   o = Unit:GetO ()
   Unit:SpawnCreature(25782, x-1, y, z, o, 16, o)
   Unit:SpawnCreature(25782, x+1, y, z, o, 16, o)
   Unit:SpawnCreature(25782, x, y-1, z, o, 16, o)
   Unit:SpawnCreature(25782, x, y+1, z, o, 16, o)
   Unit:SpawnCreature(25782, x-3, y, z, o, 16, o)
   Unit:SpawnCreature(25782, x+5, y, z, o, 16, o)
end

function VoidSentinel1_spawndisplay(Unit, Event)
Unit:SetModel(22742)
end

function VoidSentinel1_moveset(Unit)   
        Unit:RegisterEvent("VoidSentinel1_spawndisplay",1000,1)
   Unit:RegisterEvent("VoidSentinel1_move",4000,0)
end

function VoidSentinel1_move(Unit, Event)
   Unit:MoveTo(1815.3, 625.193, 69.6075, 2.3)
        Unit:SetModel(23372)
end

RegisterUnitEvent(25772, 1, "VoidSentinel1_OnEnterCombat")
RegisterUnitEvent(25772, 4, "VoidSentinel1_OnDied")
RegisterUnitEvent(25772, 6, "VoidSentinel1_moveset")

--VoidSentinel2 summon

function VoidSentinel2_OnEnterCombat(Unit, Event)
Unit:RegisterEvent("VoidSentinel2_ShadowBoltVolley",5000,0)
Unit:Despawn(30000, 0)
end

function VoidSentinel2_ShadowBoltVolley(Unit, Event)
        Unit:FullCastSpellOnTarget (46082,Unit:GetRandomPlayer(1))
end

function VoidSentinel2_OnDied(Unit, Event)
Unit:RemoveEvents()
end

RegisterUnitEvent(25782, 1, "VoidSentinel2_OnEnterCombat")
RegisterUnitEvent(25782, 4, "VoidSentinel2_OnDied")

--Summon shadow FuryMage

function SummonFuryMage_OnEnterCombat(Unit, Event)
Unit:RegisterEvent("SummonFuryMage_FelFireball",5000,0)
Unit:RegisterEvent("SummonFuryMage_SpellFury",5000,0)
end

function SummonFuryMage_FelFireball(Unit, Event)
        Unit:FullCastSpellOnTarget (46101,Unit:GetRandomPlayer(1))
end

function SummonFuryMage_SpellFury(Unit, Event)
        Unit:FullCastSpellOnTarget (46102,Unit:GetRandomPlayer(1))
end


function SummonFuryMage_OnDied(Unit, Event)
Unit:RemoveEvents()
end

RegisterUnitEvent(25798, 1, "SummonFuryMage_OnEnterCombat")
RegisterUnitEvent(25798, 4, "SummonFuryMage_OnDied")

--Summon shadow Berserk

function SummonBerserk_OnEnterCombat(Unit, event)
Unit:RegisterEvent("SummonBerserk_Flurry", math.random(25000, 30000),0)
end

function SummonBerserk_Flurry(Unit, event)
   pUnit:CastSpell(46160)
end

function SummonBerserk_OnDied(Unit, Event)
Unit:RemoveEvents()
end

RegisterUnitEvent(25798, 1, "SummonBerserk_OnEnterCombat")
RegisterUnitEvent(25798, 4, "SummonBerserk_OnDied")

This Are Eredar Twins Scripts,They are Fully Working,I created Them but i Thank to Lua++ to some Cool Functions:

--Grand Warlock Alythess

function WarlockOnCombat(pUnit, Event)
	setvars(pUnit, {AlyDead=0, LadyDead=0});  -- Boss Statuses (used from Lua++)
	pUnit:RegisterEvent("Flame_Touched",15000,0)
	pUnit:RegisterEvent("Pyrogenics",1000,1)
	pUnit:RegisterEvent("Flame_Sear",20000,0)
	pUnit:RegisterEvent("Conflagration",20000,0)
	pUnit:RegisterEvent("WarlockPhase2", 1000, 0)
	pUnit:RegisterEvent("AlyEnrage", 360000, 1)
end

function WarlockPhase2(pUnit, event)
	local args = getvars(pUnit);
	if (args.LadyDead == 1) then
		pUnit:SendChatMessage(14, 0, "Sacrolash!")
		pUnit:PlaySoundToSet(12492)
		pUnit:RegisterEvent("AlyShadowNova",35000,0)
	end
end

function WarlockOnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function WarlockOnKilledTarget(pUnit, Event)
	pUnit:SendChatMessage(13, 0, "Fire, consume!")	
end

function WarlockOnDied(pUnit, Event)
	local args = getvars(pUnit);
	pUnit:RemoveEvents()
	pUnit:PlaySoundToSet(12494)
	args.AlyDead=1;
	setvars(pUnit, args);
end

function FlameSear(pUnit, Event)
	pUnit:CastSpellOnTarget(46771, pUnit:GetRandomTarget(0))
	pUnit:CastSpellOnTarget(46771, pUnit:GetRandomTarget(0))
	pUnit:CastSpellOnTarget(46771, pUnit:GetRandomTarget(0))
end

function Conflagration(pUnit, Event) 
	pUnit:SendChatMessage(13, 0, "Fire to the aid of shadow!")
        pUnit:PlaySoundToSet(12489)
	pUnit:FullCastSpellOnTarget(45342, pUnit:GetMainTank())	
end

function FlameTouched(pUnit, Event)
	pUnit:CastSpellOnTarget(45348, pUnit:GetRandomTarget(0))	
end

function Pyrogenics(pUnit, Event)
	pUnit:CastSpell(45230)	
end

function AlyShadowNova(pUnit, Event)
	pUnit:FullCastSpell(45329)	
end


function AlyEnrage(pUnit, event)
	pUnit:CastSpell(26662)
end

RegisterUnitEvent(25166, 1, "WarlockOnCombat")
RegisterUnitEvent(25166, 2, "WarlockOnleaveCombat")
RegisterUnitEvent(25166, 3, "WarlockOnKilledTarget")
RegisterUnitEvent(25166, 4, "WarlockOnDied")

--Lady Sacrolash

function Lady_OnCombat(pUnit, Event)
	setvars(pUnit, {AlyDead=0, LadyDead=0}); -- Boss Statuses (used from Lua++)
	pUnit:RegisterEvent("Confounding_Blow",30000,0)
	pUnit:RegisterEvent("ShadowNova",35000,0)
	pUnit:RegisterEvent("ShadowBlades",15000,0)
	pUnit:RegisterEvent("DarkTouched",25000,0)
	pUnit:RegisterEvent("LadyPhase2", 1000, 0)
	pUnit:RegisterEvent("LadyEnrage", 360000, 1)
end

function LadyPhase2(pUnit, event)
	local args = getvars(pUnit);
	if (args.AlyDead == 1) then
		pUnit:SendChatMessage(14, 0, "Alythess! Your fire burns within me!")
		pUnit:PlaySoundToSet(12488)
		pUnit:RegisterEvent("LadyConflag",20000,0)
	end
end
		
function LadyOnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function LadyOnKilledTarget(pUnit, Event)
	pUnit:SendChatMessage(12, 0, "Shadows, engulf!")
	pUnit:PlaySoundToSet(12486)
end

function LadyOnDied(pUnit, Event)
	local args = getvars(pUnit);
	pUnit:RemoveEvents()
	pUnit:SendChatMessage(14, 0, "I... fade.")
	args.LadyDead=1;
	setvars(pUnit, args);
end

function ShadowFury(pUnit, Event)
	pUnit:CastSpell(45270)	
end

function ConfoundingBlow(pUnit, Event)
	pUnit:CastSpellOnTarget(45256, pUnitGetRandomTarget(0))	
end

function ShadowNova(pUnit, Event)
	pUnit:SendChatMessage(12, 0, "Shadow to the aid of fire!")
	pUnit:PlaySoundToSet(12485)
	pUnit:FullCastSpell(45329)	
end

function DarkStrike(pUnit, Event)
	pUnit:CastSpellOnTarget(45271, pUnit:GetRandomTarget(0))	
end

function ShadowBlades(pUnit, Event)
	pUnit:CastSpellOnTarget(45248, pUnit:GetMainTank())
	pUnit:RegisterEvent(Dark_Strike,1000,1)
end

function DarkTouched(pUnit, Event)
	pUnit:CastSpellOnTarget(45347, pUnit:GetRandomTarget(0))	
end

function LadyConflag(pUnit, event)
	pUnit:FullCastSpellOnTarget(45342, pUnit:GetMainTank())
end

function LadyEnrage(pUnit, event)
	pUnit:CastSpell(26662) 
end		

RegisterUnitEvent(25165, 1, "LadyOnCombat")
RegisterUnitEvent(25165, 2, "LadyOnLeaveCombat")
RegisterUnitEvent(25165, 3, "LadyOnKilledTarget")
RegisterUnitEvent(25165, 4, "LadyOnDied")

-----------------------------------------------------------------------------------------
Credits:
Lua++ - Felmyst "template"
WhyDB - M'uru Script
Me-Fixing,adding,Editing and Writing
-----------------------------------------------------------------------------------------
How To install?
Open Notepad, Copy Paste Script, Save As name.lua,Enable Lua in your Core and insert it in Scripts Folder.
-----------------------------------------------------------------------------------------
Regards.

~Azolex.

[AzolexX]

Just Finished Eredar Twins Encounter Script.

[colincancer]

hmmmmm cool thanks, keep up the good work!

[AzolexX]

Fixed Felmyst/his "Yells" where in Party Chat Changed 13 to 14(yell)

[svedin]

can you do a script to Brutalus?
+rep for the good work

[AzolexX]

Check Blua,They have Working Brutallus Script!:

Revision 256: /

[TheZaronz]

Great work dude, is this only for LUA++ Engine or does it work for ArcEmu's LUA engine too?

[AzolexX]

it works but it wont load all commands

[stoneharry]

+rep to you for fixing the scripts :-)

[AzolexX]

i Created Eredar Twins,M'uru is Most Mine and Felmyst is From Shit Bin in Lua++(Not working or something) i rewroted him.
ty for rep.

[[RagDoll]]

Nice job..

And thanks for sharing

[AzolexX]

no problemo

[AzolexX]

Started Kelec Script!!