[LUA] Nebulator

[Myzt]

Hello there!

This will be my try to contribute to the community, for the first time.
I've studied some LUA around at different forums, and this is the first outcome.

It's a pretty simple scripted boss, It has 3 phases.
The boss is pretty much a mage, is immune to fire, and has some anti-magic abilities.
Also has some heavy damage spells.
The key is mostly to stay alive, If he kills anyone, You're pretty much dead.

I'm not including any mob for this, as It's easier for you guys to tune the mob to the level you want. I would recommend using, Jin'do the Hexxer, ID = 11380


Heres the code for it,
Remember this is my very first completed script, so there might be errors (probably will be), It loads, and is working as far as I can see tho.

I tried to keep it clean. Also put your mob ID at the bottom.

--[[---------------------Phase 1 Abilities-----------------------------]]--
function Nebulator_Fireball(pUnit, Event)
	pUnit:CastSpellOnTarget(29953, pUnit:GetRandomPlayer(7) )
end

function Nebulator_Blastwave(pUnit, Event)
	pUnit:CastSpell(38536)
end

--[[--------------------Phase 1--------------------------------------]]--
function Nebulator_phase1(pUnit, Event)
	if pUnit:GetHealthPct() <= 99 then
		pUnit:SendChatMessage(5, 0, "Here we go then!")
		timer=random.math(8000, 10000)
		pUnit:RegisterEvent("Nebulator_Fireball", timer, 0)
		pUnit:RegisterEvent("Nebulator_Blastwave", 20000, 0)
		pUnit:RegisterEvent("Nebulator_Phase2", 1000, 0)
	end
end

--[[--------------------Phase 2 Abilities----------------------------- ]]--

function Nebulaltor_Hitcurse(pUnit, Event)
	pUnit:Castspell(16867)
end

function Nebulator_Netherblast(pUnit, Event)
	pUnit:CastSpellOnTarget(38265, pUnit:GetRandomPlayer(0))
end

--[[---------------------Phase 2 -------------------------------------]]--
function Nebulator_Phase2(pUnit, Event)
	if pUnit:GetHealthPct()  <= 79 then
		pUnit:RemoveEvents()
		pUnit:SendChatMessage(5, 0, "Let me show you some of my real skills!")
		pUnit:CastSpell(35915)
		pUnit:CastSpell(36114)
		pUnit:RegisterEvent("Nebulator_Hitcurse", 40000, 0)
		pUnit:RegisterEvent("Nebulator_Netherblast", 30000, 0)
		pUnit:RegisterEvent("Nebulator_Fireball", 7000, 0)
		pUnit:RegisterEvent("Nebulator_Phase3", 1000, 0)
	end
end


--[[---------------------Phase 3 Abilities-----------------------------]]--
function Nebulator_AntiMagic(pUnit, Event)
	pUnit:CastSpell(7121)
end

function Nebulator_Fireform(pUnit, Event)
	pUnit:CastSpell(34203)
end

--[[---------------------Phase 3 -------------------------------------]]--
function Nebulator_Phase3(pUnit, Event)
	if pUnit:GetHealthPct() <= 20 then
		pUnit:RemoveEvents()
		pUnit:SetScale(2)
		pUnit:SendChatMessage(5, 0, "You're making me angry now bastards! I'm Still a Mage! I will always win! Burn, Burn, BURN!")
		pUnit:SetScale(2)
		pUnit:RegisterEvent("Nebulator_AntiMagic", 50000, 0)
		pUnit:RegisterEvent("Nebulator_FireForm", 14000, 0)
		pUnit:RegisterEvent("Nebulator_Hitcurse", 40000, 0)
		pUnit:RegisterEvent("Nebulator_Netherblast", 25000, 0)
		pUnit:RegisterEvent("Nebulator_Fireball", 7000, 0)
		pUnit:RegisterEvent("Nebulator_Blastwave", 15000, 0)
	end
end
		
--[[-------------------------KillTarget Abilities----------------------]]--
function Nebulator_Killtarget1(pUnit, Event)
	pUnit:CastSpell(29976)
	pUnit:CastSpellOnTarget(38535, GetRandomPlayer(7))
