score=0
lives=5
level=1
tresors=0
player = {x=0,y=0,oldtile=32,falling=false}
malos = {
    {x=0,y=0},
    {x=0,y=0},
    {x=0,y=0}
}
eixida={x=0,y=0}

function init()
    mode(2)
    setchar(33,223,223,223,0,253,253,253,0)
    setchar(34,255,255,255,255,255,255,255,0)
    setchar(35,195,255,195,195,195,255,195,195)
    setchar(36,195,243,195,195,195,207,195,195)
    setchar(37,0,255,0,0,0,0,0,0)
    setchar(38,0,0,0,126,66,66,126,0)

    filein("level1.bin",0,600)

    tresors=0
    player.oldtile=32
    local m=1
    for i=0,299 do
        if peek(i) == 248 then
            poke(i,32)
            player.x=i%20
            player.y=flr(i/20)
        elseif peek(i) == 249 then
            poke(i,32)
            poke(300+i, 0x0f)
            malos[m].x=i%20 
            malos[m].y=flr(i/20)
        elseif peek(i) == 36 then
            poke(i,32)
            poke(300+i, 0x0f)
            eixida.x=i%20 
            eixida.y=flr(i/20)
        elseif peek(i) == 38 then
            tresors=tresors+1
        end
    end

    ink(COLOR_YELLOW) print("000000",7,14)

    -- anem a contar els tresors que hi ha, per a saber quan es deu activar l'escala de eixida
end

function update()
    if not player.falling then
        if btnp(KEY_LEFT) and player.x>0 and peek(player.x-1+player.y*20)~=33 then
            poke(player.x+player.y*20, player.oldtile)
            player.x=player.x-1
            player.oldtile = peek(player.x+player.y*20)
            check_tresors()
        elseif btnp(KEY_RIGHT) and player.x<19 and peek(player.x+1+player.y*20)~=33 then
            poke(player.x+player.y*20, player.oldtile)
            player.x=player.x+1
            player.oldtile = peek(player.x+player.y*20)
            check_tresors()
        elseif btnp(KEY_UP) and player.oldtile==35 then
            if player.y>0 then 
                poke(player.x+player.y*20, player.oldtile)
                player.y=player.y-1
                player.oldtile = peek(player.x+player.y*20)
            else
                -- endgame. Ja vorem, ara que faça el init de nou i au
                init()
            end
        elseif btnp(KEY_DOWN) and (peek(player.x+(player.y+1)*20) == 35 or player.oldtile==37) then
            poke(player.x+player.y*20, player.oldtile)
            player.y=player.y+1
            player.oldtile = peek(player.x+player.y*20)
        end
    end

    if cnt()%5 == 0 then
        if player.oldtile~=37 and (peek(player.x+(player.y+1)*20)==32 or peek(player.x+(player.y+1)*20)==38 or peek(player.x+(player.y+1)*20)==37) then
            player.falling = true
            poke(player.x+player.y*20, player.oldtile)
            player.y=player.y+1
            player.oldtile = peek(player.x+player.y*20)
            check_tresors()
        else
            player.falling=false
        end
    end
    poke(player.x+player.y*20, 248)

end

function check_tresors()
    if player.oldtile==38 then
        player.oldtile=32
        update_score(100)
        poke(300+player.x+player.y*20, 0x0f)
        tresors=tresors-1
        if tresors==0 then
            for i=eixida.y,0,-1 do
                poke(eixida.x+i*20,35)
            end
        end
    end
end

function update_score(points)
    score=score+points
    local str= ""..score
    while #str < 6 do str = "0"..str end
    ink(COLOR_YELLOW) print(str,7,14)
end