[Service]LUA Workshop

[EcHoEs]

Hey ^^
I'm here again, offering my services.
Just request a LUA boss or something, and I will make it for you.
Include in request :
Creature ID
Name
Phases if you want any
Ability/Spell ID's
Other info if you want ^^

[VictoRo]

Hey EcHoEs, i have made a script, i think theres alot of bugs and such, minor/big things to be changed/added. Could you do that for me?

Unit:SendChatMessage(12, 0, "How dare you challenge Rick, The Mesmerizer!")
Unit:RegisterEvent("Rick_AbsorbVitality", 50000, 0)
Unit:RegisterEvent("Rick_BerserkerCharge", 1000, 1)
Unit:RegisterEvent("Rick_AbsorbVitality", 50000, 5)
Unit:RegisterEvent("Rick_AgonizingArmor", 70000, 6)
Unit:RegisterEvent("Rick_AmplifyDamage", 100000, 5)
Unit:RegisterEvent("Rick_ChainBurn", 40000, 5)
Unit:RegisterEvent("Mesmerizer_AncientDread",1000,0)
Unit:RegisterEvent("Mesmerizer_Rick",1000,0)
Unit:RegisterEvent("Mesmerizer_Rick",1000,0)
Unit:RegisterEvent("Rick_AncientHysteria", 80000, 5)
Unit:RegisterEvent("Rick_CataclysmicBolt", 90000, 5)
Unit:RegisterEvent("Rick_Anti-MagicShield", 100000, 5)
Unit:RegisterEvent("Rick_BaneofTreachery", 100000, 5)
Unit:RegisterEvent("Rick_DreamlessSleep", 120000, 5)
Unit:RegisterEvent("Rick_BloodSiphon", 130000, 20)
end

function Rick_BerserkerCharge(pUnit, Event)
if Unit:GetHealthPct() < 95 then
pUnit:FullCastSpellOnTarget(26561, pUnit:GetMainTank())
end

function Rick_AbsorbVitality(pUnit, Event)
if Unit:GetHealthPct() < 85 then
pUnit:SendChatMessage(12, 0, "Woops, i just took some of your Vitality didn't I?")
pUnit:CastSpell(32076, pUnit:GetRandomPlayer(0))
end

function Rick_AgonizingArmor(pUnit, Event)
if Unit:GetHealthPct() < 80 then
pUnit:SendChatMessage(12, 0, "How does it feel now, huh?!")
pUnit:FullCastSpellOnTarget(36836, pUnit:GetMainTank())
end

function Rick_AmplifyDamage(pUnit, Event)
if Unit:GetHealthPct() < 75 then
pUnit:SendChatMessage(12, 0, "If this doesn't kill you, I will!")
pUnit:CastSpell(39095, pUnit:GetMainTank())
end

function Rick_ChainBurn(pUnit, Event)
if Unit:GetHealthPct() < 70 then
pUnit:SendChatMessage(12, 0, "Hahah! Casters ain't so good nomore?!")
pUnit:CastSpell(24684, pUnit:GetRandomPlayer(4))
end

function Rick_AncientHysteria(pUnit, Event)
if Unit:GetHealthPct() < 60 then
pUnit:CastSpell(19372, pUnit:GetRandomPlayer(4))
end

function Rick_CataclysmicBolt(pUnit, Event)
if Unit:GetHealthPct() < 55 then
pUnit:SendChatMessage(12, 0, "Oh .. did i hurt you?!")
pUnit:CastSpell(38441, pUnit:GetRandomPlayer(0))
end

function Rick_BaneofTreachery(pUnit, Event)
if Unit:GetHealthPct() < 45 then
pUnit:SendChatMessage(12, 0, "Your begginning to annoy me!!")
pUnit:CastSpell(37566, pUnit:GetRandomPlayer(0))
end

