97 lines
2.1 KiB
Lua
97 lines
2.1 KiB
Lua
--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
|
|
}
|