--other = require "other"

x=0

function _init()
    --text=other.peiv()
    --keyRight = tonumber(getconf("keyright")) or KEY_RIGHT
    --keyLeft = tonumber(getconf("keyleft")) or KEY_LEFT
    --_update=normal_update
    --turbo(false)
    --local perico = "péricòñ"
    --print(utf8.len(perico))
    s = surface.load("tiles01.gif")
    --surface.source(s)
    p = palette.load("tiles01.gif")
    palette.set(p)
    print(#p)
    surface.save(s, "data/copy.gif", p)
    s = surface.load("copy.gif")
    --draw.source(s)
end

function _update()
    if key.press(key.ESCAPE) then
        sys.quit()
    end

    draw.cls(5)
    draw.blit(s, 0, 0, 64, 64, 10, 10)
    --draw.print(#p,0,0,2)
end

function normal_update()
    if btnp(keyRight) then x=x+1 end
    if btnp(keyLeft) then x=x-1 end
    if btnp(KEY_SPACE) then
        redefinekeys.init()
    end
    if btnp(KEY_ESCAPE) then
        quit()
    end

    if btnp(KEY_F2) or mbtnp(1) then
        local val = zoom() + 2
        if val >= 10 then val = 2 end
        zoom(val)
    elseif btnp(KEY_F3) then
        fullscreen(not fullscreen())
    end

    if x>160 then x=-strlen(text)*4 end

    clip()
    origin(0,0)
    cls(20)
    clip(10,10,140,100)
    cls(3)
    color(5)
    prnt("HOLA",0,0)
    origin(-70,-50)
    prnt("ORÍGIN",0,0)
    prnt(text,x,10)
    color(10)
    bcolor(15)
    fillp(0x5a5a, false);
    circfill(20,20,10);
    fillp(0xffff,false);
end

redefinekeys = {
    state = 0,
    init = function ()
        redefinekeys.state=0
        _update=redefinekeys.update
    end,
    update = function()
        cls(20)
        if redefinekeys.state == 0 then
            prnt("PULSA TECLA PER A DRETA...",0,0)
            local key = btnp();
            if key ~= 0 then
                redefinekeys.state = 1
                keyRight=key
                setconf("keyright", keyRight)
            end
        elseif redefinekeys.state == 1 then
            prnt("PULSA TECLA PER A ESQUERRA...",0,0)
            local key = btnp();
            if key ~= 0 then
                keyLeft=key
                setconf("keyleft", keyLeft)
                _update=normal_update
            end
        end
    end
}