System.usbDiskModeActivate()
 
tiles = Image.load("tiles.png")
 
map = {
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
    "mmeaaaaaaaaaaaaaaaaaaaaaaaafmm",
    "mmdpnnnnnnnnnnnnnnnnnnnnnnpbmm",
    "mmdokcccccclnkccccccccccclnbmm",
    "mmdojaaaaafdnbmmmmmmmmmmmdnbmm",
    "mmdooooooobdnbmmmmmmmmmmmdnbmm",
    "mmdokccclobdnbmmmmmmmmmmmdnbmm",
    "mmdobmmmdobdnbmmmmmmmmmmmdnbmm",
    "mmdobmmmdobdnjaaaaaaaaaafdnbmm",
    "mmdobmmmdpbdnnnnnnnnnnnnbdnbmm",
    "mmdobmmmhcghcccccccccclnbdnbmm",
    "mmdojaaaaaaaaaaaaaaaaainjinbmm",
    "mmdpnnnnnnnnnnnnnnnnnnnnnnpbmm",
    "mmhccccccccccccccccccccccccgmm",
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm"
}
 
function drawTile(tile, x, y)
    local tileX = math.mod(tile, 4)
    local tileY = math.floor(tile / 4)
    screen:blit(16 * x, 16 * y, tiles, 17 * tileX + 1, 17 * tileY + 1, 16, 16, false)
end    
 
while true do
    pad = Controls.read()
    if pad:start() then break end
    screen:clear()
    for y = 1, 17 do
        line = map[y]
        for x = 1, 30 do
            tile = string.byte(line, x) - string.byte("a")
            drawTile(tile, x - 1, y - 1)
        end
    end
    screen.waitVblankStart()
    screen:flip()
end

-- cargar imagenes
tiles = Image.load("tiles.png")
figure = Image.load("figure.png")
 
-- el mapa
mapSource = {
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
    "mmeaaaaaaaaaaaaaaaaaaaaaaaafmm",
    "mmdpnnnnnnnnnnnnnnnnnnnnnnpbmm",
    "mmdokcccccclnkccccccccccclnbmm",
    "mmdojaaaaafdnbmmmmmmmmmmmdnbmm",
    "mmdooooooobdnbmmmmmmmmmmmdnbmm",
    "mmdokccclobdnbmmmmmmmmmmmdnbmm",
    "mmdobmmmdobdnbmmmmmmmmmmmdnbmm",
    "mmdobmmmdobdnjaaaaaaaaaafdnbmm",
    "mmdobmmmdpbdnnnnnnnnnnnnbdnbmm",
    "mmdobmmmhcghcccccccccclnbdnbmm",
    "mmdojaaaaaaaaaaaaaaaaainjinbmm",
    "mmdpnnnnnnnnnnnnnnnnnnnnnnpbmm",
    "mmhccccccccccccccccccccccccgmm",
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm",
    "mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm"
}
 
-- imagen en el offsreen, donde dibujamos el mapa
board = Image.createEmpty(480, 272)
 
-- dibuja una baldosa en el mapa:
function drawTile(tile, x, y)
    tile = string.byte(tile, 1) - string.byte("a")
    local tileX = math.mod(tile, 4)
    local tileY = math.floor(tile / 4)
    board:blit(16 * x, 16 * y, tiles, 17 * tileX + 1, 17 * tileY + 1, 16, 16, false)
end    
 
-- copia el mapa fuente a un vector para facilitar el acceso y dibujarlo en el offscreen
map = {}
for y = 1, 17 do
    line = mapSource[y]
    map[y] = {}
    for x = 1, 30 do
        tile = string.sub(line, x, x)
        map[y][x] = tile
        drawTile(tile, x - 1, y - 1)
    end
end
 
-- posicion actual del jugador
playerX = 6
playerY = 14
 
-- imagen actual de animacion del jugador
animation = 0
 
-- 1 = incremento en la animacion, -1: decremento
animationDirection = 1
 
-- contador de freno de la animacion
animationSlowDown = 0
 
-- control de la velocidad de movimiento. a speedStep == 0, el
-- ultimo movimiento sera evaluado, los otros movimientos solamente seran
-- salvados
speedStep = 0
 
-- ultima direccion del pad
dx = 0
dy = 0
 
-- puntuacion actual
score = 0
 
-- color del texto
white = Color.new(255, 255, 255)
 
while true do
    -- lectura del pad
    pad = Controls.read()
 
    if pad:start() then
        -- salirse al lowser / reiniciar aplicacion dependiendo de como se cargara este
        break
    end
    if speedStep == 0 then
        -- salva la posicion anterior del jugador
        oldPlayerX = playerX
        oldPlayerY = playerY
 
        -- añadir ultimo movimiento
        playerX = playerX + dx
        playerY = playerY + dy
 
        -- comprobar el nuevo valdosin
        newTile = map[playerY][playerX]
 
        -- si la posicion no esta permitida, reestablece la posicion anterior
        if newTile ~= "n" and newTile ~= "p" and newTile ~= "o" then
            playerX = oldPlayerX
            playerY = oldPlayerY
        end
 
        -- Sí esta en una baldosa que puede ser comida,la come:
        if newTile == "p" then score = score + 5 end
        if newTile == "o" then score = score + 1 end
        if newTile == "p" or newTile == "o" then
            -- pone el fondo
            map[playerY][playerX] = "n"
 
            -- dibuja el fondo
            drawTile("n", playerX - 1, playerY - 1)
        end
 
        -- reestablece la ultima posicion
        dx = 0
        dy = 0
    else
        -- comprobar el pad
        if pad:up() then
            dy = -1
        elseif pad:down() then
            dy = 1
        elseif pad:left() then
            dx = -1
        elseif pad:right() then
            dx = 1
        end
    end
 
    -- incrementar el contador de velocidad de pasos
    speedStep = speedStep + 1
    if speedStep == 5 then
        speedStep = -1
    end
 
    -- dibuja en el offscreen
    screen:blit(0, 0, board, 0, 0, board:width(), board:height(), false)
 
    -- dibuja la animacion actual del jugador
    screen:blit((playerX - 1) * 16 - 4, (playerY - 1) * 16 - 4, figure, 1 + 25 * animation, 1, 24, 24)
 
    -- calcula la proxima imagen de animacion
    animationSlowDown = animationSlowDown + 1
    if animationSlowDown == 3 then
        animationSlowDown = 0
        animation = animation + animationDirection
        if animation == 4 then
            animationDirection = -1
        elseif animation == 0 then
            animationDirection = 1
        end
    end
 
    -- imprime puntuacion
    screen:print(10, 260, "Score: " .. score, white)
 
    -- espera el proximo refresco de pantalla para dibujar el offscreen
    screen.waitVblankStart()
    screen:flip()
end