[Epic][Release][LUA] Priestess Eelira

[orco6]

+++rep exacute! nice work. but i have a question and it´s not about your script.

I´ve made a simple gameobject script to summon a npc at the player who clicked the gameobject position. here´s the code:

function footmanarmy_OnUse(pUnit,event)

x = pUnit:GetX();
y = pUnit:GetY();
z = pUnit:GetZ();
o = pUnit:GetO();

pUnit:SpawnCreature(17257, x, y, z, o, 80, 43200000);
end
RegisterGameObjectEvent(1000084, 2, "footmanarmy_OnUse");

is something wrong with my code? I´ve made the script with notepad, changed the extension of it to .lua and had saved it in the scripts folder in my "Scripted's 2.4.3 Blizzlike Repack" (can´t remember who made it). The gameobject in question its a gameobject with id 1000084 and its a button (code 1 in mysql) and still the script doesn´t work when i click it in game. What´s possibly could be wrong? It´s because it hasn´t been loaded in the arc-emu world.exe when i open the server? What can i do to make it be loaded? (Obs: i know it won´t summon a footman but magtheridon. This is just a test script. )

[Exacute]

Hehe remember the rep.. havent received it
.. anyway the script.. try

! remember to save it in "scripts" as a .lua !

function footmanarmy_OnUse(pUnit,event)
local x = pUnit:GetX();
local y = pUnit:GetY();
local z = pUnit:GetZ();
local o = pUnit:GetO();
pUnit:SpawnCreature(17257, x , y , z, o, 80, 43200000)
end

RegisterGameObjectEvent(1000084, 2, "footmanarmy_OnUse");

if it dosnt work try look in your world.exe for the filename.. then tell what it give of error

[AzolexX]

Exacute man you are leecher you copy pasted Script From Halestorm,Changed Name and Some Things and didnt Post Credits for "Template" as you should or Idea or Anything you used.if you use other Peoples scripts that doesnt make you bad in Lua but it easyers your work. You Should post Credits even for 1% of Script!!!!!

[Exacute]

as i told before.. (try read tread first n00b!)
i were his dev and he released MY facking work.. this is anyway a improve if my previus work!! so get off!

[AzolexX]

ok if you say i am noob than i am noob....or better to say n00b!

[Exacute]

0.o that did make no sense at all.. anyway keep to topic!

[vibbaboy]

there is a problem with the code becaus when she spawn lolth they stop both are green friendly nothing more happends and that is aften one punch of her

[Exacute]

ehm yes they become friendly, have conversation, lolth despawn and she continue te fight

[orco6]

First of all thanks for the help exacute. Now im seeing my script being loaded in arc-emu world.exe and its cool but when i spawn the gameobject in game and click it. Nothing happens, no message, no spawn, just nothing. My script its .lua and its in scripts folder. What´s could be wrong? This is really weird :confused: Ah another guy told me in other thread that i should change the type of the gameobject in mysql to 10 (goober). Its was type 1 (button). This make any diference? This could be the reason why the doesn´t work? The most strange thing for me is that no spawn happens and no message is given in game or in the console.
OK Im writing this text after my searching of how to enable the console logging and now it´s on and its on level 3. The only message the console give me when i click the gameobject is World: CSMG_GAMEOBJ_USE: [GUID 1] that´s all, no spawn no error message. Man this script is essential for a project im eschematizing now (lol this word exists?) i can´t understand how a simple script doesn´t want to work at all! This should have worked a long time ago. There´s no error in the code, no error message is given, the script is in scripts folder, lua enabled, console logging enable, the gameobject is a button, its properly created in mysql, the script is loaded in arc-emu world.exe. No error message on loading it. So why this #$%*@ script can´t just work? Here´s the code again:

function footmanarmy_OnUse(pUnit,event)

local x = pUnit:GetX();
local y = pUnit:GetY();
local z = pUnit:GetZ();
local o = pUnit:GetO();

