--By Sebafrancuz

Set = {
	admin = {"Kaspeczko", "Nick", "Nick"},
	teleportation = {},
	isntInTp = function(p, a)
		for _, v in next, Set.teleportation[a] do
			if v.gracz == p then
				return false
			end
		end
		return true
	end,
	textAreaHidden = function(p)
		local x, y = 5, 30
		ui.addTextArea(1, "<a href='event:rozwiń'>Rozwiń</a>", p, x, y, nil, nil, 0x000000, 0xffffff, 0.5, true)
	end,
	textArea = function(p)
		local x, y, tekst = 5, 30, "<a href='event:zwiń'>Zwiń</a>\n\n"
		for players in next, tfm.get.room.playerList do
			if Set.isntInTp(players, p) then
				tekst = tekst.."<a href='event:wybGr_"..players.."'><R>"..players.."</R></a>\n"
			else
				tekst = tekst.."<VP>"..players.."</VP>\n"
			end
		end
		ui.addTextArea(1, tekst, p, x, y, nil, nil, 0x000000, 0xffffff, 0.5, true)
	end,
}

for _, players in next, Set.admin do
	system.bindMouse(players, true)
end

function eventNewPlayer(p)
	for _, players in next, Set.admin do
		if p == players  then
			Set.teleportation[p] = {}
			Set.textAreaHidden(p)
		end
	end
end

function eventChatCommand(p, k)
	for _, players in next, Set.admin do
		if p == players and k:sub(0,2) == "tp" then
			if tfm.get.room.playerList[k:sub(4,4):upper()..k:sub(5):lower()] then
				table.insert(Set.teleportation[p], {gracz = k:sub(4,4):upper()..k:sub(5):lower(),})
			end 
		end 
	end
end

function eventTextAreaCallback(id, p, o)
	if o == "zwiń" then
		Set.textAreaHidden(p)
	elseif o == "rozwiń" then
		Set.textArea(p)
	elseif o:sub(0,5) == "wybGr" then
		table.insert(Set.teleportation[p], {gracz = o:sub(7),})
		Set.textArea(p)
	end
end

function eventMouse(p, x, y)
	for i, v in next, Set.teleportation[p] do
		tfm.exec.movePlayer(v.gracz, x, y, false, 0, 0, true)
		Set.teleportation[p] = {}
		Set.textArea(p)
	end
end

table.foreach(tfm.get.room.playerList, eventNewPlayer)