S_ = {
	["admin"] = "Nick",
	["colors"] = {a = 0x000000, f = 0xffffff},
	["ids"] = {1, 2, 3, 4, 5},
	["screen"] = {
		x = 800,
		y = 400,
	},
	["players"] = {},
	["vote"] = {
		["is"] = false,
		["question"] = {{txt = 'Lubisz placki?', x = 0, y = 0, width = 0, height = 0,},},
		["answers"] = {{txt = 'Tak', x = 0, y = 0, width = 0, height = 0,}, {txt = 'Nie', x = 0, y = 0, width = 0, height = 0,},},
		["textAreas"] = function (p)
			for i, v in next, {{"question", 1}, {"answers", 1}, {"answers", 2}} do
				ui.addTextArea(S_["ids"][i], S_["vote"][v[1]][v[2]]["txt"], p, S_["vote"][v[1]][v[2]]["x"], S_["vote"][v[1]][v[2]]["y"], S_["vote"][v[1]][v[2]]["width"], S_["vote"][v[1]][v[2]]["height"], S_["colors"]["a"], S_["colors"]["f"], 0.5, true)
			end
			if p == S_["admin"] then
				ui.addTextArea(S_["ids"][4], "<a href='event:wyniki'>Wyniki</a>", p, 5, 30, nil, nil, S_["colors"]["a"],  S_["colors"]["f"], 0.5, true)
			end
		end,
		["voting"] = {0, 0},
		["makeItCenter"] = function (text, x, y)
			local px = 5
			return {x = tonumber(x/2-((#text > 20 and 20 or #text)*px)/2), y = tonumber(y/2-px/2), width = tonumber((#text > 20 and 20 or #text)*(px^2)/2), height = tonumber(px^2/1.5)}
		end,
		["start"] = function (question, answer_1, answer_2)
			local vSys = S_["vote"]
			local qce = vSys["makeItCenter"](question, S_["screen"]["x"] - 50, S_["screen"]["y"] - 200)
			local ace = {{vSys["makeItCenter"](answer_1, S_["screen"]["x"] - 200, (S_["screen"]["y"])), answer_1}, {vSys["makeItCenter"](answer_2, (S_["screen"]["x"] + 200), (S_["screen"]["y"])), answer_2}}
			vSys["is"] = true
			vSys["voting"] = {0, 0}
			vSys["question"][1] = {txt = question, x = qce.x, y = qce.y, width = qce.width, height = qce.height}
			for i = 1, 2 do
				vSys["answers"][i] = {txt = "<a href='event:answer"..i.."'>"..ace[i][2].."</a>", x = ace[i][1].x, y = ace[i].y, width = ace[i][1].width, height = ace[i].height,}
			end
			table.foreach(tfm["get"]["room"]["playerList"], vSys["textAreas"])
		end,
	},
	["main"] = function ()
		S_["infoTA"] = {
			["texts"] = {"Pytanie: <a href='event:changeQue'>"..S_["vote"]["question"][1]["txt"].."</a>", "Odpowiedź 1: <a href='event:changeAns1'>"..S_["vote"]["answers"][1]["txt"].."</a>", "Odpowiedź 2: <a href='event:changeAns2'>"..S_["vote"]["answers"][2]["txt"].."</a>", "<a href='event:startVote'>Start</a>"},
			["textAreas"] = function (p)
				for id = 1, 4 do
					ui.addTextArea(id, S_["infoTA"]["texts"][id], p, 5, id*30, nil, nil, S_["colors"]["a"], S_["colors"]["f"], 0.5, true)
				end
			end,
		}
		table.foreach(tfm["get"]["room"]["playerList"], eventNewPlayer)
	end,
}

function eventNewPlayer(p)
	if not S_["players"][p] then
		S_["players"][p] = {["voted"] = false,}
	end
	if p == S_["admin"] then
		ui.addTextArea(S_["ids"][4], "<a href='event:wyniki'>Wyniki</a>", p, 5, 30, nil, nil, S_["colors"]["a"],  S_["colors"]["f"], 0.5, true)
	end
	if S_["vote"]["is"] then
		if S_["players"][p]["voted"] == false then
			S_["vote"]["textAreas"]()
		end
	else
		if p == S_["admin"] then
			S_["infoTA"]["textAreas"](p)
		end
	end
end

function eventTextAreaCallback(id, p, o)
	if o == "startVote" then
		S_["vote"]["start"](S_["vote"]["question"][1]["txt"], S_["vote"]["answers"][1]["txt"], S_["vote"]["answers"][2]["txt"])
	elseif o == "wyniki" then
		local allPlayers = S_["vote"]["voting"][1] + S_["vote"]["voting"][2]
		local TXT = "<p align='center'><font size='30'><B><J>WYNIKI</J></B></font></p>\n\n"..
					"Za \""..S_["vote"]["answers"][1]["txt"].."\" było "..S_["vote"]["voting"][1].. " osób ("..(S_["vote"]["voting"][1]/allPlayers*100).."%)\n"..
					"Za \""..S_["vote"]["answers"][2]["txt"].."\" było "..S_["vote"]["voting"][2].. " osób ("..(S_["vote"]["voting"][2]/allPlayers*100).."%)\n\n"..
					"<a href='event:close'><p align='center'><font size='11'>Zamknij</font></p></a>"
		S_["vote"]["is"] = false
		for pN, v in next, S_["players"] do
			v["voted"] = false
		end
		for pN in next, tfm["get"]["room"]["playerList"] do
			for id = 1, 3 do
				ui.removeTextArea(id, pN)
			end
			ui.addTextArea(S_["ids"][5], TXT, pN, 300, 100, nil, nil, S_["colors"]["a"], S_["colors"]["f"], 0.5, true)
		end
		S_["infoTA"]["textAreas"](p)
	elseif o:sub(0,9) == "changeAns" then
		ui.addPopup(tonumber(o:sub(10)), 2, "Wybierz jaka ma być "..tonumber(o:sub(10)).." odpowiedź", p, 300, 100, 200, true)
	elseif o == "close" then
		ui.removeTextArea(S_["ids"][5], p)
	elseif o == "changeQue" then
		ui.addPopup(3, 2, "Wybierz jakie ma być pytanie:", p, 300, 100, 200, true)
	elseif o:sub(0,6) == "answer" then
		for i = 1, 3 do 
			ui.removeTextArea(i, p)
		end
		S_["players"][p]["voted"] = true
		S_["vote"]["voting"][tonumber(o:sub(7))] = S_["vote"]["voting"][tonumber(o:sub(7))] + 1
	end
end

function eventPopupAnswer(id, p, o)
	if id == 1 then
		if o ~= "" or o ~= " " then
			if string.len(o) <= 30 then
				S_["vote"]["answers"][1]["txt"] = tostring(o)
				S_["main"]()
			else
				ui.addPopup(1, 2, "<R>Odpowiedź 1 może mieć maksimum 30 znaków:</R>", p, 300, 100, 200, true)
			end
		else
			ui.addPopup(1, 2, "<R>Odpowiedź 1 musi zawierać tekst:</R>", p, 300, 100, 200, true)
		end
	elseif id == 2 then
		if o ~= "" or o ~= " " then
			if string.len(o) <= 30 then
				S_["vote"]["answers"][2]["txt"] = tostring(o)
				S_["main"]()
			else
				ui.addPopup(2, 2, "<R>Odpowiedź 2 może mieć maksimum 30 znaków:</R>", p, 300, 100, 200, true)
			end
		else
			ui.addPopup(2, 2, "<R>Odpowiedź 2 musi zawierać tekst:</R>", p, 300, 100, 200, true)
		end
	elseif id == 3 then
		if o ~= "" or o ~= " " then
			if string.len(o) <= 30 then
				S_["vote"]["question"][1]["txt"] = tostring(o)
				S_["main"]()
			else
				ui.addPopup(3, 2, "<R>Pytanie może mieć maksimum 30 znaków:</R>", p, 300, 100, 200, true)
			end
		else
			ui.addPopup(2, 2, "<R>Pytanie musi zawierać tekst:</R>", p, 300, 100, 200, true)
		end
	end
end

S_["main"]()

S_ = {
	["Admins"] = {"Shanteye"},
	["colors"] = {0x000000, 0xffffff},
	["isAdmin"] = function (p)
		for _, playerName in next, S_["Admins"] do
			if playerName == p then
				return true
			end
		end
		return false
	end,
	["players"] = {},
	["Main"] = function ()
		table.foreach(tfm["get"]["room"]["playerList"], eventNewPlayer)
	end,
	["emotesList"] = function (id)
		local emotes = {
			[0] = "Taniec",
			[1] = "Śmiech",
			[2] = "Płacz",
			[3] = "Całus",
			[4] = "Złość",
			[5] = "Klaskanie",
			[6] = "Spanie",
			[7] = "Facepalm",
			[8] = "Siedzenie",
			[9] = "Konfetti",
			[10] = "Flaga",
			[11] = "Pianka na patyku",
			[12] = "Selfie",
			[13] = "Piątka",
			[14] = "Przytulanie",
			[15] = "Całus",
			[16] = "Papier, Kamień, Nożyce",
		}
		return emotes[id] or "Wybierz Emotkę"
	end,
	["isData"] = function (p)
		if not S_["players"][p] then
			S_["players"][p] = {}
		end
	end,
	["textAreas"] = function (p)
		ui.addTextArea(1, "Gracz: <B><VP><a href='event:ListaGraczy'>"..S_["players"][p]["gracze"].."</a></VP></B>", p, 5, 30, nil, nil, S_["colors"][1], S_["colors"][2], 0.5, true)
		ui.addTextArea(3, "Emotka: <a href='event:ListaEmotek'><B><VP>"..S_["emotesList"](tonumber(S_["players"][p]["emotki"])).."</VP></B></a>", p, 5, 60, nil, nil, S_["colors"][1], S_["colors"][2], 0.5, true)
		ui.addTextArea(4, "Niech <B><VP>"..S_["players"][p]["gracze"].."</VP></B> wykona emotkę <B><VP>"..S_["emotesList"](tonumber(S_["players"][p]["emotki"])).."</VP></B>. <VP><B><a href='event:klik'>Klik</a></B></VP>", p, 5, 90, nil, nil, S_["colors"][1], S_["colors"][2], 0.5, true)
	end,
}

function eventNewPlayer(p)
	S_["isData"](p)
	if S_["isAdmin"](p) then
		S_["players"][p] = {gracze = "Wybierz gracza", emotki = "Wybierz Emotkę",}
		S_["textAreas"](p)
	end
end

function eventTextAreaCallback(id, p, o)
	if o == "ListaGraczy" then
		local TXT = "<p align='center'><B><J><font size='15'>Gracze:</font></J></B>\n\n"
		for i in next, S_["players"] do
			if not S_["isAdmin"](tostring(i)) then
				TXT = TXT.."<a href='event:gracz"..i.."'>"..i.."\n"
			end
		end
		TXT = TXT.."\n<font size='11'><a href='event:cancel'>Anuluj</a></font></p>"
		ui.addTextArea(2, TXT, p, 200, 100, nil, nil, S_["colors"][1], S_["colors"][2], 0.5, true)
	elseif o == "ListaEmotek" then
		local emotes = "<p align='center'><B><J><font size='15'>Emotki:</font></J></B>\n\n"
		for id = 1, 16 do
			emotes = emotes.."<a href='event:emotka"..id.."'>"..S_["emotesList"](id).."\n"
		end
		emotes = emotes.."\n<font size='11'><a href='event:cancel'>Anuluj</a></font></p>"
		ui.addTextArea(2, emotes, p, 200, 100, nil, nil, S_["colors"][1], S_["colors"][2], 0.5, true)
	elseif o == "klik" then
		tfm.exec.playEmote(S_["players"][p]["gracze"], tonumber(S_["players"][p]["emotki"]))
	elseif o == "cancel" then
		ui.removeTextArea(2, p)
	elseif o:sub(0,5) == "gracz" then
		S_["players"][p]["gracze"] = o:sub(6)
		S_["textAreas"](p)
		ui.removeTextArea(2, p)
	elseif o:sub(0,6) == "emotka" then
		S_["players"][p]["emotki"] = o:sub(7)
		S_["textAreas"](p)
		ui.removeTextArea(2, p)
	end
end

S_["Main"]()