pUnit:SpawnCreature(17211, x , y , z, o, 80, 43200000);
end

RegisterGameObjectEvent(1000084, 2, "footmanarmy_OnUse");

[Arthas117]

It's all good, but these print commands will get the server to laag and if fighted two or more times at the same time it will even crash... Simply remove the print commands

[dRACE]

Good job, i look forward to see more of theese, next time remember when release no fails! <

But working now, good job!

[orco6]

Ok my script loads on arc-emu world.exe and its being called but now im receiving a message everytime i click in the gameobject (the script name is now zzztest.lua): scripts\zzztest.lua:3: attempt to call method ´GetX´ <a nil value>

i Think this happens because its getting no value for coordinates isnt? If so how can i reference the gameobject to give the coordinates, or the player whom its clicking the gameobject? maybe changing footmanarmy_OnUse to Summoningchest_OnUse to make it reference the GO by name? (Summoningchest is the name of the gameobject) The code again:


function Summoningchest_OnUse(pGameObject,event)

local x = pGameObject:GetX();
local y = pGameObject:GetY();
local z = pGameObject:GetZ();
local o = pGameObject:GetO();

pUnit:SpawnCreature(17211, x, y, z, o, 80, 43200);
end

RegisterGameObjectEvent (1000084, 2, "Summoningchest_OnUse")

i´ve changed to this and still im receiving message of ´GetX´< a nil value>

[Exacute]

Arthas - thanks, but it is only supposed to be spawned 1 place so shouldnt be engaged more than 1 time.. however next time i will rmeove them

Drace- what exactly u mean about the fail thing?

orco- i got no freakin idea XD.. try just GetX(); instead of pGameObject:

Anyway thanks for all your comments.. will remove the script tomorrow

[Babbaa]

You havn't scripted this..
It's just a god damn copy and paste. -_-

[orco6]

LOL! FINALLY! I CAN REFERENCE THE UNIT SO THAT THE ´GET_´COMAND CAN GET IT´S COORDINATES! Thanks for all the help exacute and thanks for the others that helped me too! i would give you +rep but im receiving a message that i must spread my rep around a little before i can give it to you again, and im doing it for others that helped me, when i can ill give it to you. Here´s the code!:

function Summoningchest_OnUse(pUnit,event,miscunit,misc)

schest = 0;
if schest == 0 then
schest = miscunit:GetClosestPlayer();
local x = miscunit:GetX();
local y = miscunit:GetY();
local z = miscunit:GetZ();
local o = miscunit:GetO();

miscunit:SpawnCreature(17211, x, y, z, o, 80, 43200);
end
end
RegisterGameObjectEvent (1000084, 2, "Summoningchest_OnUse")

IT WORKS! I CAN SPAWN A NPC CLICKING ON A GAMEOBJECT! LOL! i don´t know exactly how these pUnit, miscunit, misc works (when i should use them, but worked with miscunit) but now my script works perfectly, i click on the gameobject (using it as a button) and it spawn a footman in my position. LOL! i get the idea from another script for sapphiron. Here is its code:

function Sapphiron_OnCombat(Unit, event)
setvars(Unit,{
Waterfall = nil,
players = {},
Sapphiron = {pUnit = Unit,GUID = Sapphiron:GetGUID()},
IceBlock = nil,
WingBuffet = nil,
x = 0,
y = 0,
z = 0,
radius = 0,
radians = 0,
summoncount = 0,
clockwise = nil,
FrostTrigger = nil})
Unit:CastSpell(7940)
Unit:SpawnGameObject(181225,3536.852783, -5159.951172, 143.636139,Unit:GetO(),0)
Unit:RegisterEvent("Sapphiron_LifeDrain", 24000, 0)
Unit:RegisterEvent("Chill", 15000, 0)
Unit:RegisterEvent("Sapphiron_Cleave", 10000, 0)
Unit:RegisterEvent("Sapphiron_Enrage", 900000, 0)
Unit:RegisterEvent("Fly", 2000, 1)
Unit:RegisterEvent("Sapphiron_FrostAura", 2000, 0)
--TESTING AI TICK Unit:RegisterEvent("Sapphiron_CloseToDeath", 500, 0)
end
RegisterGameObjectEvent(181225, 2, "Close")

