local pagina = {}
local see= {}
do
		for i in next, tfm.get.room.playerList do
			table.insert(see, {nome= i})
		end
end
local _left= function(player)
		for pos in ipairs(see) do
			if (see[pos].nome== player) then
				table.remove(see, pos)
			end
		end
end
local createTextArea= function(count, pages, id, player, x, y, width, height, background, border, opacity, static)
		pagina[id]= {
			data= {pages= pages, x= x, y= y, width= width, height= height, background= background, border= border, opacity= opacity, static= static},
			min= 1,
			max= count
		}
		for i= 1, count do
			pagina[id][i]= pages[i]
		end
		for pos, _ in next, see do
			see[pos][id]= {current= 1}
		end
		ui.addTextArea(id, pages[1], player, x, y, width, height, background, border, opacity, static)
end
local removeTextArea= function(id)
		for i in ipairs(pagina) do
			if (id == i) then
				table.remove(id)
			end
		end
		ui.removeTextArea(id)
end
local getPlayerSeeing= function(player, document)
		for pos, _ in next, see do
			if (see[pos].nome== player) then
				return see[pos][document].current
			end
		end
end
local setPlayerSeeing= function(player, document, value)
		for pos, _ in next, see do
			if (see[pos].nome== player) then
				see[pos][document].current= value
			end
		end
end
local mudar= function(kind, document, value, player)
		if (kind == "new") then
			ui.updateTextArea(document, pagina[document][value], player)
			setPlayerSeeing(player, document, value)
		elseif (kind == "pass") then
			if (getPlayerSeeing(player, document) + value > pagina[document].max) then
				ui.updateTextArea(document, pagina[document][pagina[document].max], player)
				setPlayerSeeing(player, document, pagina[document].max)
			elseif (getPlayerSeeing(player, document) + value < pagina[document].min) then
				ui.updateTextArea(document, pagina[document][pagina[document].min], player)
				setPlayerSeeing(player, document, pagina[document].min)
			else
				ui.updateTextArea(document, pagina[document][getPlayerSeeing(player, document) + value], player)
				setPlayerSeeing(player, document, getPlayerSeeing(player, document) + value)
			end
		end
end
local button = function(callback, document, player)
		if (callback == "proximo") then
			mudar("pass", document, 1, player)
		elseif (callback == "anterior") then
			mudar("pass", document, -1, player)
		elseif (type(tonumber(callback))=="number") then
			mudar("new", document, tonumber(callback), player)
		end
end
local _new= function(player)
		table.insert(see, {nome= player})
		for pos, i in next, pagina do
			ui.addTextArea(pos, pagina[pos].data.pages[1], player, pagina[pos].data.x, pagina[pos].data.y, pagina[pos].data.width, pagina[pos].data.height, pagina[pos].data.background, pagina[pos].data.border, pagina[pos].data.opacity, pagina[pos].data.static)
			see[#see][pos]= {current= 1}
		end
end