LUA boss script

[simon559]

Hello there everyone

I tried to make a custom boss fight and made a pretty fail LUA script.
So I thought I should check if someone that actually knows what they are doing could make me this script :P

Well here is the overview of the fight:

Fight:

Phase1:100-75%
-Battle stance
-Rend random raid member.
-Charge random raid member and thunderclap instantly when at the target of the charge
-Whirlwind

Phase2:75-50%
-Defensive stance
-Sunder armor
-Demoralizing shout
-shield wall
-Rend random raid member(continue)

Phase3:50-25%
-Berserking stance and battleshout instantly
-whirlwind
-cleave
-bloodthirst
-deathwish

Phase4:25-0%
-instantly use recklessness
-then continue with Phase3

Dead.

and for the boss abilities I have picked out certain spells :P

Spells:
Rend= Rend Flesh - ID:42397
Charge= Berserker Charge - ID:38907
Whirlwind= Whirlwind - ID:41399
Sunder armor= Sunder Armor - ID:30901
Demoralizing Shout = Demoralizing Shout - 29584
Shield wall = Shield Wall - ID:41196
Cleave = Cleave - ID:31345
Bloodthirst -Bloodthirst - ID:31996
Deathwish= Death wish - ID:12292
Recklessness= Recklessness - ID:13847

Battlestance: ID:2457
Berserkingstance: ID:7381
Defensivestance: ID:7376

I would be greatful for your help
(+rep to the one who do it ofc )

[Pedregon]

Done in 15 minutes. Here you go; to versions. One with timers on each spell and one without. Change 27156 to the ID if your NPC, as well as the name.

Timers;

local NPC_ID = 27156

function boss_OnCombat(pUnit, Event)
        pUnit:SendChatMessage(14, 0, " ...I will crush you..")
		pUnit:RegisterEvent(boss_rend, 20000, 1) -- start phase one
		pUnit:RegisterEvent(boss_bs, 1000, 1) 
		pUnit:RegisterEvent(boss_charge, 30000, 20) 
	        pUnit:RegisterEvent(boss_thunderclap, 32000, 5)
                pUnit:RegisterEvent(boss_whirlwind, 35000, 20) -- end of phase one 
		pUnit:RegisterEvent(boss_ds, 60000, 1) -- start phase two
		pUnit:RegisterEvent(boss_sunder, 62000, 0)
                pUnit:RegisterEvent(boss_shout, 61000, 0)
                pUnit:RegisterEvent(boss_shieldwall, 63000, 0)
                pUnit:RegisterEvent(boss_rend2, 64000, 1) -- end of phase two
                pUnit:RegisterEvent(boss_berserkst, 67000, 0)
                pUnit:RegisterEvent(boss_whirlwind2, 69000, 20)
                pUnit:RegisterEvent(boss_cleave, 73000, 0)
                pUnit:RegisterEvent(boss_bloodshirt, 75000, 0)
                pUnit:RegisterEvent(boss_Recklessness, 77000, 0)

end

function boss_rend(pUnit, Event)
        pUnit:CastSpell(42397)
end

function boss_bs(pUnit, Event)
        pUnit:CastSpell(2457)
end

function boss_charge(pUnit, Event)
        pUnit:FullCastSpellOnTarget(38907, pUnit:GetMainTank())
end

function boss_whirlwind(pUnit, Event)
        pUnit:FullCastSpellOnTarget(41399, pUnit:GetRandomPlayer(0))
end

function boss_thunderclap(pUnit, Event)
        pUnit:CastSpell(41399)
end

function boss_ds(pUnit, Event)
        pUnit:CastSpell(7376)
end


function boss_sunder(pUnit, Event)
        pUnit:CastSpell(30901)
end

function boss_shout(pUnit, Event)
        pUnit:CastSpell(29584)
end

function boss_shieldwall(pUnit, Event)
        pUnit:CastSpell(48819, pUnit:GetRandomPlayer(0))
end

function boss_rend2(pUnit, Event)
        pUnit:CastSpell(42397)
end

function boss_berserkst(pUnit, Event)
        pUnit:CastSpell(7381)
end

function boss_whirlwind2(pUnit, Event)
        pUnit:FullCastSpellOnTarget(41399, pUnit:GetRandomPlayer(0))
end

function boss_cleave(pUnit, Event)
        pUnit:CastSpell(31345, pUnit:GetRandomPlayer(0))
end

function boss_bloodthirst(pUnit, Event)
        pUnit:CastSpell(31996)
end

function boss_Recklessness(pUnit, Event)
        pUnit:CastSpell(13847)
end