function Close(Unit)
print "working xd"
local args = getvars(Unit)
args.Waterfall = Unit
setvars(Unit,args)
Unit:SetUInt32Value(GAMEOBJECT_STATE,1)
end
RegisterUnitEvent(15989,7,"Sapphiron_CloseToDeath")

function Sapphiron_CloseToDeath(Unit, event)
print "works"
if Unit:GetHealthPct() <= 10 then
Unit:RemoveEvents()
Unit:RegisterEvent("Sapphiron_FrostAura", 2000, 0)
Unit:RegisterEvent("Sapphiron_LifeDrain", 24000, 0)
Unit:RegisterEvent("Sapphiron_Blizzard", 15000, 0)
Unit:RegisterEvent("Sapphiron_Cleave", 10000, 0)
Unit:RegisterEvent("Sapphiron_Enrage", 900000, 0)
end
if(Unit:IsFlying() == true) then
Sapphiron_LandAlt(Sapphiron,event)
end
end
function Sapphiron_LandAlt(Unit, event)
Unit:Land()
Unit:MoveTo(Unit:GetX(),Unit:GetY(),Unit:GetZ()-10,Unit:GetO())
Unit:RegisterEvent("Sapphiron_Normal", 8000, 1)
end

function Chill(Unit,event)
local args = getvars(Unit)
if math.random(0,1) < 0.5 then
args.clockwise = true
else
args.clockwise = false
end
local plr = Unit:GetRandomPlayer(0)
local newx,newy,newz,o = plr:GetX(),plr:GetY(),plr:GetZ(),Unit:GetO()
local newradius = Unit:CalcDistance(x,y,z)
--[[ This will overwrite the Units globals destroying all previous entries.
You must define these first in the 'args' class before setting them.
The only exception to this is when you first define your starting variables
in your Unit's onCombat or onSpawn events, or if you want to destroy all previous entries?
setvars(Unit,{x = newx,y = newy, z = newz,radius = newradius}) ]]
-- Define new variables
args.newx = x;
args.newy = y;
args.newz = z;
args.newradius = radius;
-- Then save them
setvars(Unit, args);

Unit:SpawnCreature(16082,args.x,args.y,args.z,o,Unit:GetFaction(),15000)
if args.summoncount <= 20 then
Unit:RegisterEvent("Circle",2000, 0)
else
--[[ same with here;
setvars(Unit,{summoncount= 0,x = 0,y = 0, z = 0, radians = 0,radius = 0}) ]]
args.summoncount = 0;
args.x = 0;
args.y = 0;
args.z = 0;
args.radians = 0;
args.radius = 0;
-- save them.
setvars(Unit, args);
end
end
function Circle(Unit,event)
local args = getvars(Unit)
if (args.clockwise == true) then
newradians = args.radians+0.314159
elseif (args.clockwise == false) then
newradians = args.radians-0.314159
end
local newsummoncount = args.summoncount + 1
local newx = math.cos(radians)+args.radius
local newy = math.sin(radians)+args.radius
--setvars(Unit,{x = newx,y = newy, summoncount = newsummoncount, radians = newradians})
args.x = newx;
args.y = newy;
args.summoncount = newsummoncount;
args.radians = newradians;
-- save them
setvars(Unit, args);
Unit:SpawnCreature(16082,args.x,args.y,args.z,args,Unit:GetO(),15000)
end

RegisterUnitEvent(16082,5,"ChillTrigger")
function ChillTrigger(Trigger,event)
print "Yes OnSpawn for Creature works xD"
local args = getvars(Unit)
Trigger:SetNameById(args.Sapphiron.pUnit:GetEntry())
Trigger:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_SELECTABLE)
Trigger:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_2)
Trigger:SetCombatMeleeCapable(1)
Trigger:Root()
Trigger:CastSpell(28547)
end

