[Service] LUA Boss Scripting.

[Ground Zero]

Theo's LUA Service.
I will be taking Requests for Scripts for Mobs and Bosses only at the moment.
I can script a boss to do... Phases/Spells/Text/On%ofHp and much more.

Reply here if your interested

[Jonthe838]

can u make a script to me?
i need a script to a boss that should summon minions at 75% 50% 30% 15% and 5% hp, he should be a DK so make him cast DK spells.
he Should Scream Something like: " You stand no chance against the Scourge! Bow before your new master!" and u know those normal things a scourge boss should scream.
when he get 30%hp should he get enranged and make more damage.
if a player dies trying to fight the boss, the boss should summon a zombie out of his body.
He should Stun when he have 10% hp and get a buff.
and make aoe a few times too ^^ hope it aint to mutch work :P

[Ground Zero]

Ill make it, you need to make the creature and the Minions tho! And you will need to change the script to the ID's of your creatures etc...

[Ground Zero]

Here you go. Edit to your liking

~~~~~~~~~~~~~~
~ Made By xEliteX~~~
~ of MMowned~~~~~
~~~~~~~~~~~~~~

function DK_Boss_OnCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "You Think You Can Deafeat Death Itself? Hah, I welcome you to try!")
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
pUnit:RegisterEvent("DK_Boss_Beginning", 100, 0)
end

function DK_Boss_OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
end

function DK_Boss_OnKillTarget(pUnit, Event)
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
end

