[Reto] Escribir rápido

local contador_in = 5
local frases = {"Los ratones se han metido a su madriguera", "Abrigate al salir porque hace mucho frio", "El chaman mato a todos los ratones", "Me gusta mucho el queso y las fresas tambien", "He asistido esta tarde a un otorrinolaringologo", "En el cerro del parangaricutirimicuaro hay murcielagos"}
local escribir = false
local mice = {}
local ganadores = {}
local contador = 0

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

function eventLoop()
    contador_in = contador_in - 0.5
        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 escribir!", nil, 270, 27, 300, 50, 0x003366, 0x000000, 1)
        escribir = true
            for name in pairs(tfm.get.room.playerList) do
                palabras(name)
            end
        end
    ui.addTextArea(1, "<b><font size='14' color='#000'><p align='center'>Personas que finalizaron el reto.</p><br>"..table.concat(ganadores, "<br>").."", nil, 13, 27, 150, 200, 0x0099ff, 0x000000, 1)
end

function eventNewPlayer(name)
    mice[name] = {frase = 1}
end

function palabras(name)
    if escribir == true then
        ui.addPopup(1, 2, frases[mice[name].frase], name, 304, 150, 200, true)
    end
end

function eventPopupAnswer(id, name, answer)
    if id == 1 then
        if answer == frases[mice[name].frase] then
          ui.addTextArea(0, "<p align='center'><b><font size='18' color='#000'>¡Bien!", name, 270, 27, 300, 50, 0x33cc00, 0x000000, 1)
            if mice[name].frase == 6 then
                contador = contador + 1
                table.insert(ganadores, "<n><font color='#000'>"..contador..". "..name.."")
            else
                mice[name].frase = mice[name].frase + 1
              ui.addPopup(1, 2, frases[mice[name].frase], name, 304, 150, 200, true)
            end
          else
          ui.addTextArea(0, "<p align='center'><b><font size='18'>Incorrecto", name, 270, 27, 300, 50, 0xcc0000, 0x000000, 1)
          ui.addPopup(1, 2, frases[mice[name].frase], name, 304, 150, 200, true)
        end
    end
end

main()