function Icebolt(Unit, event)
local plr = Unit:GetRandomPlayer(0)
if (plr~= nil) then
Unit:FullCastSpellOnTarget(28522,plr)
Unit:RegisterEvent("ImmunityCheck", 100,1 )
end
end

function Sapphiron_FrostAura(Unit)
Unit:CastSpell(28531)
end

function Sapphiron_LifeDrain(Unit, event)
local tank = Unit:GetMainTank()
if tank~= nil then
Unit:FullCastSpellOnTarget(28542,tank)
end
end

function Sapphiron_Cleave(Unit, event)
if (Unit:GetMainTank() ~= nil) then
Unit:CastSpellOnTarget(31345, Unit:GetMainTank())
else
end
end

function Sapphiron_Enrage(Unit)
Unit:CastSpell(26662)
end

function Fly(Unit, event)
print "Fly intitiated"
Unit:RemoveEvents()
Unit:SetCombatMeleeCapable(1)
Unit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)
Unit:MoveTo(Unit:GetSpawnX(),Unit:GetSpawnY(),Unit:GetSpawnZ(),Unit:GetSpawnO())
Unit:RegisterEvent("Fly2", 500, 1)
end

function Fly2(Unit,event)
print "Fly2 intitiated"
if Unit:IsCreatureMoving() == false then
Unit:SetFlying()
Unit:RegisterEvent("Fly3", 2000, 1)
else
Unit:RegisterEvent("Fly2", 500, 1)
end
end

function Fly3(Unit, event)
print "Fly3 intitiated"
Unit:MoveTo(Unit:GetX(),Unit:GetY(),Unit:GetZ()+10,Unit:GetO())
Unit:RegisterEvent("Fly4", 1000, 1)
end

function Fly4(Unit,event)
print "Fly4 intitiated"
if Unit:IsCreatureMoving() == false then
Unit:SpawnCreature(17025,Unit:GetSpawnX(),Unit:GetSpawnY(),Unit:GetSpawnZ(),Unit :GetSpawnO(),Unit:GetFaction(),0)
Unit:RegisterEvent("Icebolt", 2000, 5)
Unit:RegisterEvent("Sapphiron_CastFrostBreath", 10000, 1)
else
Unit:RegisterEvent("Fly4",1000, 1)
end
end

RegisterUnitEvent(17025,5,"WingBuffet")

