local _, adm= pcall(nil)
local allowed= {}
local ids= {}
local getId= function()
		local id
		for pos= 1, 100 do
			if not ids[pos] then
				ids[pos]= true
				id= pos
				break
			end
		end
		return id
end
eventTextAreaCallback= function(_, player, event)
		if allowed[player] then
			local x= tonumber(event:match("(%d+), %d+"))
			local y= tonumber(event:match("%d+, (%d+)"))
			tfm.exec.movePlayer(player, x, y)
		end
end
eventChatCommand= function(player, c)
		local cmd= {}
		for data in c:gmatch("[^%s]+") do
			cmd[#cmd + 1]= data
		end
		if player== adm then
			if cmd[1]=="allow" then
				allowed[cmd[2]]= true
			elseif cmd[1]=="disallow" then
				allowed[cmd[2]]= false
			end
		end
		if allowed[player] then
			if cmd[1]=="add" then
				local x= tonumber(cmd[2])
				local y= tonumber(cmd[3])
				local id= getId()
				if id then
					ui.addTextArea(id, "<a href='event:tp("..x..", "..y..")'><font color='#000000'>"..id.."</font></a>", nil, x, y, 13, 15, 0x66DD66, 0x33CC33)
				end
			elseif cmd[1]=="remove" then
				local id= tonumber(cmd[2])
				ui.removeTextArea(id)
				ids[id]= false
			end
		end
end
do
		adm= adm:match("(.-)%.")
		allowed[adm]= true
		system.disableChatCommandDisplay()
end

local _, adm= pcall(nil)
local shaman
eventPopupAnswer= function(_, _, answer)
		tfm.exec.setShaman(shaman, false)
		shaman= answer
		tfm.exec.setShaman(shaman)
end
eventTextAreaCallback= function(_, _, event)
		if event=="shaman" then
			ui.addPopup(0, 2, "<p align='center'>Digite o nome do shaman: </p>", adm, 300, 100, 200)
		end
end
do
		adm= adm:match("(.-)%.")
		ui.addTextArea(0, "<a href='event:shaman'>Set Shaman</a>", adm, 20, 370, nil, nil, nil, nil, 1, true)
		tfm.exec.disableAutoShaman()
end

local _, adm= pcall(nil)
local sort= false
local count= 0
local times= 0
eventLoop= function()
		if sort then
			count= count + 500
			if count== 1000 then
				local number= math.random(1, 100)
				local particles= {0, 1, 2, 9, 4}
				ui.updateTextArea(1, "<font size='18'><p align='center'>Número sorteado: "..number.."</p></font>")
				for k= 1, 100 do
					tfm.exec.displayParticle(particles[math.random(1, #particles)], math.random(250, 550), math.random(20, 50), 0, math.random(1, 2))
				end
				count= 0
				times= times + 1
				if times== 10 then
					ui.updateTextArea(1, "<font size='18'><p align='center'>Número sorteado: <font color='#66DD66'>"..number.."</font></p></font>")
					times= 0
					sort= false
				end
			end
		end
end
eventTextAreaCallback= function(_, _, event)
		if event=="sort" then
			sort= true
		end
end
do
		adm= adm:match("(.-)%.")
		ui.addTextArea(0, "<a href='event:sort'>Sortear</a>", adm, 20, 370, nil, nil, nil, nil, 1, true)
		ui.addTextArea(1, "<font size='18'><p align='center'>Número sorteado: **</p></font>", nil, 250, 30, 300, nil, nil, nil, 0.8, true)
end