function DK_Boss_OnDeath(pUnit, Event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(14, 0, "No...This....cannot....be....how....could...I...be...deafeated....by......you...")
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
end

RegisterUnitEvent(0000000, 1, "DK_Boss_OnCombat")
RegisterUnitEvent(0000000, 2, "DK_Boss_OnLeaveCombat")
RegisterUnitEvent(0000000, 3, "DK_Boss_OnKillTarget")
RegisterUnitEvent(0000000, 4, "DK_Boss_OnDeath")

function DK_Boss_Enrage(pUnit, Event)
pUnit:FullCastSpell(42705)
end

function DK_Boss_Blood_Boil(pUnit, Event)
pUnit:FullCastSpellOnTarget(55974, pUnit:GetClosestPlayer())
end

function DK_Boss_Death_And_Decay(pUnit, Event)
pUnit:FullCastSpellOnTarget(61603, pUnit:GetClosestPlayer())
end

function DK_Boss_Undead_Ghoul(pUnit, Event)
local X = pUnit:GetX()
local Y = pUnit:GetY()
local Z = pUnit:GetZ()
local O = pUnit:GetO()
pUnit:SpawnCreature(0000000, X, Y, Z, O, 21, 0)
end

function DK_Boss_Minion(pUnit, Event)
local X = pUnit:GetX()
local Y = pUnit:GetY()
local Z = pUnit:GetZ()
local O = pUnit:GetO()
pUnit:SpawnCreature(0000000, X, Y, Z, O, 21, 0)
end

function DK_Boss_Beginning(pUnit, Event)
if pUnit:GetHealthPct() <= 75 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Blood_Boil", math.random(300, 500), 0)
pUnit:RegisterEvent("DK_Boss_Middle", 100, 0)
pUnit:SendChatMessage(14, 0, "Hah. I underestimated You! However, You shall still fall by my hands!")
end
end

function DK_Boss_Middle(pUnit, Event)
if pUnit:GetHealthPct() <= 50 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Death_And_Decay", math.random(300, 500), 0)
pUnit:RegisterEvent("DK_Boss_Ending", 100, 0)
pUnit:SendChatMessage(14, 0, "This cannot be, you are the strongest foe I have ever fought, Still! You shall not leave here alive!")
end
end

function DK_Boss_Ending(pUnit, Event)
if pUnit:GetHealthPct() <= 25 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Enrage", math.random(300, 500), 0)
pUnit:SendChatMessage(14, 0, "Now I am Really Annoyed! Death Shall Choke you!")
end
end

Goodnight. Ill be on tomorrow now.

[sadgonewild]

Do something different.

[Ground Zero]

Like what? That is what he requested for.

[Jonthe838]

Here you go. Edit to your liking

~~~~~~~~~~~~~~
~ Made By xEliteX~~~
~ of MMowned~~~~~
~~~~~~~~~~~~~~

function DK_Boss_OnCombat(pUnit, Event)
pUnit:SendChatMessage(14, 0, "You Think You Can Deafeat Death Itself? Hah, I welcome you to try!")
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
pUnit:RegisterEvent("DK_Boss_Beginning", 100, 0)
end

function DK_Boss_OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
end

function DK_Boss_OnKillTarget(pUnit, Event)
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
end

function DK_Boss_OnDeath(pUnit, Event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(14, 0, "No...This....cannot....be....how....could...I...be...deafeated....by......you...")
pUnit:RegisterEvent("DK_Boss_Minion", math.random(5000, 90000), 0)
end

RegisterUnitEvent(0000000, 1, "DK_Boss_OnCombat")
RegisterUnitEvent(0000000, 2, "DK_Boss_OnLeaveCombat")
RegisterUnitEvent(0000000, 3, "DK_Boss_OnKillTarget")
RegisterUnitEvent(0000000, 4, "DK_Boss_OnDeath")

function DK_Boss_Enrage(pUnit, Event)
pUnit:FullCastSpell(42705)
end

function DK_Boss_Blood_Boil(pUnit, Event)
pUnit:FullCastSpellOnTarget(55974, pUnit:GetClosestPlayer())
end

function DK_Boss_Death_And_Decay(pUnit, Event)
pUnit:FullCastSpellOnTarget(61603, pUnit:GetClosestPlayer())
end

function DK_Boss_Undead_Ghoul(pUnit, Event)
local X = pUnit:GetX()
local Y = pUnit:GetY()
local Z = pUnit:GetZ()
local O = pUnit:GetO()
pUnit:SpawnCreature(0000000, X, Y, Z, O, 21, 0)
end

function DK_Boss_Minion(pUnit, Event)
local X = pUnit:GetX()
local Y = pUnit:GetY()
local Z = pUnit:GetZ()
local O = pUnit:GetO()
pUnit:SpawnCreature(0000000, X, Y, Z, O, 21, 0)
end

function DK_Boss_Beginning(pUnit, Event)
if pUnit:GetHealthPct() <= 75 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Blood_Boil", math.random(300, 500), 0)
pUnit:RegisterEvent("DK_Boss_Middle", 100, 0)
pUnit:SendChatMessage(14, 0, "Hah. I underestimated You! However, You shall still fall by my hands!")
end
end

function DK_Boss_Middle(pUnit, Event)
if pUnit:GetHealthPct() <= 50 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Death_And_Decay", math.random(300, 500), 0)
pUnit:RegisterEvent("DK_Boss_Ending", 100, 0)
pUnit:SendChatMessage(14, 0, "This cannot be, you are the strongest foe I have ever fought, Still! You shall not leave here alive!")
end
end

function DK_Boss_Ending(pUnit, Event)
if pUnit:GetHealthPct() <= 25 then
pUnit:RemoveEvents()
pUnit:RegisterEvent("DK_Boss_Enrage", math.random(300, 500), 0)
pUnit:SendChatMessage(14, 0, "Now I am Really Annoyed! Death Shall Choke you!")
end
end

Goodnight. Ill be on tomorrow now.

Thx great will test it now +Rep when i can >.< ^^

[Ezikielth]

Well, I am looking for a boss that will spawn in the throne room of UC. He will not do any melee and he will teleport to the top of one of the balconys at 10% increments and cast blizzard in a diff part of the room each time. While fighting him he will mind control a player and not do anything but be the player, damage inflicted to the player will hurt him... this might not be possible in LUA...

I am willing allow you to test things on my server.

MSN me [email protected]

[gandrasoft]

well this isnt much of a request for a script is more of a request for help....
ok..ive been trying to learn LUA i tried to made some simple scripts but none fo them works...i allways get a error on the world-server console "tried to call invalid lua function '[name]OnCombat' from arcemu (Unit)!....

here is a example of one of the scripts i made...

function Najentus_impalingspine(pUnit, Event)
	print "najentus impaling spine"
	pUnit:CastSpellOnTarget(39837, pUnit:GetRandomPlayer(0))
	pUnit:SendChatMessage(11, 0, "SOU UM RAÇUDO DO KARALHO")
end

function Najentus_needlespine(pUnit, Event)
	print "najentus needle spine"
	pUnit:FullCastSpellOnTarget(39835,Unit:GetRandomPlayer(0))
	pUnit:SendChatMessage(11, 0, "tenh k fazer ist 3X")
end

function Najentus_OnCombat(pUnit, Event)
	print "Najentus"
	pUnit:RegisterEvent("Najentus_impalingspine",10000,0)
	pUnit:RegisterEvent("Najentus_needlespine",13000,3)
end

function Najentus_OnKilledTarget (pUnit, Event)
	
end

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

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

RegisterUnitEvent(22887, 1, "Najetus_OnCombat")
RegisterUnitEvent(22887, 2, "Najetus_OnLeaveCombat")
RegisterUnitEvent(22887, 3, "Najetus_OnKilledTarget")
RegisterUnitEvent(22887, 4, "Najetus_OnDied")

can u help me out finding out where the error is..?

PS: i made this script by editing some of the tavarok's script by the Staff of ArcScript Project

i think is apropriate to give credits to them....

[svedin]

function Najetus_OnCombat(pUnit, Event)
function Najentus_impalingspine(pUnit, Event)
	print "najentus impaling spine"
	pUnit:CastSpellOnTarget(39837, pUnit:GetRandomPlayer(0))
	pUnit:SendChatMessage(11, 0, "SOU UM RAÇUDO DO KARALHO")
end

function Najentus_needlespine(pUnit, Event)
	print "najentus needle spine"
	pUnit:FullCastSpellOnTarget(39835,Unit:GetRandomPlayer(0))
	pUnit:SendChatMessage(11, 0, "tenh k fazer ist 3X")
end

function Najentus_OnCombat(pUnit, Event)
	print "Najentus"
	pUnit:RegisterEvent("Najentus_impalingspine",10000,0)
	pUnit:RegisterEvent("Najentus_needlespine",13000,3)
end

function Najentus_OnKilledTarget (pUnit, Event)
	
end

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

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

RegisterUnitEvent(22887, 1, "Najetus_OnCombat")
RegisterUnitEvent(22887, 2, "Najetus_OnLeaveCombat")
RegisterUnitEvent(22887, 3, "Najetus_OnKilledTarget")
RegisterUnitEvent(22887, 4, "Najetus_OnDied")

try it now i think you just missed this "function Najetus_OnCombat(pUnit, Event)" im not sure

[gandrasoft]

fixed....

mistype(missing N) in:

RegisterUnitEvent(22887, 1, "NajeNtus_OnCombat")
RegisterUnitEvent(22887, 2, "NajeNtus_OnLeaveCombat")
RegisterUnitEvent(22887, 3, "NajeNtus_OnKilledTarget")
RegisterUnitEvent(22887, 4, "NajeNtus_OnDied")

[svedin]

Hahaha! nice ^^

[grothar1993]

Is there anything else then to make them do it, OnCombat?, like OnTakeDamage? or sumthing...

Cause I need a unit to cast a spell a little now & then, randomly. & pick a random friendly target... he's casting a heal.

So I need like a

Function Priest_Heal(Unit, Event)
Unit:FullCastSpellOnTarget(55459, Unit:GetRandomFriend())
end

Unit:RegisterUnitEvent... and so on

Could you help me plz? +rep if u help me

[Gosko]

Hey I was wondering if you could script Highlord Bolvar Fordragon (my hero ) I guess kind of make his spells of what a paladin would use ^^ Like he bubbles/heals when he gets low... Does a consecration (Just some ideas you don't have to use those) Thanks ahead of time and +Rep!

[light8264]

I was wondering if you could make a boss script for a boss. It would be the lich king so he should cast some Dk spells and say stuff like "Fall by the hands of the one true king" or something like that. He should also cast Death and Decay (if possible). and when he hits 30% he should enrage with 100% damage.
Please and thank you