function WingBuffet(Unit,event)
print "WingBuffet initiated"
local args = getvars(Unit)
args.WingBuffet = Unit
setvars(Unit,args)
Unit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_SELECTABLE)
Unit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_2)
Unit:CastSpell(2932
end

function ImmunityCheck(Unit,event)
local args = getvars(Unit)
local tbl = Unit:GetInRangePlayers()
for k,v in pairs(tbl) do
if v:HasAura(28522) == true then
args.Sapphiron.pUnit:FullCastSpellOnTarget(7940,v)
args.IceBlock = Unit:SpawnGameObject(181247,v:GetX(),v:GetY(),v:GetZ(),v:GetO(),25000)
setvars(Unit,args)
end
end
--setvars(Unit,args); should be in the for loop to avoid unnecessary work
end

RegisterGameObjectEvent(181247,2,"LoS")
function LoS(Unit,event)
print "OnSpawn works"
local args = getvars(Unit)
for k,v in pairs(args) do print (k,v)
end
-- or -- table.foreach(args, print) - works the same as above just neater.
local tbl = Unit:GetInRangePlayers()
for k,v in pairs(tbl) do
print (k,v)
if Unit:IsInFront(v) then
local say = " is behind iceblock."
Unit:SendChatMessage(12,0,v:GetName()..say)
Unit:CastSpell(7940,v)
end
end
end


function Sapphiron_CastFrostBreath(Unit, event)
Unit:SendChatMessage(16, 0, "Sapphiron takes a deep breath...")
Unit:RemoveEvents()
Unit:SpawnCreature(15624,Unit:GetX(),Unit:GetY(),Unit:GetZ(),Unit:GetO(),Unit:Ge tFaction(),0)
Unit:RegisterEvent("Sapphiron_Land", 8000, 1)
end
---------------FROST BREATH DUMMY TRIGGER----------------
RegisterUnitEvent(15624,5,"Trigger")
function Trigger(Unit,event)
local args = getvars(Unit)
args.FrostTrigger = Unit
setvars(Unit,args)
Unit:EnableMoveFly(1)
Unit:SetUInt32Value(UNIT_FLAG_NOT_SELECTABLE)
Unit:SetUInt32Value(UNIT_FLAG_NOT_ATTACKABLE_2)
Unit:SetMoveRunFlag(0)
Unit:MoveTo(args.Sapphiron.pUnit:GetSpawnX(),args.Sapphiron.pUnit:GetSpawnY(),ar gs.Sapphiron.pUnit:GetSpawnZ(),args.Sapphiron.pUnit:GetSpawnO())
Unit:RegisterEvent("TriggerStopped", 1000, 1)
end

function TriggerStopped(Unit,event)
print "TriggerStopped initiated"
if(Unit:IsCreatureMoving() == false) then
Unit:FullCastSpell(2931
Unit:RemoveFromWorld()
else
Unit:RegisterEvent("TriggerStopped",500,1)
end
end
----------------------------------------------------------------------------

function Sapphiron_Land(Unit, event)
local tbl = Unit:GetInRangeObjects()
local tbl2 = Unit:GetInRangePlayers()
for k,v in pairs(tbl) do
if v:GetEntry() == 181247 then
v:RemoveFromWorld()
end
end
for k,v in pairs(tbl2) do
if v:HasAura(7940) == true then
v:RemoveAura(7940)
end
if v:HasAura(28522) == true then
v:Remove(28522)
end
end
Unit:Land()
Unit:SetCombatMeleeCapable(1)
Unit:MoveTo(Unit:GetX(),Unit:GetY(),Unit:GetZ()-10,Unit:GetO())
Unit:RegisterEvent("Sapphiron_Normal", 3000, 1)
end

function Sapphiron_Normal(Unit, event)
Unit:SetCombatMeleeCapable(0)
Unit:GetMainTank()
Unit:RegisterEvent("Sapphiron_Fly", 67000, 0)
Unit:RegisterEvent("Sapphiron_FrostImmune", 0, 0)
Unit:RegisterEvent("Sapphiron_FrostAura", 2000, 0)
Unit:RegisterEvent("Sapphiron_LifeDrain", 24000, 0)
--Unit:RegisterEvent("Sapphiron_Blizzard", 15000, 0)
Unit:RegisterEvent("Sapphiron_Cleave", 10000, 0)
Unit:RegisterEvent("Sapphiron_Enrage", 900000, 0)
end

function Sapphiron_OnLeaveCombat(Unit)
local args = getvars(Unit)
if args.Waterfall ~= nil then
args.Waterfall:SetUInt32Value(GAMEOBJECT_STATE,0)
end
setvars(Unit,true)
--collectgarbage(); No longer needed as setvars will take care of garbage collection now.
Unit:RemoveEvents()
end

function Sapphiron_OnDied(Unit)
Unit:CastSpell(29357)
local args = getvars(Unit)
if args.Waterfall ~= nil then
args.Waterfall:SetUInt32Value(GAMEOBJECT_STATE,0)
end
--setvars(Unit,true) this will be taken care of in the OnLeaveCombat so no need to do it twice.
end


RegisterUnitEvent(15989, 1, "Sapphiron_OnCombat")
RegisterUnitEvent(15989, 2, "Sapphiron_OnLeaveCombat")
RegisterUnitEvent(15989, 4, "Sapphiron_OnDied")