Create a new version of paste: 1CLZGsQg

Untitled1 sec ago
Watch!! Accenture ...19 sec ago
!!!Tv Link !!!Paki...34 sec ago
mv 20120207 plejlist19 sec ago
E-mail/MSN Hack pa...39 sec ago
Untitled27 sec ago
Untitled31 sec ago
adding and removin...33 sec ago

New Paste

-- Summon Cooldown in seconds
local GSCD = 30

local GuildSummonCD = {}

function GuildTool_OnGossip(item, event, plr)
	if(plr:IsInGuild() == true) then
		if(plr:GetGuildLeader() == plr:GetName()) then
			item:GossipCreateMenu(100, plr, 0)
			item:GossipMenuAddItem(1, "Summon ALL Guild Members", 1, 0, "Are you sure you want to summon ALL guild members?")
			item:GossipMenuAddItem(1, "Invite Player to Guild", 2, 1, "Insert Players name into the code box.")
			item:GossipMenuAddItem(1, "Kick Player from Guild", 3, 1, "Insert Players name into the code box.")
			item:GossipMenuAddItem(1, "Guild Notifications", 4, 0)
			item:GossipMenuAddItem(1, "Disband Guild", 7, 1, "To disband your guild, type DISBAND into the code box.")
			item:GossipSendMenu(plr)
		else
			plr:SendBroadcastMessage("You are not this guild's leader!")
		end
	else
		plr:SendBroadcastMessage("You are not in a guild!")
	end
end

function GuildTool_OnSubGossip(item, event, plr, id, intid, code)

if(GSCD >= 60) then
		GSCD_Timer = GSCD/60
		GSCD_Type = "Minutes"
	elseif(GSCD < 60) then
		GSCD_Timer = GSCD
		GSCD_Type = "Seconds"
	end

if(intid == 1) then
		if GuildSummonCD[plr:GetName()] ~= nil and ((os.clock()-GuildSummonCD[plr:GetName()])) <= GSCD then
			plr:SendAreaTriggerMessage("|cFFFF0000You must wait "..GSCD_Timer.." "..GSCD_Type.." before using this function!")
			plr:GossipComplete()
		else
			GuildSummonCD[plr:GetName()] = os.clock()
			for k, v in pairs(GetPlayersInWorld()) do
				if (v:GetGuildId() == plr:GetGuildId()) then
					if(v:GetName() ~= v:GetGuildLeader()) then
						v:Teleport(plr:GetMapId(), plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO())
						v:SendBroadcastMessage("You have been summoned by your Guild Master!")
					else
						plr:SendBroadcastMessage("All guild members have been summoned.")
					end
				end
			end
			plr:GossipComplete()
		end
	end

if(intid == 2) or (intid == 3) then
		for k, v in pairs(GetPlayersInWorld()) do
			local pCode = code
			if(v:GetName() == pCode) then
				if(intid == 2) then
					if(v:IsInGuild() == true) and (v:GetGuildId() ~= plr:GetGuildId()) then
						plr:SendBroadcastMessage(""..pCode.." is already in a guild!")
					elseif(v:IsInGuild() == true) and (v:GetGuildId() == plr:GetGuildId()) then
						plr:SendBroadcastMessage(""..pCode.." is already in your guild!")
					elseif(v:IsInGuild() == false) and (v:GetName() == pCode) then
						plr:SendGuildInvite(v)
					end
				elseif(intid == 3) then
					if(v:GetGuildId() == plr:GetGuildId()) then
						plr:RemoveGuildMember(v)
					elseif(v:GetGuildId() ~= plr:GetGuildId()) then
						plr:SendBroadcastMessage(""..pCode.." is not in your guild, or is not online.")
					end
				end
			end
		end
		plr:GossipComplete()
	end
	
	if(intid == 4) then
		item:GossipCreateMenu(100, plr, 0)
		item:GossipMenuAddItem(1, "Guild Chat Notification", 5, 1, "Insert Guild Chat Notification into the code box.")
		item:GossipMenuAddItem(1, "Guild Warning Notifications", 6, 1, "Insert Guild Warning Notification into the code box.")
		item:GossipSendMenu(plr)
	end
	
	if(intid == 5) or (intid == 6) then
		for k, v in pairs(GetPlayersInWorld()) do
			local pCode = code
			if (v:GetGuildId() == plr:GetGuildId()) then
				if(intid == 5) then
					v:SendBroadcastMessage("|cFF33FF33[Guild Notification]: |cFFFFFFFF"..pCode.."")
				elseif(intid == 6) then
					v:SendAreaTriggerMessage("|cFF33FF33[Guild Warning]: |cFFFFFFFF"..pCode.."")
				end
			end
		end
		plr:GossipComplete()
	end
	
	if(intid == 7) then
		local pCode = "DISBAND"
		if(code == pCode) then
			plr:DisbandGuild()
		elseif(code ~= pCode) then
			plr:SendBroadcastMessage("You did not type DISBAND into the code box.")
		end
		plr:GossipComplete()
	end
end

RegisterItemGossipEvent(90003, 1, "GuildTool_OnGossip")
RegisterItemGossipEvent(90003, 2, "GuildTool_OnSubGossip")

Optional Paste Settings

Syntax Highlighting:

Paste Expiration:

Paste Exposure:

Paste Name / Title:

Hello Guest
Sign Up or Login

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Pastebin.com Tools & Applications

Windows

Firefox

Chrome

iOS

WebOS

Android

Mac

Opera

Click.to

UNIX

WinPhone