[Release]Custom Lua Boss (My First Lua)

[y2kss66]

This is my first ever lua script. So here it goes. It is one boss but due to lack of understanding, I had to make it into three lua files. There are three major phases. This boss is spawned on GM Island in my server and so that is what all of the coordinates refer to. you may change them if you like. This NPC mainly has one unique thing to him. He teleports a random player in your group to another location where he will fight him alone and then teleports back later on.
Here are the scripts enjoy:

function Satan_p1(pUnit, Event)
 if pUnit:GetHealthPct() < 90 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "You have seen death, and now you must feel it!")
  pUnit:FullCastSpell(59172, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(42926, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p2",1000, 0)
 end
end
 
function Satan_p2(pUnit, Event)
 if pUnit:GetHealthPct() < 80 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "The underworld will rise!")
  pUnit:FullCastSpell(59172, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p3",1000, 0)
 end
end
 
function Satan_p3(pUnit, Event)
 if pUnit:GetHealthPct() < 72 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "Do you believe in heaven? Cause your in HELL!")
  pUnit:FullCastSpell(47857, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p4",1000, 0)
 end
end

function Satan_p4(pUnit, Event)
 if pUnit:GetHealthPct() < 60 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "I am the Prince of Darkness!")
  pUnit:FullCastSpell(54322, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p5",1000, 0)
 end
end

function Satan_p5(pUnit, Event)
 if pUnit:GetHealthPct() < 50 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "I shall not be defeated!!")
  pUnit:FullCastSpell(48158, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p6",1000, 0)
 end
end

function Satan_p6(pUnit, Event)
 if pUnit:GetHealthPct() < 35 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "You will be made to serve me!")
  pUnit:FullCastSpell(38840)
  pUnit:CastSpell(48125, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(48125, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p7",1000, 0)
 end
end

function Satan_p7(pUnit, Event)
 if pUnit:GetHealthPct() < 20 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "Come forth Angels of Darkness")
      x = pUnit:GetX();
      y = pUnit:GetY();
      z = pUnit:GetZ();
      o = pUnit:GetO();
  pUnit:SpawnCreature(95436, x+5, y+5, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+4, y+4, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+3, y+3, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+2, y+2, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+1, y+1, z, o, 72, 60000)
  pUnit:CastSpell(47820, pUnit:GetRandomPlayer(0))
  pUnit:FullCastSpell(42859, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p8",1000, 0)
 end
end

function Satan_p8(pUnit, Event)
 if pUnit:GetHealthPct() < 7 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "It will take more than that to be rid of me!")
  pUnit:SetHealthPct(100)
  pUnit:RegisterEvent("Satan_p9",1000, 0)
 end
end

function Satan_p9(pUnit, Event)
 if pUnit:GetHealthPct() < 90 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage(12, 0, "Are you so Ignorant? Do you not know who I am? I am the Dark Lord Himself. I am Satan!")
  pUnit:FullCastSpell(47825, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p10",1000, 0)
 end
end

function Satan_p10(pUnit, Event)
 if pUnit:GetHealthPct() < 60 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "Come forth Angels of Darkness and aid me once again!")
      x = pUnit:GetX();
      y = pUnit:GetY();
      z = pUnit:GetZ();
      o = pUnit:GetO();
  pUnit:SpawnCreature(95436, x+5, y+5, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+4, y+4, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+3, y+3, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+2, y+2, z, o, 72, 60000)
  pUnit:SpawnCreature(95436, x+1, y+1, z, o, 72, 60000)
  pUnit:RegisterEvent("Satan_p11",1000, 0)
 end
end


function Satan_p11(pUnit, Event)
 if pUnit:GetHealthPct() < 30 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "Bow before your master!")
  pUnit:CastSpell(47857, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(48125, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(47862, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(47843, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satan_p12",1000, 0)
 end
end

function Satan_p12(pUnit, Event)
 if pUnit:GetHealthPct() < 20 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "Face me coward... In my domain!")
  pUnit:Despawn(1, 0)
  pUnit:SpawnCreature(95437, 16227, 16402, -64.38, 1.615564, 233, 0)
  local Target = pUnit:GetRandomPlayer(0)
  Target:Teleport(1, 16228, 16395, -64.37)
 end
end

function Satan_OnEnterCombat(pUnit, Event)
  pUnit:RegisterEvent("Satan_p1",1000, 0)
  pUnit:SendChatMessage (12, 0, "You stand before the power of Hell and all of its glory!")
 end

function Satan_OnLeaveCombat(pUnit, Event)
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "I am the force to reckon with. You were no match for me!")
 end

RegisterUnitEvent(95435, 1, "Satan_OnEnterCombat")
RegisterUnitEvent(95435, 2, "Satan_OnLeaveCombat")

Part 2:

function Satantwo_p1(pUnit, Event)
  pUnit:SetHealthPct(20)
  pUnit:RemoveEvents();
  pUnit:RegisterEvent("Satantwo_p2", 1000, 0)
end

function Satantwo_p2(pUnit, Event)
if pUnit:GetHealthPct() < 15 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "You should have listened. No matter, you shall perish!")
  pUnit:SetScale(2)
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satantwo_p3", 1000, 0)
 end
end

function Satantwo_p3(pUnit, Event)
 if pUnit:GetHealthPct() < 10 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "My domain is no more...")
  pUnit:Despawn(1, 0)
  pUnit:SpawnCreature(95438, 16229.85, 16295.993, 30.777, 2, 233, 0)
  local Target = pUnit:GetRandomPlayer(0)
  Target:Teleport(1, 16227.9, 16300, 30.1)
 end
end

function Satantwo_OnEnterCombat(pUnit, Event)
  pUnit:RegisterEvent("Satantwo_p1",1000, 0)
  pUnit:SendChatMessage (12, 0, "What is it you desire?")
 end


function Satantwo_OnLeaveCombat(pUnit, Event)
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "You were no match in my Domain")
 end

