local newMap, winners = true, false
eventNewGame = function()
	newMap = false
	winners = false
end

players = function()
	local shaman, alive, total = 0, 0, 0
	for k, v in next, tfm.get.room.playerList do
		if not v.isDead then
			if v.isShaman then
				shaman = shaman + 1
			else
				alive = alive + 1
			end
		end
		total = total + 1
	end
	return shaman, alive, total
end

local maps = {7383635,7383640,7383659,7383668,7383673,7383678,7383685}
eventLoop = function(current, elapsed)
	if newMap then
		tfm.exec.newGame(maps[math.random(#maps)])
	else
		local shaman, alive, total = players()
		if total > 2 and (shaman < 1 or alive < 2) then
			tfm.exec.setGameTime(10, false)
		end

		if elapsed < 2000 then
			newMap = true
			if not winners then
				winners = true
				for k, v in next, tfm.get.room.playerList do
					if v.isShaman then
						tfm.exec.setPlayerScore(k, 0)
					elseif not v.isDead then
						tfm.exec.setPlayerScore(k, 10, true)
					end
				end
			end
		end
	end
end

eventPlayerDied = function(n)
	if not tfm.get.room.playerList[n].isShaman then
		tfm.exec.setPlayerScore(n, 1, true)
	end
end

tfm.exec.disableAutoNewGame()
tfm.exec.disableAutoScore()
tfm.exec.disableAllShamanSkills()
tfm.exec.disableAutoTimeLeft()

eventNewGame = function()
	tfm.exec.setGameTime(20)
end

eventNewPlayer = function(n)
	system.bindKeyboard(n, string.byte("E"), true, true)
end
table.foreach(tfm.get.room.playerList, eventNewPlayer)

eventKeyboard = function(n, k, d, x, y)
	local right = tfm.get.room.playerList[n].isFacingRight
	for i = 1,20 do
		tfm.exec.displayParticle(9, (x + (right and 20 or -20)) + (right and math.sqrt(i*2)*8 or -math.sqrt(i*2)*8), y-10, (right and 6 or -6))
	end
end

admin = "Mi_uk"

local select = "<p align='center'><a href='event:%s_%s'><font size='20'>JOGADOR_%s"
local pos = {[6] = false}

for i = 0, 3 do
	ui.addTextArea(i, select:format('semi',i+1,i+1), nil, 50, 60 + i * 85, 200, 50, -1, 1, 1, true)
	pos[i] = false
end

for i = 0, 1 do
	ui.addTextArea(4 + i, select:format('final',i+1,i+1), nil, 258, 102 + i * 170, 200, 50, -1, 1, 1, true)
	pos[4+i] = false
end

ui.addTextArea(6, "\n\n\n\n\n"..select:format('vencedor',1,1), nil, 466, 127, 200, 175, -1, 1, 1, true)


eventTextAreaCallback = function(i, n, c)
	if n == admin then
		local etapa, jogador = c:match("(.-)_(.+)")

		if etapa == 'semi' then
			for i = 4, #pos do
				if pos[i] then
					return
				end
			end
		elseif etapa == 'final' then
			for i = 0, 3 do
				if not pos[i] then
					return
				end
			end
			if pos[6] then return end
		else
			for i = 0, #pos-1 do
				if not pos[i] then
					return
				end
			end
		end
		
		ui.addPopup(i, 2, 'Nome : ' .. etapa .. ' : Jogador_' .. jogador, n, 10, 30, 200, true)
	end
end

eventPopupAnswer = function(i, n, a)
	if n == admin and #a > 2 then
		ui.updateTextArea(i, (i==6 and '\n\n\n' or '') .. "<VI>"..a, nil)
		pos[i] = true
	end
end

local size = 25 -- Tamanho

math.pythag = function(x1,y1,x2,y2,range)
    return (x1-x2)^2 + (y1-y2)^2 <= (range^2)
end

local getPlayer = function()
	local p = {}
	for k, v in next, tfm.get.room.playerList do
		if not v.isDead then
			p[#p + 1] = k
		end
	end
	return p[math.random(#p)]
end

local tableMul = function(a, b)
	return a[1] * b, a[2] * b
end
local len = function(a)
	return (a[1]^2 + a[2]^2)^.5
end
local scaleTo = function(a, b)
	return tableMul(a, (b / len(a)))
end

local alvo = ''
local timer = 0
local textarea = {x = 400, y = 200}

eventLoop = function()
	if alvo == '' then
		alvo = getPlayer()
		return
	end

	timer = timer + .5
	if timer % 10 == 0 then
		alvo = getPlayer()
	end

	local dirx, diry = scaleTo({
		(tfm.get.room.playerList[alvo] or {x = 400}).x - textarea.x,
		(tfm.get.room.playerList[alvo] or {y = 200}).y - textarea.y,
	}, size)

	textarea.x = textarea.x + dirx
	textarea.y = textarea.y + diry

	ui.addTextArea(0, '', nil, textarea.x - size/2, textarea.y - size/2, size, size, 1, 1, 1, true)

	for k, v in next, tfm.get.room.playerList do
		if not v.isDead and math.pythag(v.x, v.y, textarea.x, textarea.y, size + 5) then
			tfm.exec.killPlayer(k)
			if k == alvo then
				alvo = getPlayer()
			end
		end
	end
end

eventPlayerDied = function(n)
	if n == alvo then
		alvo = getPlayer()
	end
end
eventPlayerLeft = eventPlayerDied