Pwntzyou's LUA Library

**Pwntzyou** · 05-14-2008

This is a small library if scripts that I made while helping people throughout the forums, i created this for easy access to others with similar problems.

I am also taking requests, pm me your request and if it is do able, it will be posted here.

Auto Announce System
http://www.mmowned.com/forums/emulat...announcer.html

Lua Random chest / GO spawns
LUA Timer
LUA NPC Conversation

LUA Random chest / GO spawns
http://www.mmowned.com/forums/emulat...tml#post786059

Code:
chestnum = 0
spawnduriation =
gameobject id =

function chestevent_spawn(pUnit, event)
chestnum = chestnum + 1

if chestnum == 0 then
pUnit:SpawnGameObject(gameobjectid, x, y, z, o, spawnduriation)
pUnit:RegisterEvent("chestevent_spawn", spawnduriation)
end

if chestnum == 1 then
pUnit:SpawnGameObject(gameobjectid, x, y, z, o, spawnduriation)
pUnit:RegisterEvent("chestevent_spawn", spawnduriation)
end

if chestnum == 2 then
pUnit:SpawnGameObject(gameobjectid, x, y, z, o, spawnduriation)
pUnit:RegisterEvent("chestevent_spawn", spawnduriation)
end

if chestnum == 3 then
pUnit:SpawnGameObject(gameobjectid, x, y, z, o, spawnduriation)
pUnit:RegisterEvent("chestevent_spawn", spawnduriation)
chestnum = 0
end
end

RegisterUnitEvent(mobid, 6, "chestevent_spawn")
You would just have to edit the top where it says

"spawnduriation" (its in ms so 1000 = 1 sec)
"gameobjectid" (the id of your game object)
X (FOR EACH OF THE IF STATMENTS!!)
Y (FOR EACH OF THE IF STATMENTS!!)
Z (FOR EACH OF THE IF STATMENTS!!)
O (FOR EACH OF THE IF STATMENTS!!)
**and you would need to change the RegisterUnitEvent()
inside that event you need to change mobid to the id of the dummy mob that will trigger this event on spawn

Just make the xyzo different for each gameobject spawn....
but there are a few things you must remember

Code:
At the end of the script make sure you put an extra END!
At the end of your last spawn you MUST PUT "STAGE =0" or it WILL NOT repeat the script.

if chestnum == 3 then
pUnit:SpawnGameObject(gameobjectid, x, y, z, o, spawnduriation)
pUnit:RegisterEvent("chestevent_spawn", spawnduriation)
chestnum = 0
end
end
So in summary you could keep calling

Code:
if chestnum == # then
pUnit:SpawnGameObject(gameobjectid, x, y, z, o, spawnduriation)
pUnit:RegisterEvent("chestevent_spawn", spawnduriation)
end
Just change the # to a number, but it has to be consectutive... like...
if your going to put the number 50 in there, the if statment before it has to be 49

LUA Timer
http://www.mmowned.com/forums/emulator-server-discussion/120156-lua-wait-command-script.html

Code:
timer = 0

function sleep_lua(pUnit, event)

timer = timer + 1

if timer >= numberinseconds then
pUnit:RegisterEvent("eventname", 1000, 1)

else
pUnit:RegisterEvent("sleep_lua",1000,1)
end
end

A complete working script of this ==

Code:
timer = 0

function sleep_lua(pUnit, event)

timer = timer + 1
print timer

if timer >= 5 then
pUnit:RegisterEvent("testmob_lua", 1000, 1)

else
pUnit:RegisterEvent("sleep_lua",1000,1)
end
end

function testmob_lua(pUnit, event, win)
pUnit:SendChatMessage(12, 0, "SLEEP COMMAND LULZ")
end

RegisterUnitEvent(939, 1, "sleep_lua")

LUA Npc Conversation
http://www.mmowned.com/forums/emulat...versation.html

istalking = false

Function talking(pUnit, event)

If istalking == false then
istalking = true
pUnit:Commandtomaketheunittalk
Sleep(timeinms)
pUnit:Commandtomaketheunittalk
Sleep(timeinms)
pUnit:Commandtomaketheunittalk
istalking = false
end
end

RegisterUnitEvent(registerstuff)