--hab=0

modes={playing=0,editing=1}
mode=modes.editing

seltile = 0

actors={}
cameras={}
camera_names={[0]="GPS","Gorro","Peu de Paco","Premiere","EL_ALIEN","BatMan"}
current_camera=0

function remove_actor(actor)
    for index, value in pairs(actors) do
        if value == actor then
            table.remove(actors,index)
        end
    end
end

function _init()
    tiles=loadsurf("tiles.gif")
    setsource(tiles)
    local pal=loadpal("tiles.gif")
    setpal(pal)

    actors={}
    cameras={}
    camera_names={[0]="GPS","Gorro","Peu de Paco","Premiere","EL_ALIEN","BatMan"}
    current_camera=0

    -- ACTORS PRINCIPALS
    abad_init()
    table.insert(actors,abad)

    gps.init()
    table.insert(actors,gps)

    gorro.init()
    table.insert(actors,gorro)

    peu.init()
    table.insert(actors,peu)

    premiere.init()
    table.insert(actors,premiere)

    elalien.init()
    table.insert(actors,elalien)

    batman.init()
    table.insert(actors,batman)

    bol.init()
    table.insert(actors,bol)

    -- MALOTES PERSISTENTS
    table.insert(actors,gota.new(70,40,8,20))
    table.insert(actors,gota.new(70,72,8,30))
    table.insert(actors,gota.new(63,40,4,25))
    table.insert(actors,gota.new(63,72,4,20))
    table.insert(actors,gota.new(64,24,4,10))
    table.insert(actors,gota.new(64,56,4,25))
    table.insert(actors,gota.new(65,24,4,10))
    table.insert(actors,gota.new(65,64,4,25))
    table.insert(actors,gota.new(66,24,4,10))
    table.insert(actors,gota.new(66,32,4,15))
    table.insert(actors,gota.new(77,16,4,30))
    table.insert(actors,gota.new(77,72,4,25))

    table.insert(actors,invisible.new(77,40,32))
    table.insert(actors,invisible.new(77,48,32))
    table.insert(actors,invisible.new(58,16,32))
    table.insert(actors,invisible.new(58,16,32))

    table.insert(actors,zombie.new(2,24,24,false))
    table.insert(actors,caco.new(13,24,16,true))
    table.insert(actors,caco.new(20,24,16,false))
    table.insert(actors,zombie.new(32,24,24,false))
    table.insert(actors,caco.new(41,24,16,false))
    table.insert(actors,zombie.new(44,24,24,false))

    table.insert(actors,caco.new(50,24,16,false))
    table.insert(actors,caco.new(61,24,16,false))

    table.insert(actors,zombie.new(73,24,24,false))
    table.insert(actors,zombie.new(54,24,24,false))
    table.insert(actors,zombie.new(68,24,24,false))
    table.insert(actors,caco.new(57,24,16,false))
    table.insert(actors,zombie.new(46,24,24,false))
    table.insert(actors,caco.new(37,24,16,false))
    table.insert(actors,caco.new(26,24,16,false))
    table.insert(actors,zombie.new(28,24,24,false))
    table.insert(actors,caco.new(17,24,16,false))

    -- TRIGGERS
    table.insert(actors,trigger.new(10,44,32,triggers.escena_abad_inici))
    table.insert(actors,trigger.new(11,16,32,triggers.escena_abad_corfes))
    table.insert(actors,trigger.new(19,32,32,triggers.escena_habitacio_batman))
    score.create()

    cameras[0]=gps
    table.insert(cameras,gorro)
    table.insert(cameras,peu)
    table.insert(cameras,premiere)
    table.insert(cameras,elalien)
    table.insert(cameras,batman)

    _update=update_game
end

function text(str,x,y,col)
    color(16)
    prnt(str,x-1,y-1)
    prnt(str,x,y-1)
    prnt(str,x+1,y-1)
    prnt(str,x-1,y)
    prnt(str,x+1,y)
    prnt(str,x-1,y+1)
    prnt(str,x,y+1)
    prnt(str,x+1,y+1)

    prnt(str,x,y,col)
end

function draw_hab(hab,x,y,editing)
    camera(-x,-y)
    mapa_draw(hab)

    if not editing then
        for key,actor in pairs(actors) do
            if actor.hab==hab then
                actor:draw()
            end
        end
        if imp.hab==hab then imp.draw() end
        if bambolla.hab==hab then bambolla.draw() end
        if cacau.hab==hab then cacau:draw() end
        if fireball.hab==hab then fireball:draw() end
    end
    camera(0,0)
end

function _update() end

function update_dialog()
    rectfill(16,16,112,50,12)
    rect(15,15,113,51,16)
    text("Save the map?",20,20,2)
    text("This cannot be undone",20,27,2)
    text("(Y)es         (N)o",25,40,2)

    if btnp(KEY_N) then
        _update=update_game
    elseif btnp(KEY_Y) then
        mapa_save()
        _update=update_game
    end
end

