[RELEASE] LUA BOSS O'Brien!

[VictoRo]

I hereby present you my 2nd LUA Script.

--[[ Boss - O'Brien.
 
Farmer O'Brien was a completely normal farmer with a wife and kids .. But one day, the forsaken came .. they ripped his wife apart and took his kids .. he were heartbroken .. The anger inside him were to overwhelming! He became the Forsaken Farmer .. He took the control of all farmers and now he is ready to rip you with his pitchfork!

~~End of Script Forenote
-- Viggo-xd, November 29th, 2008. ]]

----------------------------------------------------------------------------------------------------

function OBrien_OnLeaveCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "You better run before i rape you with my pitchfork!")
end


function OBrien_Died(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Assist me! Argh...")
     x=GetX();
     y=GetY();
     z=GetZ();
     o=GetO();
  pUnit:SpawnCreature(58432, x-3, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x-2, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x-1, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+1, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+2, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+3, y+1, z, 0, 20, 0)
end

function OBrien_OnEnterCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Once, once I was a normal Human. `I` was the best farmer around, just like you... then one day, One cruel day, The Forsaken came and took all that I loved. Look who I am now. I am one of those, but I am more powerful than anyone! Even Arthas himself! Prepare for your defeat %T!")
pUnit:RegisterEvent("OBrien_Phase1",20000,1)
pUnit:RegisterEvent("OBrien_Phase2",20000,1)
pUnit:RegisterEvent("OBrien_Phase3",20000,1)
pUnit:RegisterEvent("OBrien_Phase4",20000,1)
end


function OBrien_KilledTarget(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Beware of my minions, they are powerful!")
    x=GetX();
     y=GetY();
     z=GetZ();
     o=GetO();
  pUnit:SpawnCreature(58432, x+2, y+2, z, 0, 20, 0)
end

-------------------------------------------------------------------------------------------------------

function OBrien_Phase1(pUnit, Event)
if pUnit:GetHealthPct() < 100 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000, 1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000, 1)
end
end

function OBrien_IntimidatingRoar(pUnit, Event)
    pUnit:FullCastSpellOnTarget(18508,pUnit:GetClosestPlayer())
    pUnit:RemoveEvents()
end

function OBrien_AgonizingStrike(pUnit, Event)
    pUnit:FullCastSpellOnTarget(58504,pUnit:GetClosestPlayer())
end

------------------------------------------------------------------------------------------------------------

function OBrien_Phase2(pUnit, Event)
if pUnit:GetHealthPct() < 75 then
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
end
end

function OBrien_BladeStorm(pUnit, Event)
    pUnit:FullCastSpellOnTarget(46924,pUnit:GetClosestPlayer())
end

function OBrien_ShadowBoltVolley(pUnit, Event)
    pUnit:FullCastSpellOnTarget(39175,pUnit:GetClosestPlayer())
end
 
function OBrien_Phase3(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000,1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000,1)
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
pUnit:RegisterEvent("OBrien_Enrage", 40000,1)
end
end

function OBrien_IntimidatingRoar(pUnit,Event)
    pUnit:FullCastSpellOnTarget(18508,pUnit:GetClosestPlayer())
end

function OBrien_AgonizingStrike(pUnit,Event)
    pUnit:FullCastSpellOnTarget(58504,pUnit:GetClosestPlayer())
end

function OBrien_Bladestorm(pUnit,Event)
    pUnit:FullCastSpellOnTarget(46924,pUnit:GetClosestPlayer())
end

function OBrien_ShadowBoltVolley(pUnit,Event)
    pUnit:FullCastSpellOnTarget(39175,pUnit:GetClosestPlayer())
end

function OBrien_Enrage(pUnit,Event)
    pUnit:SendChatMessage(14, 0, "Your making me angry!")
    pUnit:CastSpell(50420)
end

function OBrien_Phase4(pUnit, Event)
pUnit:RemoveEvents()
if pUnit:GetHealthPct() < 25 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000,1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000,1)
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
pUnit:RegisterEvent("OBrien_Enrage", 40000,1)
pUnit:RegisterEvent("OBrien_DivineShield", 40000, 1)
pUnit:RegisterEvent("OBrien_GreaterHeal", 1000, 1)
end
end

function OBrien_DivineShield(pUnit,Event)
if pUnit:GetHealthPct() < 2 then
 pUnit:CastSpell(50420)
