View difference between Paste ID: n1vW5zQC and t3BqzmsK

 -- Four in a row
 -- Escrito por Ninguem -- Data: 03/10/2015
 
 adm = "Ninguem"
 tempoDaJogada = 20000
 cor = {0x2285b6, 0xff4747}
 
 code = [[<C><P Ca="" /><Z><S><S P="0,0,0.3,0.2,0,0,0,0" L="3000" o="171226" X="400" c="3" Y="385" T="12" H="30" /><S P="0,0,0.3,0,0,0,0,0" L="360" o="28203e" X="400" c="4" Y="300" T="12" H="10" /><S H="10" L="360" o="28203e" X="400" c="4" Y="250" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S H="10" L="360" o="28203e" X="400" c="4" Y="150" 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="360" o="28203e" X="400" c="4" Y="100" T="12" H="10" /><S P="0,0,0.3,0.2,0,0,0,0" L="360" o="28203e" X="400" c="4" Y="200" T="12" H="10" /><S H="10" L="360" o="28203e" X="400" c="4" Y="50" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S P="0,0,0,0.2,0,0,0,0" L="10" o="2d2642" X="225" c="2" Y="200" T="12" H="310" /><S H="310" L="10" o="2d2642" X="275" c="2" Y="200" T="12" P="0,0,0,0.2,0,0,0,0" /><S P="0,0,0,0.2,0,0,0,0" L="10" o="2d2642" X="325" c="2" Y="200" T="12" H="310" /><S H="310" L="10" o="2d2642" X="375" c="2" Y="200" T="12" P="0,0,0,0.2,0,0,0,0" /><S P="0,0,0,0.2,0,0,0,0" L="10" o="2d2642" X="425" c="2" Y="200" T="12" H="310" /><S H="310" L="10" o="2d2642" X="475" c="2" Y="200" T="12" P="0,0,0,0.2,0,0,0,0" /><S P="0,0,0,0.2,0,0,0,0" L="10" o="2d2642" X="525" c="2" Y="200" T="12" H="310" /><S H="310" L="10" o="2d2642" X="575" c="2" Y="200" T="12" P="0,0,0,0.2,0,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="3000" o="171226" X="400" N="" Y="23" T="12" H="10" /><S P="0,0,0.3,0.2,0,0,0,0" L="400" o="2285b6" X="200" N="" Y="23" T="12" H="10" /><S L="400" o="ff4747" X="600" H="10" N="" Y="23" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S H="10" L="360" o="2d2642" X="400" c="4" Y="350" T="12" P="0,0,0.3,0,0,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="100" o="171226" X="720" Y="300" T="12" H="200" /><S L="100" o="171226" X="80" H="200" Y="300" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S X="126" L="160" H="10" lua="3333" Y="290" T="%d" P="0,0,%f,%f,90,0,0,0" /><S H="10" L="160" X="674" lua="4444" Y="290" T="%d" P="0,0,%f,%f,-90,0,0,0" /><S H="30" L="60" X="80" c="3" Y="192" T="14" P="0,0,0.3,0.2,0,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="60" H="30" c="3" Y="192" T="14" X="720" /><S L="20" o="171226" H="10" X="122" Y="205" 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="20" o="171226" X="678" Y="205" T="12" H="10" /></S><D><P C="2a2244" Y="0" T="34" X="0" P="0,0" /><P C="2285b6,bde8f3,faf1b3" Y="332" T="14" P="0,0" X="-87" /><P C="2285b6" Y="200" T="19" X="80" P="0,0" /><P C="ff4747,bde8f3,faf1b3" Y="324" T="14" X="887" P="0,0" /><P C="ff4747" Y="200" T="19" P="0,0" X="720" /><P C="555d77" Y="389" T="131" X="400" P="1,0" /><P C="ff4747,bde8f3,faf1b3" Y="350" T="14" P="1,0" X="895" /><P C="ff4747,bde8f3,faf1b3" Y="180" T="14" X="892" P="1,0" /><P C="2285b6,bde8f3,faf1b3" Y="350" T="14" X="-95" P="1,0" /><P C="2285b6,bde8f3,faf1b3" Y="180" T="14" X="-95" P="1,0" /><P C="2285b6,bde8f3,faf1b3" Y="164" T="14" P="0,0" X="-88" /><P C="ff4747,bde8f3,faf1b3" Y="157" T="14" P="0,0" X="883" /><DS Y="343" X="400" /><P C="fdfdfd" Y="-30" T="90" X="400" P="0,0" /></D><O /></Z></C>]]
 -- code = "@6281248" -- versão com tela e menos wj
 
 piso = {
   {id=0, f=0.3, r=0.2},
   {id=2, f=0.5, r=2},
   {id=3, f=0.5, r=999999},
   {id=4, f=20, r=0.2},
   {id=5, f=0.3, r=0.2},
   {id=6, f=0.3, r=0.2},
   {id=7, f=0.1, r=0.2},
   {id=10, f=0.3, r=0},
   {id=11, f=0.05, r=0.1}
 }
 
 modo = "inicio"
 vez = 1
 jogador = {}
 tabela = {}
 intervalo = os.time()+2000
 tempoFim = os.time()
 tempoMapa = os.time() + 3000
 tempoJogada = os.time() + 15000
 obj = 0
 
 tabela = {}
 for i=1, 7 do
   tabela[i] = {}
     for j=1, 6 do
       tabela[i][j] = 0
     end
   end
 
 function novaTabela()
   for i=1, 7 do
     for j=1, 6 do
       tabela[i][j] = 0
     end
   end
 end
 
 function exibeNome(i)
   ui.addTextArea(i, "<p align='center'><j>"..jogador[i], nil, (i==1) and 20 or 660, 220, 120, 30, 0, 0, 0, true)
 end
 
 function eventNewPlayer(p)
   tfm.exec.bindKeyboard(p, 32, true, true)
 end
 
 function eventNewGame()
   modo = "inicio"
   novaTabela()
   tempoMapa = os.time() + 3000
   jogador[1] = nil
   jogador[2] = nil
   ui.addTextArea(1, "<p align='center'><vp>[espaço]", nil, 20, 220, 120, 30, 0, 0, 0, true)
   ui.addTextArea(2, "<p align='center'><vp>[espaço]", nil, 660, 220, 120, 30, 0, 0, 0, true)
   ui.removeTextArea(3)
   ui.removeTextArea(4)
   tfm.exec.addPhysicObject(8000, 0, 0, {type=14, miceCollision=false})
-  tfm.exec.setUIMapName("Four in a row - pastebin.com/tsDRpieM")
+  tfm.exec.setUIMapName("Four in a row")
   jogador = {}
   for i, v in pairs(tfm.get.room.playerList) do
     system.bindMouse(i, false)
     tfm.exec.setNameColor(i, 0xC2C2CA)
     eventNewPlayer(i)
   end
 end
 
 function eventKeyboard(p, t, d, x, y)
   if modo == "inicio" and os.time() > tempoMapa then
     if x > 50 and x < 110 and not jogador[1] then
       jogador[1] = p
       system.bindMouse(p, true)
       exibeNome(1)
       tfm.exec.setNameColor(p, cor[1])
     elseif x > 690 and x < 750 and not jogador[2] then
       jogador[2] = p
       system.bindMouse(p, true)
       exibeNome(2)
       tfm.exec.setNameColor(p, cor[2])
     end
     if jogador[1] and jogador[2] then
       modo = "partida"
       tempoJogada = tempoDaJogada + os.time()
       vez = math.random(1,2)
       tfm.exec.removeObject(obj)
       obj = tfm.exec.addShamanObject(57, vez == 1 and 80 or 720, 50, 0, 0, 0, true)
     end
   end
 end
 
 function linhaVertical(p)
   local p1, p2 = {}, {}
   for i=1, 7 do
     for j=1, 3 do
       if tabela[i][j] == p and tabela[i][j+1] == p and tabela[i][j+2] == p and tabela[i][j+3] == p then
         p1 = {i, j}
         p2 = {i, j+3}
         return p1, p2
       end
     end
   end
 end
 
 function linhaHorizontal(p)
   local p1, p2 = {}, {}
   for i=1, 4 do
     for j=1, 6 do
       if tabela[i][j] == vez and tabela[i+1][j] == p and tabela[i+2][j] == p and tabela[i+3][j] == p then
         p1 = {i, j}
         p2 = {i+3, j}
         return p1, p2
       end
     end
   end
 end
 
 function linhaDiagonal1(p)
   local p1, p2 = {}, {}
   for i=1, 4 do
     for j=1, 3 do
       if tabela[i][j] == vez and tabela[i+1][j+1] == p and tabela[i+2][j+2] == p and tabela[i+3][j+3] == p then
         p1 = {i, j}
         p2 = {i+3, j+3}
         return p1, p2
       end
     end
   end
 end
 
 function linhaDiagonal2(p)
   local p1, p2 = {}, {}
   for i=4, 7 do
     for j=1, 3 do
       if tabela[i][j] == p and tabela[i-1][j+1] == p and tabela[i-2][j+2] == p and tabela[i-3][j+3] == p then
         p1 = {i, j}
         p2 = {i-3, j+3}
         return p1, p2
       end
     end
   end
 end
 
 function verificaVitoria(p)
   local p1, p2 = false, false
   if linhaVertical(p) then
     p1, p2 = linhaVertical(p)
   elseif linhaHorizontal(p) then
     p1, p2 = linhaHorizontal(p)
   elseif linhaDiagonal1(p) then
     p1, p2 = linhaDiagonal1(p)
   elseif linhaDiagonal2(p) then
     p1, p2 = linhaDiagonal2(p)
   end
   if p1 and p2 then
     modo = "fim"
     tempoFim = os.time() + 10000
     local x1 = 200+p1[1]*50
     local y1 = 375-p1[2]*50
     local x2 = 200+p2[1]*50
     local y2 = 375-p2[2]*50
     tfm.exec.addJoint(8000, 8000, 8000, {point1=x1..","..y1, point2=x2..","..y2, color=cor[p], line=4, foreground=true})
     tfm.exec.setPlayerScore(jogador[p], 1, true)
     ui.addTextArea(3, "", nil, 0, 0, 800, 400, 1, 1, 0.3, true)
     ui.addTextArea(4, string.format("<p align='center'><font color='#ffffff' size='60px'>%s venceu o jogo!", jogador[p]), nil, 0, 120, 800, 400, 0, 0, 0, true)
   end
   intervalo = os.time()+2000
 end
 
 function semJogada()
   for i=1, 7 do
     if tabela[i][6] == 0 then
       return false
     end
   end
   return true
 end
 
 function verificaEmpate()
   if modo == "partida" then
     if semJogada() then
       ui.addTextArea(3, "", nil, 0, 0, 800, 400, 1, 1, 0.3, true)
       ui.addTextArea(4, string.format("<p align='center'><font color='#ffffff' size='60px'>Empate"), nil, 0, 120, 800, 400, 0, 0, 0, true)
       modo = "fim"
       tempoFim = os.time() + 10000
     end
   end
 end
 
 function passaVez()
   vez = vez == 1 and 2 or 1
   tfm.exec.removeObject(obj)
   obj = tfm.exec.addShamanObject(57, vez == 1 and 80 or 720, 50, 0, 0, 0, true)
   tempoJogada = os.time() + tempoDaJogada
 end
 
 function autoPlay()
   local pool = {}
   for i=1, 7 do
     if tabela[i][6] == 0 then
       table.insert(pool, i)
     end
   end
   eventMouse(jogador[vez], 200+pool[math.random(#pool)]*50, 0)
 end
 
 function eventChatCommand(p, cmd)
   if p == adm and cmd == "new" then
     modo = "inicio"
     local e = math.random(#piso)
     tfm.exec.newGame(string.format(code, piso[e].id, piso[e].f, piso[e].r, piso[e].id, piso[e].f, piso[e].r))
   end
 end
 
 function eventMouse(p, x, y)
   if modo == "partida" then
     if jogador[vez] == p and os.time() > intervalo then
       local xx = math.ceil((x - 225)/50)
       if tabela[xx] then
         if tabela[xx][1] == 0 then
           tabela[xx][1] = vez
           tfm.exec.addPhysicObject(xx*6+1+2000, 200 + (xx * 50), 350, {type=14, miceCollision=false})
           tfm.exec.addPhysicObject(xx*6+1+1000, 200 + (xx * 50), 50, {type=13, width=19, mass=999999, color=cor[vez], dynamic=true, miceCollision=false, foreground=true})
           verificaVitoria(vez)
           verificaEmpate()
           passaVez()
         elseif tabela[xx][2] == 0 then
           tabela[xx][2] = vez
           tfm.exec.addPhysicObject(xx*6+2+2000, 200 + (xx * 50), 300, {type=14, miceCollision=false})
           tfm.exec.addPhysicObject(xx*6+2+1000, 200 + (xx * 50), 50, {type=13, width=19, mass=999999, color=cor[vez], dynamic=true, miceCollision=false, foreground=true})
           verificaVitoria(vez)
           verificaEmpate()
           passaVez()
         elseif tabela[xx][3] == 0 then
           tabela[xx][3] = vez
           tfm.exec.addPhysicObject(xx*6+3+2000, 200 + (xx * 50), 250, {type=14, miceCollision=false})
           tfm.exec.addPhysicObject(xx*6+3+1000, 200 + (xx * 50), 50, {type=13, width=19, mass=999999, color=cor[vez], dynamic=true, miceCollision=false, foreground=true})
           verificaVitoria(vez)
           verificaEmpate()
           passaVez()
         elseif tabela[xx][4] == 0 then
           tabela[xx][4] = vez
           tfm.exec.addPhysicObject(xx*6+4+2000, 200 + (xx * 50), 200, {type=14, miceCollision=false})
           tfm.exec.addPhysicObject(xx*6+4+1000, 200 + (xx * 50), 50, {type=13, width=19, mass=999999, color=cor[vez], dynamic=true, miceCollision=false, foreground=true})
           verificaVitoria(vez)
           verificaEmpate()
           passaVez()
         elseif tabela[xx][5] == 0 then
           tabela[xx][5] = vez
           tfm.exec.addPhysicObject(xx*6+5+2000, 200 + (xx * 50), 150, {type=14, miceCollision=false})
           tfm.exec.addPhysicObject(xx*6+5+1000, 200 + (xx * 50), 50, {type=13, width=19, mass=999999, color=cor[vez], dynamic=true, miceCollision=false, foreground=true})
           verificaVitoria(vez)
           verificaEmpate()
           passaVez()
         elseif tabela[xx][6] == 0 then
           tabela[xx][6] = vez
           tfm.exec.addPhysicObject(xx*6+6+2000, 200 + (xx * 50), 100, {type=14, miceCollision=false})
           tfm.exec.addPhysicObject(xx*6+6+1000, 200 + (xx * 50), 50, {type=13, width=19, mass=999999, color=cor[vez], dynamic=true, miceCollision=false, foreground=true})
           verificaVitoria(vez)
           verificaEmpate()
           passaVez()
         end
       end
     end
   end
 end
 
 function eventPlayerLeft(p)
   if jogador[1] == p or jogador[2] == p then
     modo = "fim"
     tempoFim = os.time() + 10000
   end
 end
 
 function eventLoop(current, remaining)
   if modo == "fim" and os.time() > tempoFim then
     eventChatCommand(adm, "new")
   elseif modo == "partida" then
     if os.time() > tempoJogada then
       autoPlay()
     end
   end
 end
 for i, v in pairs(tfm.get.room.playerList) do
   tfm.exec.setPlayerScore(i, 0, false)
 end
 tfm.exec.disableAfkDeath(true)
 tfm.exec.disableAutoShaman(true)
 tfm.exec.disableAutoNewGame(true)
 e = math.random(#piso)
 tfm.exec.newGame(string.format(code, piso[e].id, piso[e].f, piso[e].r, piso[e].id, piso[e].f, piso[e].r))