scenes={
    abad_inici={
        {x=4,y=0,flip=false,text={"Se va a enterar eixe","imbècil de Batman","quan el pille..."}},
        {x=4,y=0,flip=false,text={"Gonna per el GPS","per a trobarlo.",""}},
        {x=4,y=0,flip=false,text={"I igual hi ha","algú més per ací","que em puga ajudar."}},
    },
    abad_corfes={
        {x=4,y=0,flip=false,text={"Osti, està ple de","monstruacos.",""}},
        {x=4,y=0,flip=false,text={"Pos al que s'acoste","s'endurà una corfa","de cacau al cap!"}}
    },
    gps_trobat={
        {x=4,y=0,flip=false,text={"Ale, ja tinc el GPS.","Ara puc trobar tot","el que necessite..."}},
        {x=4,y=0,flip=false,text={"polsant les tecles","del 1 al 5",""}},
    },
    premiere_intro={
        {x=4,y=0,flip=false,text={"Premiere??","Qué fas per ma casa?",""}},
        {x=69,y=20,flip=true,text={"Porca miseria!!","l'uomo pipistrello!!","m'ha llevatto il gorro!"}},
        {x=4,y=0,flip=false,text={"Pipistrello??","Això ques??",""}},
        {x=69,y=20,flip=true,text={"Il batmano!!","Incontrame il gorro","per l'amore d'un porco!"}},
        {x=4,y=0,flip=false,text={"Tinc faena. A mi m'ha","furtat els cacaus i","he de trobarlos."}},
        {x=69,y=20,flip=true,text={"Lei tenne in su quarto!","Io tengo micha clave!","Achudame i t'achudo!"}}
    },
    premiere_intro_gorro={
        {x=4,y=0,flip=false,text={"Premiere??","Qué fas per ma casa?",""}},
        {x=69,y=20,flip=true,text={"Porca miseria!!","l'uomo pipistrello!!","m'ha llevatto il gorro!"}},
        {x=4,y=0,flip=false,text={"Pipistrello??","Això... be, te igual","Ací el tens, atontat."}},
        {x=69,y=20,flip=true,text={"Per fortuna!","Grazie mille!","Come podo achudarte?"}},
        {x=4,y=0,flip=false,text={"Pos Batman m'ha furtat","els cacaus. Supose que","els te amagats."}},
        {x=69,y=20,flip=true,text={"In lo suo quarto!","Io tengo micha clave!","Tenne, tenne!!"}}
    },
    premiere_gorro={
        {x=4,y=0,flip=false,text={"Tin, el ditxos gorro.","",""}},
        {x=69,y=20,flip=true,text={"Bravissimo!","Che giornatta","fantastica! Figo!"}},
        {x=4,y=0,flip=false,text={"Tu si que eres un","figo. On està eixa","mitja clau?"}},
        {x=69,y=20,flip=true,text={"Giusto! Aquí tenne!","Buona fortuna per","la tua avventura!"}},
        {x=69,y=20,flip=true,text={"E NON TOCARE il","Batmano! Sei molto","poderoso!"}}
    },
    gorro_trobat_nointro={
        {x=4,y=0,flip=false,text={"Mira, el gorro","de Premiere.","Millor l'agafe."}}
    },
    gorro_trobat={
        {x=4,y=0,flip=false,text={"Mira, el gorro","de Premiere.","A la saca."}}
    },
    elalien_intro={
        {x=4,y=0,flip=false,text={"Que passa alien?","A tu també t'ha","putejat el Batman?"}},
        {x=3,y=16,flip=true,text={"CAGUEN L'OU!!","ESTAVA JO TAN TRANQUIL","PODANT AL MEU GOS..."}},
        {x=3,y=16,flip=true,text={"...I QUAN NO MIRABA","M'HA FURTAT EL","MARANÀ!!!"}},
        {x=4,y=0,flip=false,text={"Es...taves podant","a un gos...?",""}},
        {x=3,y=16,flip=true,text={"EN JUPITER NO POTS","DEIXAR QUE LI CREIXEN","MES DE 12 PATES!!"}},
        {x=4,y=0,flip=false,text={"Uh... clar...","A mi m'ha furtat","els cacaus."}},
        {x=3,y=16,flip=true,text={"ELS TÉ EN LA SEUA","HABITACIÓ SEGUR.","TROBA EL BERENAR..."}},
        {x=3,y=16,flip=true,text={"...I JO ET DONARÉ","LA MEITAT DE LA CLAU","PER A ENTRAR."}}
    },
    elalien_intro_peu={
        {x=4,y=0,flip=false,text={"Que passa alien?","A tu també t'ha","putejat el Batman?"}},
        {x=3,y=16,flip=true,text={"CAGUEN L'OU!!","ESTAVA JO TAN TRANQUIL","PODANT AL MEU GOS..."}},
        {x=3,y=16,flip=true,text={"...I QUAN NO MIRABA","M'HA FURTAT EL","MARANÀ!!!"}},
        {x=4,y=0,flip=false,text={"Podant...? be, te","igual. Açò deu ser","el teu berenar."}},
        {x=3,y=16,flip=true,text={"OSTI QUE BÓ!!!","GRACIES AUELO!","A TU QUE T'HA FET?"}},
        {x=4,y=0,flip=false,text={"M'ha furtat els cacaus.","Segur que els té","al seu quarto."}},
        {x=3,y=16,flip=true,text={"SEGUR! PERO JO TINC","LA MEITAT DE LA CLAU.","TIN, I SORT!"}}
    },
    elalien_peu={
        {x=4,y=0,flip=false,text={"Ací tens...","Uff, que peste fa...",""}},
        {x=3,y=16,flip=true,text={"GRACIES!!!","SÍ, EH? QUE","SUCOSET I BÓ."}},
        {x=4,y=0,flip=false,text={"Clar...","Be, i eixa","mitja clau?"}},
        {x=3,y=16,flip=true,text={"TIN! QUAN TINGUES","ELS CACAUS, PEGA-LI","CACAUÀ A BATMAN!"}},
    },
    peu_trobat_nointro={
        {x=4,y=0,flip=false,text={"Un peu podrit??","Qué asco!! Segur","que és d'el alien."}}
    },
    peu_trobat={
        {x=4,y=0,flip=false,text={"Joer, açò deu ser","el berenar d'el alien.","Ecs..."}}
    },
    habitacio_batman={
        {x=4,y=0,flip=false,text={"L'habitació de Batman!","Segur que els cacaus","estàn ahí dins."}},
        {x=4,y=0,flip=false,text={"Però necessite","una clau...",""}}
    },
}