end
end
function OBrien_GreaterHeal(pUnit,Event)
if pUnit:GetHealthPct() < 2 then
 pUnit:CastSpell(49348)
end
end
------------------------------------------------------------------------------------




RegisterUnitEvent(95435, 1, "OBrien_OnEnterCombat")
RegisterUnitEvent(95435, 4, "OBrien_Died")
RegisterUnitEvent(95435, 3, "OBrien_KilledTarget")
RegisterUnitEvent(95435, 2, "OBrien_OnLeaveCombat")

Stoneharry bugchecked for me (:


O'Brien is a very powerful boss wich uses mostly Physical attacks, but with some shadow ones. He got 4 phases, when he reaches 2%HP he casts Divine Shield and heals himself.

[TheZaronz]

This time it's truly great!
But an advice

pUnit:SpawnCreature(58432, x, y, z, 0, 20, 0)

You should do it like

pUnit:SpawnCreature(58432, x+2, y+1, z, 0, 20, 0)

Adding some pluses to the x and/or y so it won't spawn directly on the other npce, but this the script itself is damn great, much better than the first one +Rep

[Nymphx]

--[[ Boss - O'Brien.
 
Farmer O'Brien was a completely normal farmer with a wife and kids .. But one day, the forsaken came .. they ripped his wife apart and took his kids .. he were heartbroken .. The anger inside him were to overwhelming! He became the Forsaken Farmer .. He took the control of all farmers and now he is ready to rip you with his pitchfork!

~~End of Script Forenote
-- Viggo-xd, November 29th, 2008. ]]

----------------------------------------------------------------------------------------------------

function OBrien_OnLeaveCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "You better run before i rape you with my pitchfork!")
end


function OBrien_Died(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Assist me! Argh...")
     x=GetX();
     y=GetY();
     z=GetZ();
     o=GetO();
  pUnit:SpawnCreature(58432, x-3, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x-2, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x-1, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+1, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+2, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+31, y+1, z, 0, 20, 0)
end

function OBrien_OnEnterCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Once, once I was a normal Human. `I` was the best farmer around, just like you... then one day, One cruel day, The Forsaken came and took all that I loved. Look who I am now. I am one of those, but I am more powerful than anyone! Even Arthas himself! Prepare for your defeat %T!")
pUnit:RegisterEvent("OBrien_Phase1",20000,1)
pUnit:RegisterEvent("OBrien_Phase2",20000,1)
pUnit:RegisterEvent("OBrien_Phase3",20000,1)
pUnit:RegisterEvent("OBrien_Phase4",20000,1)
end


function OBrien_KilledTarget(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Beware of my minions, they are powerful!")
    x=GetX();
     y=GetY();
     z=GetZ();
     o=GetO();
  pUnit:SpawnCreature(58432, x+2, y+2, z, 0, 20, 0)
end

-------------------------------------------------------------------------------------------------------

function OBrien_Phase1(pUnit, Event)
if pUnit:GetHealthPct() < 100 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000, 1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000, 1)
end
end

function OBrien_IntimidatingRoar(pUnit, Event)
    pUnit:FullCastSpellOnTarget(18508,pUnit:GetClosestPlayer())
    pUnit:RemoveEvents()
end

function OBrien_AgonizingStrike(pUnit, Event)
    pUnit:FullCastSpellOnTarget(58504,pUnit:GetClosestPlayer())
end

------------------------------------------------------------------------------------------------------------

function OBrien_Phase2(pUnit, Event)
if pUnit:GetHealthPct() < 75 then
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
end
end

function OBrien_BladeStorm(pUnit, Event)
    pUnit:FullCastSpellOnTarget(46924,pUnit:GetClosestPlayer())
end

function OBrien_ShadowBoltVolley(pUnit, Event)
    pUnit:FullCastSpellOnTarget(39175,pUnit:GetClosestPlayer())
end
 
function OBrien_Phase3(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000,1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000,1)
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
pUnit:RegisterEvent("OBrien_Enrage", 40000,1)
end
end

function OBrien_IntimidatingRoar(pUnit,Event)
    pUnit:FullCastSpellOnTarget(18508,pUnit:GetClosestPlayer())
end

function OBrien_AgonizingStrike(pUnit,Event)
    pUnit:FullCastSpellOnTarget(58504,pUnit:GetClosestPlayer())
end

function OBrien_Bladestorm(pUnit,Event)
    pUnit:FullCastSpellOnTarget(46924,pUnit:GetClosestPlayer())
end

function OBrien_ShadowBoltVolley(pUnit,Event)
    pUnit:FullCastSpellOnTarget(39175,pUnit:GetClosestPlayer())
end

function OBrien_Enrage(pUnit,Event)
    pUnit:SendChatMessage(14, 0, "Your making me angry!")
    pUnit:CastSpell(50420)
end

function OBrien_Phase4(pUnit, Event)
pUnit:RemoveEvents()
if pUnit:GetHealthPct() < 25 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000,1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000,1)
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
pUnit:RegisterEvent("OBrien_Enrage", 40000,1)
pUnit:RegisterEvent("OBrien_DivineShield", 40000, 1)
pUnit:RegisterEvent("OBrien_GreaterHeal", 1000, 1)
end
end