function boss_OnLeaveCombat(pUnit, Event)
        pUnit:RemoveEvents()
		pUnit:SendChatMessage(14, 0, "...to much for a mighty warrior...")
end

function boss_OnKilledTarget(pUnit, Event)
        pUnit:RemoveEvents()
		pUnit:SendChatMessage(14, 0, "...death is upon you all...")
end

function boss_OnDied(pUnit, Event)
        pUnit:RemoveEvents()
		pUnit:SendChatMessage(14, 0, "...too strong...for...me..")
end

RegisterUnitEvent(27156, 1, "boss_OnCombat")
RegisterUnitEvent(27156, 2, "boss_OnLeaveCombat")
RegisterUnitEvent(27156, 3, "boss_OnKilledTarget")
RegisterUnitEvent(27156, 4, "boss_OnDied")

No Timers;

local NPC_ID = 27156

function boss_OnCombat(pUnit, Event)
        pUnit:SendChatMessage(14, 0, " ...I will crush you..")

end

function boss_rend(pUnit, Event)
        pUnit:CastSpell(42397)
end

function boss_bs(pUnit, Event)
        pUnit:CastSpell(2457)
end

function boss_charge(pUnit, Event)
        pUnit:FullCastSpellOnTarget(38907, pUnit:GetMainTank())
end

function boss_whirlwind(pUnit, Event)
        pUnit:FullCastSpellOnTarget(41399, pUnit:GetRandomPlayer(0))
end

function boss_thunderclap(pUnit, Event)
        pUnit:CastSpell(41399)
end

function boss_ds(pUnit, Event)
        pUnit:CastSpell(7376)
end


function boss_sunder(pUnit, Event)
        pUnit:CastSpell(30901)
end

function boss_shout(pUnit, Event)
        pUnit:CastSpell(29584)
end

function boss_shieldwall(pUnit, Event)
        pUnit:CastSpell(48819, pUnit:GetRandomPlayer(0))
end

function boss_rend2(pUnit, Event)
        pUnit:CastSpell(42397)
end

function boss_berserkst(pUnit, Event)
        pUnit:CastSpell(7381)
end

function boss_whirlwind2(pUnit, Event)
        pUnit:FullCastSpellOnTarget(41399, pUnit:GetRandomPlayer(0))
end

function boss_cleave(pUnit, Event)
        pUnit:CastSpell(31345, pUnit:GetRandomPlayer(0))
end

function boss_bloodthirst(pUnit, Event)
        pUnit:CastSpell(31996)
end

function boss_Recklessness(pUnit, Event)
        pUnit:CastSpell(13847)
end



function boss_OnLeaveCombat(pUnit, Event)
        pUnit:RemoveEvents()
		pUnit:SendChatMessage(14, 0, "...to much for a mighty warrior...")
end

function boss_OnKilledTarget(pUnit, Event)
        pUnit:RemoveEvents()
		pUnit:SendChatMessage(14, 0, "...death is upon you all...")
end

function boss_OnDied(pUnit, Event)
        pUnit:RemoveEvents()
		pUnit:SendChatMessage(14, 0, "...too strong...for...me..")
end

RegisterUnitEvent(27156, 1, "boss_OnCombat")
RegisterUnitEvent(27156, 2, "boss_OnLeaveCombat")
RegisterUnitEvent(27156, 3, "boss_OnKilledTarget")
RegisterUnitEvent(27156, 4, "boss_OnDied")

[bsod-staff14]

I remember, back in the day, someone made a LUA Creator that could create LUA scripts easily especially for Boss fight's.

[Ground Zero]

I remember, back in the day, someone made a LUA Creator that could create LUA scripts easily especially for Boss fight's.

Yea, too bad it never worked.

[simon559]

Oh thank you!!! <3 Sorry for the delay on my reply but I've been on a festival for three days now :P but thank you and +rep to you mate

[singoe]

Simon... did you go Harry Browns Hoe down?!

[simon559]

What haha xD?

Btw: The script doesn't work :S I have put in my npc ID were is should be and I have put it in the script folder and so on but the NPC doesn't do anything :S

[singoe]

It was a festival that was going on the past 4 days. ended yesterday. Just thought it was the one you went to. but i guess your just not cool enough

[Pedregon]

Make sure you changed the NPC ID on both register event and local ID. :]

[simon559]

It was a festival that was going on the past 4 days. ended yesterday. Just thought it was the one you went to. but i guess your just not cool enough

Hehe ok :P I live in sweden and I went on West coast riot and Metaltown XD:P

Make sure you changed the NPC ID on both register event and local ID. :]

Ok I will check if I have done that xD:P

Edit: I have checked the script and it is all how it should be :S This is very wierd..:S