function Rick_DreamlessSleep(pUnit, Event)
if Unit:GetHealthPct() < 35 then
pUnit:SendChatMessage(12, 0, "Hahah! Tired already?!")
pUnit:CastSpell(15822, pUnit:GetRandomPlayer(0))
end

function Rick_BloodSiphon(pUnit, Event)
if Unit:GetHealthPct() < 20 then
pUnit:SendChatMessage(12, 0, "Mhm .. it feels good when your blood runs through my veins!")
pUnit:CastSpell(41068, pUnit:GetRandomPlayer(0))
end

function Mesmerizer_Spawn(pUnit, Event)
if Unit:GetHealthPct() < 15 then
pUnit:SendChatMessage(12, 0, "Meet MY Minions!") 
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000)
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000)
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000)
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000)
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000)
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000)
pUnit:SpawnCreature(99993, 2, 2, 2, 2, 0, 90000000) 
end



function _OnLeaveCombat(Unit, Event)
Unit:RemoveEvents()
pUnit:SetModel (16416)
end

function _OnDied(Unit, Event)
Unit:RemoveEvents()
Unit:SendChatMessage(12, 0, "I .. i .. i have failed ..")
end

function _OnKilledTarget(Unit, Event)
Unit:SendChatMessage(12, 0, "Muahaha! You just got Mesmerized!")
end

RegisterUnitEvent(99992, 1, "_OnCombat")
RegisterUnitEvent(99992, 2, "_OnLeaveCombat")
RegisterUnitEvent(99992, 3, "_OnKilledTarget")
RegisterUnitEvent(99992, 4, "_OnDied")

[EcHoEs]

If you want to register every function in the beginning, you are missing alot of them. I removed the registering for you, and also fixed it. There is no need to register the functions with those timers because you use pUnit:GetHealthPct() which wont function unless the hp is below that %. Also, you should learn to register the other phases in the earlier phase.
E.g. Phase 1 registers phase 2, phase 2 registers phase 3 and so on.

If you want to make it cast spell multiple times, you should leave the GetHealthPct() and do it with RegisterEvent like ("Rick_BerserkerCharge", 5000, 0) This would cast Berserker Charge every 5 seconds until you do RemoveEvents.

The script below should work Please report back if it doesn't.
Ofcourse, there is other ways to repair the script too, but that is propably the most clean way ^^

function Rick_EnterCombat(pUnit, Event)
pUnit:SendChatMessage(12, 0, "How dare you challenge Rick, The Mesmerizer!")
pUnit:RegisterEvent("Rick_BerserkerCharge", 1000, 0)
end

function Rick_BerserkerCharge(pUnit, Event)
if pUnit:GetHealthPct() < 95 then
pUnit:FullCastSpellOnTarget(26561, pUnit:GetMainTank())
pUnit:RegisterEvent("Rick_AbsorbVitality", 1000, 0)
end
end