scroll=0
function update_game()
    cls(16)

    if mode==modes.editing then
        draw_hab(abad.hab,0,0,true)
        text(abad.hab,120,1,2)

        sspr(0,64+scroll*8,128,48,0,48)
        color(3)
        local xx=(seltile&15)*8
        local yy=48+(seltile>>4)*8
        rect(xx,yy,xx+8,yy+8)
            text("EDIT",100,1,3)
        local hx = abad.hab%10
        local hy = flr(abad.hab/10)
        scroll=0
        if btnp(KEY_RIGHT) and hx<9 then
            abad.hab=abad.hab+1
        elseif btnp(KEY_LEFT) and hx>0 then
            abad.hab=abad.hab-1
        elseif btnp(KEY_DOWN) and hy<7 then
            abad.hab=abad.hab+10
        elseif btnp(KEY_UP) and hy>0 then
            abad.hab=abad.hab-10
        elseif btnp(KEY_RETURN) then
            mode=modes.playing
            mapa_do_backup()
        elseif btnp(KEY_S) and (btn(KEY_LCTRL) or btn(KEY_LGUI)) then
            _update=update_dialog
        elseif btnp(KEY_C) then
            mapa_cycle_colors(abad.hab)
        elseif btnp(KEY_M) then
            mapa_create_minimap()
            return
        end
        if btn(KEY_TAB) then
            scroll=2
        end

        local mx,my=mousex(),mousey()
        if mx>>3 < 12 and my>>3 < 6 then
            text(mx>>3,100,10,2)
            text(my>>3,111,10,2)
            text((mx>>3)+(my>>3)*12,118,10,2)
        end
        if mbtn(1) then
            if my>=48 then
                seltile=(mx>>3)+((my-48+(scroll*8))>>3)*16
            elseif mx<96 then
                mapa_set_tile(abad.hab,mx>>3,my>>3,seltile)
            end
        elseif mbtn(3) then
            if my<48 and mx<96 then
                mapa_set_tile(abad.hab,mx>>3,my>>3,256)
            end
        end
        if mx>>3 < 12 and my>>3 < 6 then
            local tx,ty=(mx>>3)<<3,(my>>3)<<3
            rect(tx,ty,tx+8,ty+8,3)
        end
    else
        if abad.hurting == 0 then
            draw_hab(abad.hab,0,0)
            --text(abad.hab,1,1,2)
            draw_hab(cameras[current_camera].hab,0,48)
            text(camera_names[current_camera],2,49,8)

            score.draw()
            setsource(tiles)
            prnt("x"..abad.vides,114,13,2)
            rectfill(102+(abad.energia>>1),30,122,37,16)
        else
            sspr(0,0,16,9,50,40,16,9,true)
            if abad.hurting > 40 then
                prnt("x"..abad.vides+1,63,43,3)
            elseif abad.hurting < 20 then
                prnt("x"..abad.vides,63,43,2)
            end
        end

        mapa_update(abad.hab,cameras[current_camera].hab)

        for key,actor in pairs(actors) do
            actor:update()
            if actor.hab==cacau.hab and actor~=abad then
                if aabb(actor,cacau) then
                    if actor.hit~=nil then
                        actor:hit()
                        cacau.hab=-1
                    end
                end
            end
        end
        imp.update()
        bambolla.update()
        cacau.update()
        fireball.update()
        switches.update()
        
        local hx = abad.hab%10
        local hy = flr(abad.hab/10)
        if btnp(KEY_RETURN) then
            mode=modes.editing
            mapa_restore_backup()
        elseif btn(KEY_LSHIFT) and btnp(KEY_RIGHT) and hx<9 then
            abad.hab=abad.hab+1
        elseif btn(KEY_LSHIFT) and btnp(KEY_LEFT) and hx>0 then
            abad.hab=abad.hab-1
        elseif btn(KEY_LSHIFT) and btnp(KEY_DOWN) and hy<7 then
            abad.hab=abad.hab+10
        elseif btn(KEY_LSHIFT) and btnp(KEY_UP) and hy>0 then
            abad.hab=abad.hab-10
        end
        if abad.objects.gps~=nil then
            if btnp(KEY_1) then
                if abad.objects.gorro==nil and abad.objects.clau_premiere==nil then current_camera=1 end
            elseif btnp(KEY_2) then
                if abad.objects.peu==nil and abad.objects.clau_elalien==nil then current_camera=2 end
            elseif btnp(KEY_3) then
                current_camera=3
            elseif btnp(KEY_4) then
                current_camera=4
            elseif btnp(KEY_5) then
                current_camera=5
            end
        end
    end
end

function game_exit()
    mapa_restore_backup()
    freesurf(tiles)
    actors={}
    cameras={}
end

function aabb(a, b)
    return (a.x+a.bb.x+a.bb.w >= b.x+b.bb.x) and (a.x+a.bb.x <= b.x+b.bb.x+b.bb.w) and (a.y+a.bb.y+a.bb.h >= b.y+b.bb.y) and (a.y+a.bb.y <= b.y+b.bb.y+b.bb.h)
end