function OBrien_DivineShield(pUnit,Event)
if pUnit:GetHealthPct() < 2 then
 pUnit:CastSpell(50420)
end
end
function OBrien_GreaterHeal(pUnit,Event)
if pUnit:GetHealthPct() < 2 then
 pUnit:CastSpell(49348)
end
end
------------------------------------------------------------------------------------




RegisterUnitEvent(95435, 1, "OBrien_OnEnterCombat")
RegisterUnitEvent(95435, 4, "OBrien_Died")
RegisterUnitEvent(95435, 3, "OBrien_KilledTarget")
RegisterUnitEvent(95435, 2, "OBrien_OnLeaveCombat")

Fixed some speech and took away some of those annoying ..'s from the main part of the scripts lore. Changed those spawns for you to make it less of a cluster and more of a line of spawns.

First off, I like this script . It includes everything you need to make a boss fun to fight against!

BUT

It lacks that 'Punch' to make it unique.

+Rep's for you,

EDIT: Given out too much, will give it tomorrow. If I forget, PM ME!

[Edude]

Niiice, +Rep man, you are making progress

Im making a boss too, not a normal one, this one will be a comedy boss AHAHAH (filler)

[VictoRo]

ty Edude, lol it would be sad if i were getting worse lol

[Snailz]

This is a rather nice use of x,y,z command. +rep x3

[Nymphx]

Just realised - I did a 'typo' on the

x+3

and it says

x+31

Change it asap orelse your gonna have a spawn a mile away thats probably not going to pull, :L

[Ground Zero]

Looking Good. +Rep
Edit: Sorry given out too much. Need to wait.

[wildman4sure]

Great job m8...You are coming along...

Wanted to give you some rep and also thank you for being one of the best staff I have

Thank you, enjoy the rep and keep it up...You are truly becoming a very valuable member...

~Wild~

[bsod-staff14]

--[[ Boss - O'Brien.
 
Farmer O'Brien was a completely normal farmer with a wife and kids .. But one day, the forsaken came .. they ripped his wife apart and took his kids .. he were heartbroken .. The anger inside him were to overwhelming! He became the Forsaken Farmer .. He took the control of all farmers and now he is ready to rip you with his pitchfork!

~~End of Script Forenote
-- Viggo-xd, November 29th, 2008. ]]

----------------------------------------------------------------------------------------------------

function OBrien_OnLeaveCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "You better run before i rape you with my pitchfork!")
end


function OBrien_Died(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Assist me! Argh...")
     x=GetX();
     y=GetY();
     z=GetZ();
     o=GetO();
  pUnit:SpawnCreature(58432, x-3, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x-2, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x-1, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+1, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+2, y+1, z, 0, 20, 0)
  pUnit:SpawnCreature(58432, x+31, y+1, z, 0, 20, 0)
end

function OBrien_OnEnterCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Once, once I was a normal Human. `I` was the best farmer around, just like you... then one day, One cruel day, The Forsaken came and took all that I loved. Look who I am now. I am one of those, but I am more powerful than anyone! Even Arthas himself! Prepare for your defeat %T!")
pUnit:RegisterEvent("OBrien_Phase1",20000,1)
pUnit:RegisterEvent("OBrien_Phase2",20000,1)
pUnit:RegisterEvent("OBrien_Phase3",20000,1)
pUnit:RegisterEvent("OBrien_Phase4",20000,1)
end


function OBrien_KilledTarget(pUnit, Event)
pUnit:SendChatMessage(14, 0, "Beware of my minions, they are powerful!")
    x=GetX();
     y=GetY();
     z=GetZ();
     o=GetO();
  pUnit:SpawnCreature(58432, x+2, y+2, z, 0, 20, 0)
end

-------------------------------------------------------------------------------------------------------

function OBrien_Phase1(pUnit, Event)
if pUnit:GetHealthPct() < 100 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000, 1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000, 1)
end
end