end

function Nebulator_Killtarget2(pUnit, Event)
	pUnit:CastSpell(41245)
end

function Nebulator_Killtarget3(pUnit, Event)
	pUnit:CastSpellOnTarget(37727, GetMainTank())
end

--[[---------------------Primary Functions---------------------------]]--

function Nebulator_Aggro(pUnit, Event)
	pUnit:SenChatMessage(5, 0, "I am a Mage! How do you dare challenging me?")
	pUnit:RegisterEvent("Nebulator_phase1", 1000, 0)
end

function Nebulator_KillTarget(pUnit, Event)
slayer = math.random (1 , 3)
	if slayer == 1 then 
		pUnit:RegisterEvent("Nebulator_Killtarget1", 1000, 5)
		pUnit:SendChatMessage(5, 0, "Haha, I WIN!")
	end
	if slayer == 2 then 
		pUnit:RegisterEvent("Nebulator_Killtarget2", 1000, 5)
		pUnit:SendChatMessage(5, 0, "Arrgh, I'm getting mad!")
	end
	if slayer == 3 then 
		pUnit:RegisterEvent("Nebulator_Killtarget3", 700, 8) 
		pUnit:SendChatMessage(5, 0, "You didn't see that one coming, huh?!")
	end
end

function Nebulator_Dies(pUnit, Event)
	pUnit:SendChatMessage(5, 0, "Rawr.. I fail... I'll go respecc...")
	pUnit:RemoveEvents()
	pUnit:SetScale(1)
	pUnit:RemoveAura(7121)
	pUnit:RemoveAura(34203)
	pUnit:RemoveAura(35915)
	pUnit:RemoveAura(36114)
end


RegisterUnitEvent(**Your Mob ID**, 3, "Nebulator_KillTarget")
RegisterUnitEvent(**Your Mob ID**, 4, "Nebulator_Dies")
RegisterUnitEvent(**Your Mob ID**, 1, "Nebulator_Aggro")

I'll be thankful for any feedback!

[omgrapedlol]

wow man, pretty impressive for your first script. i actually think ill use this lol. can you give me the name of a recommended NPC?

[Myzt]

Thanks

I used different Bosses from Zul'Aman and Zul'Gurub, one sec and I'll get the ID of best one.

Edit: Jin'do the Hexxer, ID = 11380. I'm adding that to the main post.

[Cursed]

First script, COOL first contribution = +Rep 3x

[omgrapedlol]

K, thanks.

[Myzt]

Thanks Cursed!

I tried pretty hard ^^

[Hellgawd]

Nice first contribution, +3Rep.

[Myzt]

Thanks Hellgawd! I was hoping for some errors to fix lal

[omgrapedlol]

hmm...finding one slight complication with using it, with most scripts i have seen, the Spot for the entry id for your mob is at the top, i cant seem to locate the spot where i put the entry id of my boss.

[Myzt]

RegisterUnitEvent(**Your Mob ID**, 3, "Nebulator_KillTarget")
RegisterUnitEvent(**Your Mob ID**, 4, "Nebulator_Dies")
RegisterUnitEvent(**Your Mob ID**, 1, "Nebulator_Aggro")

This is at the very bottom, and I think It's clear where to put the id
Also make sure your repack or whatever does not alrdy have a script for this boss, It's In ZG.
Another solution would be to make a custom mob with the ID I posted as Model ID

[Hellgawd]

Myzt, if your interested in doing a little scripting for me, send me a PM...
I'm needing about 100 or so scripts done and I'm just contacting all the decent scripters I can.

[Myzt]

Okay sure thing

[fatefirst]

I sure will test it out on my server. Will reply of my findings :P

[Myzt]

Goodie, be sure to report any errors, And I will fix them ASAP

[Succy]

Looks really nice... And I wanna be special(Not in a Emo way) so won't say "Kewl first contribution" <---- Sucks saying that... Hmm, I wanna see this in a Keloggs Way... This is... Greeeeeeeeeeaaaaaat!

Ps. A tips is to post a SQL for the boss/npcs, cause alot of people are lazy around here :P