function start_scene(scene)
    --bkg=newsurf(128,96)
    --setdest(bkg)
    --setsource(0)
    --sspr(0,0,128,96,0,0)
    --setsource(tiles)
    --setdest(0)
    _update=update_scene
    scenes.current_scene=scene
    scenes.dnum=1
    scenes.step=0
    scenes.char=1
    scenes.wait=0
end

function draw_scene()
    local txt_x = not scenes.current_scene[scenes.dnum].flip and 38 or 8
    camera(0,-28)
    if scenes.step==0 then
        rectfill(0,16,128,17,12)
        line(0,15,128,15,16)
        line(0,18,128,18,16)
    elseif scenes.step==1 then
        rectfill(0,8,128,26,12)
        line(0,7,128,7,16)
        line(0,27,128,27,16)
    elseif scenes.step==2 then
        rectfill(0,0,128,34,12)
        line(0,0,128,0,16)
        line(0,34,128,34,16)
    elseif scenes.step==3 then
        if not scenes.current_scene[scenes.dnum].flip then
            rectfill(8,12,31,23,16)
            sspr(scenes.current_scene[scenes.dnum].x,scenes.current_scene[scenes.dnum].y,10,10,9,13,20,10)
        else
            rectfill(97,12,120,23,16)
            sspr(scenes.current_scene[scenes.dnum].x,scenes.current_scene[scenes.dnum].y,10,10,98,13,20,10,true)
        end
    elseif scenes.step==4 then
        if not scenes.current_scene[scenes.dnum].flip then
            rectfill(8,7,31,28,16)
            sspr(scenes.current_scene[scenes.dnum].x,scenes.current_scene[scenes.dnum].y,10,10,9,8,20,20)
        else
            rectfill(97,7,120,28,16)
            sspr(scenes.current_scene[scenes.dnum].x,scenes.current_scene[scenes.dnum].y,10,10,98,8,20,20,true)
        end
    elseif scenes.step==5 then
        text(string.sub(scenes.current_scene[scenes.dnum].text[1],1,scenes.char),txt_x,7,2)
        if scenes.char<#scenes.current_scene[scenes.dnum].text[1] then
            scenes.step=scenes.step-1
            scenes.char=scenes.char+1
        else
            scenes.char=1
        end
    elseif scenes.step==6 then
        text(string.sub(scenes.current_scene[scenes.dnum].text[2],1,scenes.char),txt_x,15,2)
        if scenes.char<#scenes.current_scene[scenes.dnum].text[2] then
            scenes.step=scenes.step-1
            scenes.char=scenes.char+1
        else
            scenes.char=1
        end
    elseif scenes.step==7 then
        text(string.sub(scenes.current_scene[scenes.dnum].text[3],1,scenes.char),txt_x,23,2)
        if scenes.char<#scenes.current_scene[scenes.dnum].text[3] then
            scenes.step=scenes.step-1
            scenes.char=scenes.char+1
        else
            scenes.char=1
        end
    elseif scenes.step==8 then
        rectfill(0,0,128,34,12)
        line(0,0,128,0,16)
        line(0,34,128,34,16)
        if not scenes.current_scene[scenes.dnum].flip then
            rectfill(8,7,31,28,16)
            sspr(scenes.current_scene[scenes.dnum].x,scenes.current_scene[scenes.dnum].y,10,10,9,8,20,20)
        else
            rectfill(97,7,120,28,16)
            sspr(scenes.current_scene[scenes.dnum].x,scenes.current_scene[scenes.dnum].y,10,10,98,8,20,20,true)
        end
        text(scenes.current_scene[scenes.dnum].text[1],txt_x,7,2)
        text(scenes.current_scene[scenes.dnum].text[2],txt_x,15,2)
        text(scenes.current_scene[scenes.dnum].text[3],txt_x,23,2)
end
    if scenes.step<=8 then scenes.step=scenes.step+1 end
    camera(0,0)
end

function update_scene()
    scenes.wait=scenes.wait+1

    if scenes.wait==6 then
        scenes.wait=0
        draw_scene()
    end
    if btnp(KEY_SPACE) then
        if scenes.step>8 then
            if scenes.dnum==#scenes.current_scene then
                --freesurf(bkg)
                _update=update_game
            else
                scenes.dnum=scenes.dnum+1
                scenes.step=2
            end
        else
            scenes.step=8
        end
    end
end