function OBrien_IntimidatingRoar(pUnit, Event)
    pUnit:FullCastSpellOnTarget(18508,pUnit:GetClosestPlayer())
    pUnit:RemoveEvents()
end

function OBrien_AgonizingStrike(pUnit, Event)
    pUnit:FullCastSpellOnTarget(58504,pUnit:GetClosestPlayer())
end

------------------------------------------------------------------------------------------------------------

function OBrien_Phase2(pUnit, Event)
if pUnit:GetHealthPct() < 75 then
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
end
end

function OBrien_BladeStorm(pUnit, Event)
    pUnit:FullCastSpellOnTarget(46924,pUnit:GetClosestPlayer())
end

function OBrien_ShadowBoltVolley(pUnit, Event)
    pUnit:FullCastSpellOnTarget(39175,pUnit:GetClosestPlayer())
end
 
function OBrien_Phase3(pUnit, Event)
if pUnit:GetHealthPct() < 50 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000,1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000,1)
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
pUnit:RegisterEvent("OBrien_Enrage", 40000,1)
end
end

function OBrien_IntimidatingRoar(pUnit,Event)
    pUnit:FullCastSpellOnTarget(18508,pUnit:GetClosestPlayer())
end

function OBrien_AgonizingStrike(pUnit,Event)
    pUnit:FullCastSpellOnTarget(58504,pUnit:GetClosestPlayer())
end

function OBrien_Bladestorm(pUnit,Event)
    pUnit:FullCastSpellOnTarget(46924,pUnit:GetClosestPlayer())
end

function OBrien_ShadowBoltVolley(pUnit,Event)
    pUnit:FullCastSpellOnTarget(39175,pUnit:GetClosestPlayer())
end

function OBrien_Enrage(pUnit,Event)
    pUnit:SendChatMessage(14, 0, "Your making me angry!")
    pUnit:CastSpell(50420)
end

function OBrien_Phase4(pUnit, Event)
pUnit:RemoveEvents()
if pUnit:GetHealthPct() < 25 then
pUnit:RegisterEvent("OBrien_IntimidatingRoar", 20000,1)
pUnit:RegisterEvent("OBrien_AgonizingStrike", 10000,1)
pUnit:RegisterEvent("OBrien_Bladestorm", 15000,1)
pUnit:RegisterEvent("OBrien_ShadowBoltVolley", 20000,1)
pUnit:RegisterEvent("OBrien_Enrage", 40000,1)
pUnit:RegisterEvent("OBrien_DivineShield", 40000, 1)
pUnit:RegisterEvent("OBrien_GreaterHeal", 1000, 1)
end
end

function OBrien_DivineShield(pUnit,Event)
if pUnit:GetHealthPct() < 2 then
 pUnit:CastSpell(50420)
end
end
function OBrien_GreaterHeal(pUnit,Event)
if pUnit:GetHealthPct() < 2 then
 pUnit:CastSpell(49348)
end
end
------------------------------------------------------------------------------------




RegisterUnitEvent(95435, 1, "OBrien_OnEnterCombat")
RegisterUnitEvent(95435, 4, "OBrien_Died")
RegisterUnitEvent(95435, 3, "OBrien_KilledTarget")
RegisterUnitEvent(95435, 2, "OBrien_OnLeaveCombat")

Fixed some speech and took away some of those annoying ..'s from the main part of the scripts lore. Changed those spawns for you to make it less of a cluster and more of a line of spawns.

First off, I like this script . It includes everything you need to make a boss fun to fight against!

BUT

It lacks that 'Punch' to make it unique.

+Rep's for you,

EDIT: Given out too much, will give it tomorrow. If I forget, PM ME!

Very nice thanks both of you...Vig for making it and of course nym for editing!

+Rep

[Schizzo92]

Nice M8 +rep another great job

[VictoRo]

Great job m8...You are coming along...

Wanted to give you some rep and also thank you for being one of the best staff I have

Thank you, enjoy the rep and keep it up...You are truly becoming a very valuable member...

~Wild~

thank you ~Wild~ (:

[Zaeran]

Nice script victor we're both learning and getting better
+Rep