-- Créditos: Pidoninho#0000 (Fez a versão original)
local a={['Pride#9506']=true} -- Admins

local b={};local y=false;local c=false;local d=false;local e=false;local f=100;local g=0;local h='#Eliminatória'local i='666'local j=''local k=''system.disableChatCommandDisplay(nil)for l,m in next,{'AutoTimeLeft','AutoShaman','AutoNewGame','AutoScore','AfkDeath','PhysicalConsumables'}do tfm.exec['disable'..m]()end;local w="<font color='#0'>By: Pidoninho";local z=function(...)ui.addTextArea(...)y=true end;local n=function(o,p)local q={}for r in string.gmatch(o,"[^"..p.."]+")do table.insert(q,r)end;return q end;local s=function(t)if g>0 then local u=1;local v,w=20,60;local x=1;for y in next,b do local z,A=y:match('(.-)#[0-9]+$'),"<g><font size='9'>"..y:match('#[0-9]+$')local B=z..A;if d then B="<a href='event:"..y.."'>"..z..A;ui.addTextArea(0,"<p align='center'><font size='16'><b>Escolha quem eliminar <font size='9'>(ou seja eliminado):",t,5,25,790,25,0x324650,0,.8)end;local C=function()ui.addTextArea(x,"<p align='center'>"..B,t,v,w,100,20,0x324650,0,.8)if u<7 then u=u+1;v=v+110 else u=1;v,w=20,w+30 end;x=x+1 end;if c and t~=y then C()elseif not c then C()end end end end;local D=function()g=0;tfm.exec.newGame('<C><P /><Z><S><S L="800" H="40" X="400" Y="380" T="14" P="0,0,0.3,0.2,0,0,0,0" /><S L="800" X="780" H="40" Y="400" T="14" P="0,0,,,90,0,0,0" /><S L="800" H="40" X="20" Y="400" T="14" P="0,0,,,90,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="800" o="6a7495" X="400" c="4" N="" Y="200" T="12" H="400" /></S><D /><O /></Z></C>')for y in next,a do ui.addTextArea(-1,"<p align='center'><a href='event:start'><j>Começar",y,5,25,150,20,0x324650,0,.8)end;ui.addTextArea(0,"<p align='center'><a href='event:entry'><j>Participar",nil,325,25,150,20,0x324650,0,.8)for y in next,tfm.get.room.playerList do tfm.exec.setPlayerScore(y,0)end;s()end;function eventNewPlayer(t)if not d then local B="<p align='center'><j>Você está participando."if not b[t]then B="<p align='center'><a href='event:entry'><j>Participar"end;ui.addTextArea(0,B,t,325,25,150,20,0x324650,0,.8)s(t)end;tfm.exec.setPlayerScore(t,0)end;table.foreach(tfm.get.room.playerList,eventNewPlayer)function eventNewGame()if not y then error('Anti kibe') end;c=false;k=''if d then ui.removeTextArea(0)for y in next,tfm.get.room.playerList do if not b[y]then tfm.exec.killPlayer(y)end end;if j~=''then if b[j]and#b[j]>0 then local B='Eliminou: 'for E=1,#b[j]do local z,A='<n>'..b[j][E]:match('(.-)#[0-9]+$'),"<g><font size='9'>"..b[j][E]:match('#[0-9]+$')B=B..z..A..(E<#b[j]and'<n>,</n> 'or'<n>.</n>')print(E)end;ui.addTextArea(0,B,nil,5,25,200,20,0x324650)end;tfm.exec.playEmote(j,0)tfm.exec.setGameTime(10)else tfm.exec.setGameTime(63)j=''end else b={}tfm.exec.setGameTime(99999)end;h=tfm.get.room.xmlMapInfo and tfm.get.room.xmlMapInfo.author~='#Module'and tfm.get.room.xmlMapInfo.author or h;i=tfm.get.room.currentMap or i;ui.setMapName('<j>'..h..' <bl>- '..i..'   <g>|   <n>Competidores : <v>'..g..'/'..f)end;function eventLoop(F,G)local G=math.floor(G/1000)if G<0 then if e then e=false;d=false;D()return end;if d then if j~=''then e=true;tfm.exec.newGame('<C><P /><Z><S><S P="0,0,0.3,0.2,0,0,0,0" L="200" o="324650" X="400" Y="283" T="12" H="40" /><S L="100" o="324650" X="400" H="40" Y="243" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="40" o="324650" H="40" Y="203" T="12" X="400" /><S L="10" X="379" H="40" Y="160" T="14" P="0,0,0.3,0.2,0,0,0,0" /><S L="10" X="420" H="40" Y="160" T="14" P="0,0,0.3,0.2,0,0,0,0" /><S L="40" X="400" H="10" Y="137" T="14" P="0,0,0.3,0.2,0,0,0,0" /></S><D><DS Y="168" X="400" /></D><O /></Z></C>')else tfm.exec.newGame('#17')end else ui.removeTextArea(0)D()end end end;function eventPlayerWon(t)if d then if k==''then k=t;local u=0;for y in next,b do u=u+1 end;if u>2 then c=true;tfm.exec.setGameTime(10,false)s(t)else for y in next,b do if y~=t then b[y]=nil;break end end;j=t;tfm.exec.setGameTime(4,false)end;tfm.exec.setPlayerScore(t,tfm.get.room.playerList[t].score+1)end end end;function eventPlayerDied(t)local u=0;for y,m in next,tfm.get.room.playerList do if not m.isDead then u=u+1 end end;if u==0 then if d then tfm.exec.newGame('#17')end end end;function eventPlayerLeft(t)b[t]=nil;g=g-1;ui.setMapName('<j>'..h..' <bl>- '..i..'   <g>|   <n>Competidores : <v>'..g..'/'..f)if not d then s()end;if c then s(k)end end;function eventChatCommand(t,H)H=n(H,' ')if a[t]then if H[1]=='start'then local u=0;for y in next,b do u=u+1 end;if u>1 then for E=-1,u do ui.removeTextArea(E)end;d=true;tfm.exec.newGame('#17')end end end end;function eventTextAreaCallback(x,t,I)if I=='entry'then if not b[t]then b[t]={}g=g+1;ui.setMapName('<j>'..h..' <bl>- '..i..'   <g>|   <n>Competidores : <v>'..g..'/'..f)ui.updateTextArea(0,'<j>Você está participando.',t)s()end elseif I=='start'then eventChatCommand(t,I)elseif b[I]and c then c=false;b[I]=nil;g=g-1;local u=1;for y in next,b do u=u+1 end;for E=1,u do ui.removeTextArea(E)end;b[t][#b[t]+1]=I;ui.addTextArea(0,"<p align='center'><font size='16'><b><v>"..t.." eliminou <r>"..I,nil,5,25,790,25,0x324650,0,.8)ui.setMapName('<j>'..h..' <bl>- '..i..'   <g>|   <n>Competidores : <v>'..g..'/'..f)tfm.exec.setGameTime(4,false)end end;D()
z(-2,w,nil,10,380,nil,nil,0,0) -- Selo anti kibe

local ratoEspecifico = 'Tigrounette#0001' -- Nick#tag

local getDist = function(a, b)
    local x = b[1] - a[1];local y = b[2] - a[2]
    return math.sqrt((x ^ 2) + (y ^ 2))
end

function eventNewPlayer(name)
	system.bindKeyboard(name, 32, true)
end
table.foreach(tfm.get.room.playerList, eventNewPlayer)

function eventKeyboard(name, key, _, x, y)
	local t = tfm.get.room.playerList
	if (t[ratoEspecifico] and not t[ratoEspecifico].isDead) then
		if (name ~= ratoEspecifico and (getDist({ x, y }, { t[ratoEspecifico].x, t[ratoEspecifico].y }) <= 100)) then
			local vx = (t[name].isFacingRight and 10 or -10);x = (t[name].isFacingRight and (x + 5) or (x - 5))
			tfm.exec.addShamanObject(34, x, y, 0, vx)
		end
	end
end