[Reto] Recoger puntos

local map = {'<C><P H="800" L="1200" /><Z><S><S P="0,0,0.3,0.2,0,0,0,0" L="213" o="324650" H="57" X="108" Y="115" T="12" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="620" X="251" Y="297" T="12" /><S P="0,0,0,0,-72,0,0,0" L="10" o="324650" H="500" X="486" Y="685" T="12" /><S P="0,0,0,0,-70,0,0,0" L="10" o="324650" H="500" X="440" Y="723" T="12" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="620" X="1" Y="307" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="523" o="324650" H="16" X="930" Y="809" T="12" /><S P="0,0,20,0.2,0,0,0,0" L="15" H="819" X="1195" Y="408" T="4" /><S P="0,0,0.3,0.2,0,0,0,0" L="1205" o="324650" H="10" X="600" Y="-1" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="579" Y="69" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="572" Y="249" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="569" Y="411" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="534" o="324650" H="33" X="618" Y="571" T="12" /><S P="0,0,0.1,0.1,90,0,0,0" L="534" o="324650" H="33" X="1037" Y="310" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" L="11" o="324650" H="90" X="354" Y="599" T="12" /><S P="0,0,,,,0,0,0" L="206" H="182" X="103" Y="708" T="9" /><S P="0,0,,,,0,0,0" L="433" H="85" X="421" Y="757" T="9" /><S P="0,0,,,,0,0,0" L="75" H="100" X="242" Y="667" T="9" /><S P="0,0,,,,0,0,0" L="201" H="476" X="104" Y="381" T="9" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="250" X="210" Y="268" T="12" /><S P="0,0,0,0,0,0,0,0" L="10" o="324650" H="200" X="210" Y="540" T="12" /><S P="0,0,0.3,0.2,0,0,0,0" X="210" L="10" o="324650" H="200" c="2" Y="434" T="12" /></S><D><DS Y="56" X="91" /></D><O><O X="16" C="11" Y="182" P="0" /><O X="93" C="11" Y="181" P="0" /><O X="162" C="11" Y="180" P="0" /><O X="17" C="11" Y="371" P="0" /><O X="122" C="11" Y="362" P="0" /><O X="167" C="11" Y="278" P="0" /><O X="19" C="11" Y="270" P="0" /><O X="95" C="11" Y="264" P="0" /><O X="494" C="11" Y="530" P="0" /><O X="695" C="11" Y="530" P="0" /><O X="403" C="11" Y="371" P="0" /><O X="670" C="11" Y="368" P="0" /><O X="419" C="11" Y="203" P="0" /><O X="670" C="11" Y="203" P="0" /><O X="461" C="11" Y="29" P="0" /><O X="624" C="11" Y="27" P="0" /><O X="1015" C="11" Y="241" P="0" /><O X="1010" C="11" Y="445" P="0" /><O X="1064" C="11" Y="330" P="0" /><O X="230" C="11" Y="381" P="0" /><O X="26" C="11" Y="27" P="0" /><O X="226" C="11" Y="207" P="0" /><O X="880" C="2" Y="769" P="0" /><O X="971" C="2" Y="768" P="0" /><O X="1063" C="2" Y="770" P="0" /><O X="1063" C="2" Y="769" P="0" /><O X="694" C="11" Y="662" P="0" /></O></Z></C>'}
local objects = {}
local contador_in = 5
local contador = 0
local ganadores = {}
local mice = {}
local timer = 33
local mostrar = false

function main()
    for name in pairs(tfm.get.room.playerList) do
        eventNewPlayer(name)
    end
end

function eventNewPlayer(name)
    for i=1,200 do
      tfm.exec.bindKeyboard(name,i,true,true)

        end
    mice[name] = {puntos = 0,objects = true, timer = 0}
end

function eventNewGame()
        local xml = tfm.get.room.xmlMapInfo.xml
        local s = {}
                for c in xml:gmatch('(<O [^<]-C="11"[^>]-/>)') do
                x = c:match('X="(%d+)"')
                y = c:match('Y="(%d+)"')
                insertobject(x,y)
                end
end

function insertobject(x,y,id)
    local a={1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,4,5,5,5,5,5,5,5,5,5,5,5,5,6,6,6,7,8,8,9,10,11}
    id=id or math.random(1,a[#a])
    table.insert(objects,{id=id,x=x,y=y})
    local numtable=#objects
    ui.addTextArea(numtable+9000,"",p,x,y,10,10,math.random(0x000000, 0xFFFFFF),0x000001,0.75,false)
end

function takeobject(p,x,y)
    for a,b in pairs(objects)do
        if mice[p].objects then
        if x<b.x+20 and x>b.x-20 and y<b.y+20 and y>b.y-20 then
            mice[p].objects=false
            mice[p].timer = 2
            ui.removeTextArea(a+9000,p)
            mice[p].puntos = mice[p].puntos + 1
        end
        end
    end
end

function eventLoop()
    contador_in = contador_in - 0.5
    timer = timer - 0.5
    if mostrar == true then
    tfm.exec.setUIMapName("Tiempo restante : <v>"..math.ceil(timer).."!\n\n\n")
    end
        if contador_in > -1 then
        ui.addTextArea(0, "<p align='center'><b><font size='18'>Preparados...Empezamos en <v>"..math.ceil(contador_in).."", nil, 270, 27, 300, 50, 0x003366, 0x000000, 1)
        end
        if contador_in == -1 then
        ui.addTextArea(0, "<p align='center'><b><font size='18'>¡A recoger puntos!<br><font size='10'>Recogelos con la tecla <b>espacio.", nil, 270, 27, 300, 50, 0x003366, 0x000000, 1, true)
        timer = 33
        tfm.exec.disableAutoShaman(true)
        tfm.exec.disableAutoNewGame(true)
        tfm.exec.newGame(map[1])
        mostrar = true
        end

    if timer == 0 then
        for name in pairs(tfm.get.room.playerList) do
            table.insert(ganadores, ""..name.." : "..mice[name].puntos.."")
            tfm.exec.killPlayer(name)
            mostrar = false
            tfm.exec.setUIMapName("Tiempo restante : <v>¡TERMINÓ!\n\n\n")
        end
    ui.addTextArea(1, "<b><font size='14' color='#000'><p align='center'>Puntos.</p><br>"..table.concat(ganadores, "<br>").."", nil, 13, 27, 150, 200, 0x0099ff, 0x000000, 1)
    end
    for p in pairs(tfm.get.room.playerList) do
mice[p].timer = mice[p].timer - 1

if mice[p].timer < 0 then
            mice[p].objects=true
end
end
    end

function eventKeyboard(p,k,d,x,y)
    if k==32 then
      takeobject(p,x,y)
    end
end

main()