[Español] Circuit Map Test - Transformice Lua

blue = false
orange = false
checkPoint = {}
powerUp = {}
respawn = {}
xml = false
loaded = true

function geraXml(xml)
    local blue = false
    local orange = false
    local checkPoint = {}
    local powerUp = {}
    local respawn = {}
    local pisos = string.match(xml, "<S>.-</S>")
    local novosPisos = ""
    if pisos then
        pisos = pisos:sub(4,-5)
        for v in string.gmatch(pisos, "<S.-/>") do
            local xx = tonumber(string.match(v, 'X=".-"'):sub(4,-2))
            local yy = tonumber(string.match(v, 'Y=".-"'):sub(4,-2))
            local ll = tonumber(string.match(v, 'L=".-"'):sub(4,-2))
            local hh = tonumber(string.match(v, 'H=".-"'):sub(4,-2))
            if string.find(v, 'T="8"') then
                table.insert(checkPoint, {x=xx, y=yy, l=ll, h=hh})
            else
                novosPisos = novosPisos .. v
            end
        end
    else
        print("<r>Erro: Não há pisos.")
        return false
    end
    local objetos = string.match(xml, "<O>.-</O>")
    local novosObjetos = ""
    if objetos then
        objetos = objetos:sub(4,-5)
        for v in string.gmatch(objetos, "<O.-/>") do
            local xx = tonumber(string.match(v, 'X=".-"'):sub(4,-2))
            local yy = tonumber(string.match(v, 'Y=".-"'):sub(4,-2))
            if string.find(v, 'C="15"') then
                table.insert(powerUp, {x=xx, y=yy})
            elseif string.find(v, 'C="16"') then
                blue = {x=xx, y=yy}
            elseif string.find(v, 'C="13"') then
                orange = {x=xx, y=yy}
            else
                novosObjetos = novosObjetos .. v
            end
        end
    else
        print("<r>Error: No hay objetos de chamán.")
        return false
    end
    local decoracao = string.match(xml, "<D>.-</D>")
    local primeira = true
    local toca = true
    primeiroPlano = false
    if decoracao then
        decoracao = decoracao:sub(4,-5)
        for v in string.gmatch(decoracao, "<T.-/>") do
            if primeira then
                primeira = false
            end
            local xx = tonumber(string.match(v, 'X=".-"'):sub(4,-2))
            local yy = tonumber(string.match(v, 'Y=".-"'):sub(4,-2))
            table.insert(respawn, {x=xx, y=yy})
        end
    else
        print("<r>Error: No hay decoraciones.")
        return false
    end
    l = string.match(xml, 'Laps="%d-"')
    if l then
        l = l:sub(7,-2)
        laps = tonumber(l)
    else
        laps = 3
    end
    if blue and not orange then
        print("<j>Aviso: No hay portal naranja.")
    end
    if orange and not blue then
        print("<j>Aviso: No hay portal azul.")
    end
    if #respawn ~= #checkPoint then
        print("<r>Error: La cantidad de respawns es diferente a la de checkpoints.")
        return false
    elseif #powerUp == 0 then
        print("<r>Error: No hay powerups.")
        return false
    elseif #checkPoint < 3 then
        print("<r>Error: Menos de 3 checkpoints.")
        return false
    end
    for i, v in pairs(checkPoint) do
        if respawn[i].x < v.x-v.l or respawn[i].x > v.x+v.l or respawn[i].y < v.y-v.h or respawn[i].y > v.y+v.h then
            print(string.format("<j>Aviso: Respawn %d no esta adentro del checkpoint %d.", i, i))
        end
    end
    xml = xml:gsub("<S>.-</S>", "<S>"..novosPisos.."</S>")
    xml = xml:gsub("<O>.-</O>", "<O>"..novosObjetos.."</O>")
    xml = xml:gsub('m=""', "")
    xml = xml:gsub('T="14"', 'T="0"')
    xml = xml:gsub('o=".-"', function(a)
        if #a > 10 then
            return 'o="ffffff"'
        else
            return a
        end
    end)
    xml = xml:gsub("<T.-/>", function(a)
        if toca then
            toca = false
            return a
        else
            return ""
        end
    end)
    return xml, checkPoint, powerUp, respawn, blue, orange
end

function eventNewGame()
    xml = false
    if loaded then
        loaded = false
        if tfm.get.room.currentMap:sub(1,1) == "@" then
            tfm.exec.setUIMapName(author.."<bl> - "..code)
            for i, v in pairs(checkPoint) do
                local txt = i
                for j=1, 400 do
                    txt = txt .. " " .. i
                end
                ui.addTextArea(i, "<font size='60px' color='#ffffff'>"..txt, nil, v.x+5-v.l/2, v.y+5-v.h/2, v.l-10, v.h-10, 0xffffff, 0xffffff, 0.2, false)
            end
            for i, v in pairs(powerUp) do
                ui.addTextArea(i+100, "<font size='15px' color='#ffff00'><p align='center'><b>?", nil, v.x+5-16, v.y+5-16, 22, 22, 0xffff00, 0xffff00, 0.5, false)
            end
            for i, v in pairs(respawn) do
                ui.addTextArea(i+200, "<font size='15px' color='#00ff00'><p align='center'><b>"..i, nil, v.x+5-16, v.y+5-31, 22, 22, 0x00ff00, 0x00ff00, 0.5, false)
            end
            if blue then
                tfm.exec.addShamanObject(26, blue.x, blue.y, 0, 0, 0, false)
            end
            if orange then
                tfm.exec.addShamanObject(27, orange.x, orange.y, 0, 0, 0, false)
            end
        end
    else
        for i=1, 300 do
            ui.removeTextArea(i, nil)
        end
        xml, checkPoint, powerUp, respawn, blue, orange = geraXml(tfm.get.room.xmlMapInfo.xml)
        loaded = true
        code = tfm.get.room.currentMap
        author = tfm.get.room.xmlMapInfo.author
        if xml then
            tfm.exec.newGame(xml)
        else
            tfm.exec.newGame(0)
        end

    end
end

tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoNewGame(true)
tfm.exec.newGame(0)