RegisterUnitEvent(95437, 1, "Satantwo_OnEnterCombat")
RegisterUnitEvent(95437, 2, "Satantwo_OnLeaveCombat")

part 3:

function Satanthree_p1(pUnit, Event)
  pUnit:SetHealthPct(10)
  pUnit:RemoveEvents();
  pUnit:RegisterEvent("Satanthree_p2", 1000, 0)
end

function Satanthree_p2(pUnit, Event)
if pUnit:GetHealthPct() < 5 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "You should have listened. No matter, you shall perish!")
  pUnit:SetScale(2)
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:CastSpell(5, pUnit:GetRandomPlayer(0))
  pUnit:RegisterEvent("Satanthree_p3", 1000, 0)
 end
end

function Satanthree_p3(pUnit, Event)
if pUnit:GetHealthPct() < 1 then
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "You have not seen the last of me!")
  pUnit:FullCastSpell(50438)
  pUnitR:RegeisterEvent("Satanthree_Died", 1000, 0)
 end
end

function Satanthree_OnEnterCombat(pUnit, Event)
  pUnit:RegisterEvent("Satanthree_p1",1000, 0)
  pUnit:SendChatMessage (12, 0, "My energy where has it gone?")
 end

function Satanthree_OnLeaveCombat(pUnit, Event)
  pUnit:RemoveEvents();
  pUnit:SendChatMessage (12, 0, "Is this that all you have?")
 end

function Satanthree_Died(pUnit, Event)
  pUnit:SendChatMessage (12, 0, "It was not supposed to be this way....")
  pUnit:RemoveEvents();
 end

RegisterUnitEvent(95438, 1, "Satanthree_OnEnterCombat")
RegisterUnitEvent(95438, 2, "Satanthree_OnLeaveCombat")
RegisterUnitEvent(95438, 4, "Satanthree_Died")

and lastly here is a link for you to download if you don't like copying and pasting:
DOWNLOAD NOW!
credits go to
zaeran ( for I was looking at his scripts when I made these)
SeactorSeven (I followed his guides)
HalestormXV(of Arcemu for helping me with the teleports)
ME (I scripted it ~YAY~)

Edit: the password is "y2kss66"

[bsod-staff14]

When I first met ya you was a noob you improved

[Edude]

OMFG, this is a very good script for a starter.
If you continue like this, you'll become pro in no-time =)
+Rep

[Hermess]

Nice for a learner+rep

[y2kss66]

thanks everyone I am going to continue to script and hope for the best.
edit: anyone else got any ideas for me to script?

What does do the rest of you people think about this script?

[gangstagreen]

Tight work, my friend, Tight work

[y2kss66]

thanks it only took me 5 days to work all of the bugs also.

[Appled]

Very EPIC! 2x+Rep
1x +Rep from good english ^^
1x +Rep from good work

[stoneharry]

Indeed this is good for a starter, although I would of put it all into one big script to save space etc :P Like the idea of teleporting them and you put all the credits honoustly. +Rep
Edit: 24/cd. Remind me to do it later

[y2kss66]

thanks for all of the comments and Stoneharry the reason I didn't put them into one script was because I could not get the npc to start at a certain heath percentage with only one npc and script. but thanks for the positive feedback. Oh and Apple's_Ascent, grammar is one of my pet peeves. so that is why I use good English.

[Ground Zero]

This is a really good script for a starter +Rep

[y2kss66]

x Elite x I did not get your +Rep point.

Thanks x Elite x

[Ground Zero]

Here you go, I forgot. Somthing popped up. +rep

[y2kss66]

Bumpz!! What do you guys think!

[svedin]

Nice script ^^

+Rep to you

//Svedin