[Lua] Gurubashi Event

[zade749]

This is a script I made a while back, just never released. I thought I would share it with you guys for the hell of it.

Once again it is untested, but should work if it doesn't send me an email or add me to MSN

MSN: [email protected]

Description: This script is triggered by the chat command "#on" and when triggered the script will get all players on the server and teleport them to gurubashi arena if they are alive. When the event is triggered the players will have a free for all event going on that will announce when a player is killed. When a player reaches 2000 honor for the event, it will give the player an enrage buff for their hard work in the arena.

Hope you enjoy it

--Arena Teleport
local MapID = 0
local XCoord = -13243.240234
local YCoord = 197.949799
local ZCoord = 32.112690

--Active
local activated = 0

--Message
local ON_MSG = "#on"
local OFF_MSG = "#off"

--PvP Buff Timer
local pvpbufftimer = math.random (1800000, 3600000)

function GurubashiEvent(unit, plr, event)
	if ((activated == 1) and (plr:IsGM() == true)) then
		local plrs = GetPlayersInWorld()
		for k, v in pairs(plrs) do
			if (v:IsAlive() == true) then
				v:Teleport(MapID, XCoord, YCoord, ZCoord)
			else
				v:SendAreaTriggerMessage("The event has started, ressurect quickly!")
			end
		end
	end
end
	
function Event_OnChat(event, plr, message, type, language)
	if(plr:IsGM() == true) then
		if (message == ON_MSG) then
			if (activated == 1) then
				plr:SendAreaTriggerMessage("The event is in progress!")
			else
				activate = 1
				local plrs = GetPlayersInWorld()
				for k, v in pairs(plrs) do
					v:SendAreaTriggerMessage("An event has been started!")
				end
			end
		elseif (message == OFF_MSG) then
			if (activated == 0) then
				plr:SendAreaTriggerMessage("This is already off!")
			else
				activate = 0
			end
		end
	end
end

function Gurubashi_PvPAnnounce(event, plr, victim)
	if (activated == 1) then
		local message = math.random(2)
		local plrs = GetPlayersInWorld()
		for k, v in pairs(plrs) do
			if (message == 1) then
				v:SendAreaTriggerMessage("[Event]:"..plr:GetName().." just killed "..victim:GetName()..", keep it up!")
			elseif (message == 2) then
				v:SendAreaTriggerMessage("[Event]:"..plr:GetName().." has decapitated "..victim:GetName().."!")
			end
		end
	end
end

function Gurubashi_PvPBuffs(event, plr)
	if (activated == 1) then
		local plrs = GetPlayersInWorld()
		for k, v in pairs(plrs) do
			if(v:GetHonorToday() >= 2000) then
				plr:CastSpell(41447) --Enrage
			end
		end
	end
end

RegisterServerHook(16, "Event_OnChat")
RegisterServerHook(2, "Gurubashi_PvPAnnounce")
RegisterTimedEvent("GurubashiEvent", 1000, 0)
RegisterTimedEvent("Gurubashi_PvPBuffs", pvpbufftimer, 0)

[Daskin]

if(v:GetHonorToday() <= 2000) then

Shouldnt it be >=?

When a player reaches 2000 honor for the event, it will give the player an enrage buff for their hard work in the arena.

[Ground Zero]

Looks good.

Why does it have to teleport all the players, what if their doing something else?

If you're planning to keep this updated I recommend on the next release once the event is activated the players have X seconds to Type Y command to get teleported to the event. After X seconds if Z amount of players havn't typed Y command then start the event if not enough cancel it.

[zade749]

Ill look into that Ground Zero, not sure exactly how that would be done.

And yes it should, thx for that catch