function Rick_AbsorbVitality(pUnit, Event)
if pUnit:GetHealthPct() < 85 then
pUnit:SendChatMessage(12, 0, "Woops, i just took some of your Vitality didn't I?")
pUnit:CastSpell(32076, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Rick_AgonizingArmor", 1000, 0)
end
end

function Rick_AgonizingArmor(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
pUnit:SendChatMessage(12, 0, "How does it feel now, huh?!")
pUnit:FullCastSpellOnTarget(36836, pUnit:GetMainTank())
pUnit:RegisterEvent("Rick_AmplifyDamage", 1000, 0)
end
end

function Rick_AmplifyDamage(pUnit, Event)
if pUnit:GetHealthPct() < 75 then
pUnit:SendChatMessage(12, 0, "If this doesn't kill you, I will!")
pUnit:CastSpell(39095, pUnit:GetMainTank())
pUnit:RegisterEvent("Rick_ChainBurn", 1000, 0)
end
end

function Rick_ChainBurn(pUnit, Event)
if pUnit:GetHealthPct() < 70 then
pUnit:SendChatMessage(12, 0, "Hahah! Casters ain't so good nomore?!")
pUnit:CastSpell(24684, pUnit:GetRandomPlayer(4))
pUnit:RegisterEvent("Rick_AncientHysteria", 1000, 0)
end
end

function Rick_AncientHysteria(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:CastSpell(19372, pUnit:GetRandomPlayer(4))
pUnit:RegisterEvent("Rick_CataclysmicBolt", 1000, 0)
end
end

function Rick_CataclysmicBolt(pUnit, Event)
if pUnit:GetHealthPct() < 55 then
pUnit:SendChatMessage(12, 0, "Oh .. did i hurt you?!")
pUnit:CastSpell(38441, pUnit:GetRandomPlayer(0))
pUnit:RegisterUnitEvent("Rick_BaneofTreachery", 1000, 0)
end
end

function Rick_BaneofTreachery(pUnit, Event)
if pUnit:GetHealthPct() < 45 then
pUnit:SendChatMessage(12, 0, "Your begginning to annoy me!!")
pUnit:CastSpell(37566, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Rick_DreamlessSleep", 1000, 0)
end
end

function Rick_DreamlessSleep(pUnit, Event)
if pUnit:GetHealthPct() < 35 then
pUnit:SendChatMessage(12, 0, "Hahah! Tired already?!")
pUnit:CastSpell(15822, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Rick_BloodSiphon", 1000, 0)
end
end

function Rick_BloodSiphon(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:SendChatMessage(12, 0, "Mhm .. it feels good when your blood runs through my veins!")
pUnit:CastSpell(41068, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Mesmerizer_Spawn", 1000, 0)
end
end

function Mesmerizer_Spawn(pUnit, Event)
if pUnit:GetHealthPct() < 15 then
pUnit:SendChatMessage(12, 0, "Meet MY Minions!")
X=pUnit:GetX()
Y=pUnit:GetY()
Z=pUnit:GetZ()
O=pUnit:GetO()
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
end
end

function _OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
pUnit:SetModel (16416)
end

function _OnDied(pUnit, Event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(12, 0, "I .. i .. i have failed ..")
end

function _OnKilledTarget(pUnit, Event)
pUnit:SendChatMessage(12, 0, "Muahaha! You just got Mesmerized!")
end

RegisterUnitEvent(99992, 1, "_OnCombat")
RegisterUnitEvent(99992, 2, "_OnLeaveCombat")
RegisterUnitEvent(99992, 3, "_OnKilledTarget")
RegisterUnitEvent(99992, 4, "_OnDied")

[zozoka]

i`m sorry here is my script:

 local npcid = 112112

function On_Gossip(pUnit, event, player)
	pUnit:GossipCreateMenu(100, player, 0)
	pUnit:GossipMenuAddItem(0, "noJIy4uTe CBOu nPu3!", 7, 0)
	pUnit:GossipSendMenu(player)
end

function Gossip_Submenus(pUnit, event, player, id, intid, code)
if(intid == 7) then
	pUnit:GossipCreateMenu(100, player, 0)
	pUnit:GossipMenuAddItem(0, "Night Watch Coins", 5, 0)
	pUnit:GossipSendMenu(player)
        pUnit:SendChatMessage(13, 0, "HawJIu CblHa XyJIuraHa!!")
end

if(intid == 5) then
	player:AddItem(34822, 10)
	pUnit:NoRespawn(1)
	pUnit:GossipComplete(player)
end
end

RegisterUnitGossipEvent(112112,1,"On_Gossip")
RegisterUnitGossipEvent(112112,2,"Gossip_Submenus")

Plz help me so i need 2 thing
1) that the message "HaWJIu CblHa..." have been announced to ALL if it possible can you make it like a widescreenmessage?
2) i need that NPC will randomly change his position

AllowSpawn = 1

function MeHT_Quest_onAccept (pUnit, Event)
   if (AllowSpawn == 1) then
      spin = math.random (1, 4)
      
      if (spin == 1) then
         pUnit:SpawnCreature (112112, 16223.099, 16251.40, 12.529, 1.17511, 14, 50)
           AllowSpawn = 0
      elseif (spin == 2) then
         pUnit:SpawnCreature (112112, 939.0, -852.46, 114.644, 1.17511, 14, 50)
         AllowSpawn = 0
      elseif (spin == 3) then
         pUnit:SpawnCreature (112112, 1184.07, -553.43, 71.3346, 1.17511, 14, 50)
         AllowSpawn = 0
      elseif (spin == 4) then
         pUnit:SpawnCreature (112112, 1001.20, -793.93, 108.65, 1.17511, 14, 50)
         AllowSpawn = 0
 else
         print ("Error: QUEST - Ya - Wanted Baron Vardus.lua: function block Baron_Vardus_Quest_onAccept() - invalid number rolled")
      end
   end
end

function CblH_XyJIurAHa_onDespawn (pUnit, Event)
   AllowSpawn = 1
end

RegisterUnitEvent (115115, 6, "MeHT_Quest_onAccept") 
RegisterUnitEvent (112112, 4, "CblH_XyJIurAHa_onDespawn")

I want to make that when someone take quest ( id=100000) creature (id=112112) will randomly spawn, and when you will find him and take the claim, he will despawn, quest will be repeatable, so i need that creature will randomly spawn

Hope you can help me

[VictoRo]

If you want to register every function in the beginning, you are missing alot of them. I removed the registering for you, and also fixed it. There is no need to register the functions with those timers because you use pUnit:GetHealthPct() which wont function unless the hp is below that %. Also, you should learn to register the other phases in the earlier phase.
E.g. Phase 1 registers phase 2, phase 2 registers phase 3 and so on.

If you want to make it cast spell multiple times, you should leave the GetHealthPct() and do it with RegisterEvent like ("Rick_BerserkerCharge", 5000, 0) This would cast Berserker Charge every 5 seconds until you do RemoveEvents.

The script below should work Please report back if it doesn't.
Ofcourse, there is other ways to repair the script too, but that is propably the most clean way ^^

function Rick_EnterCombat(pUnit, Event)
pUnit:SendChatMessage(12, 0, "How dare you challenge Rick, The Mesmerizer!")
pUnit:RegisterEvent("Rick_BerserkerCharge", 1000, 0)
end

function Rick_BerserkerCharge(pUnit, Event)
if pUnit:GetHealthPct() < 95 then
pUnit:FullCastSpellOnTarget(26561, pUnit:GetMainTank())
pUnit:RegisterEvent("Rick_AbsorbVitality", 1000, 0)
end
end

function Rick_AbsorbVitality(pUnit, Event)
if pUnit:GetHealthPct() < 85 then
pUnit:SendChatMessage(12, 0, "Woops, i just took some of your Vitality didn't I?")
pUnit:CastSpell(32076, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Rick_AgonizingArmor", 1000, 0)
end
end

function Rick_AgonizingArmor(pUnit, Event)
if pUnit:GetHealthPct() < 80 then
pUnit:SendChatMessage(12, 0, "How does it feel now, huh?!")
pUnit:FullCastSpellOnTarget(36836, pUnit:GetMainTank())
pUnit:RegisterEvent("Rick_AmplifyDamage", 1000, 0)
end
end

function Rick_AmplifyDamage(pUnit, Event)
if pUnit:GetHealthPct() < 75 then
pUnit:SendChatMessage(12, 0, "If this doesn't kill you, I will!")
pUnit:CastSpell(39095, pUnit:GetMainTank())
pUnit:RegisterEvent("Rick_ChainBurn", 1000, 0)
end
end

function Rick_ChainBurn(pUnit, Event)
if pUnit:GetHealthPct() < 70 then
pUnit:SendChatMessage(12, 0, "Hahah! Casters ain't so good nomore?!")
pUnit:CastSpell(24684, pUnit:GetRandomPlayer(4))
pUnit:RegisterEvent("Rick_AncientHysteria", 1000, 0)
end
end

function Rick_AncientHysteria(pUnit, Event)
if pUnit:GetHealthPct() < 60 then
pUnit:CastSpell(19372, pUnit:GetRandomPlayer(4))
pUnit:RegisterEvent("Rick_CataclysmicBolt", 1000, 0)
end
end

function Rick_CataclysmicBolt(pUnit, Event)
if pUnit:GetHealthPct() < 55 then
pUnit:SendChatMessage(12, 0, "Oh .. did i hurt you?!")
pUnit:CastSpell(38441, pUnit:GetRandomPlayer(0))
pUnit:RegisterUnitEvent("Rick_BaneofTreachery", 1000, 0)
end
end

function Rick_BaneofTreachery(pUnit, Event)
if pUnit:GetHealthPct() < 45 then
pUnit:SendChatMessage(12, 0, "Your begginning to annoy me!!")
pUnit:CastSpell(37566, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Rick_DreamlessSleep", 1000, 0)
end
end

function Rick_DreamlessSleep(pUnit, Event)
if pUnit:GetHealthPct() < 35 then
pUnit:SendChatMessage(12, 0, "Hahah! Tired already?!")
pUnit:CastSpell(15822, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Rick_BloodSiphon", 1000, 0)
end
end

function Rick_BloodSiphon(pUnit, Event)
if pUnit:GetHealthPct() < 20 then
pUnit:SendChatMessage(12, 0, "Mhm .. it feels good when your blood runs through my veins!")
pUnit:CastSpell(41068, pUnit:GetRandomPlayer(0))
pUnit:RegisterEvent("Mesmerizer_Spawn", 1000, 0)
end
end

function Mesmerizer_Spawn(pUnit, Event)
if pUnit:GetHealthPct() < 15 then
pUnit:SendChatMessage(12, 0, "Meet MY Minions!")
X=pUnit:GetX()
Y=pUnit:GetY()
Z=pUnit:GetZ()
O=pUnit:GetO()
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
pUnit:SpawnCreature(99993, X + 2, Y + 2, Z, O, 0, 90000000)
end
end

function _OnLeaveCombat(pUnit, Event)
pUnit:RemoveEvents()
pUnit:SetModel (16416)
end

function _OnDied(pUnit, Event)
pUnit:RemoveEvents()
pUnit:SendChatMessage(12, 0, "I .. i .. i have failed ..")
end

function _OnKilledTarget(pUnit, Event)
pUnit:SendChatMessage(12, 0, "Muahaha! You just got Mesmerized!")
end

RegisterUnitEvent(99992, 1, "_OnCombat")
RegisterUnitEvent(99992, 2, "_OnLeaveCombat")
RegisterUnitEvent(99992, 3, "_OnKilledTarget")
RegisterUnitEvent(99992, 4, "_OnDied")

It doesn't work .. it says something about an invalid function "_OnCombat" ascent (unit)! ..
it works well when it kills a target and dies .. but not on leave and combat ..

[Lukas 45]

Can you make the L70ETC's make random emote's?

Singer:
ID: 23625
Emote's: 402, 403, 404, 405, 406, 407, 408

Bass:
ID: 23624
Emote's: 402, 403, 404, 405

Guitar BE:
ID: 23626
Emote's: 402, 403, 404, 405, 406

Guitar UD:
ID: 23619
Emote's: 402, 403, 404, 405, 406

Drummer:
ID: 23623
Emote's: 402, 403, 404, 405, 406

[Cern]

Anyway, its great!

[Lukas 45]

Still doing the requestes???

[teddytechbearno]

Do you have aim or msn i have a spaciic one