40 lines
679 B
Lua
40 lines
679 B
Lua
main={}
|
|
add(modules,main)
|
|
|
|
function main:init()
|
|
extcmd("rec")
|
|
self.board=board:new(progression[1])
|
|
end
|
|
|
|
function main:update()
|
|
self.board:update()
|
|
if self.board:can_take_input() then
|
|
if (btnp(0)) self.board.cursor:move_x(-1)
|
|
if (btnp(1)) self.board.cursor:move_x(1)
|
|
if (btnp(2)) self.board.cursor:move_y(-1)
|
|
if (btnp(3)) self.board.cursor:move_y(1)
|
|
if (btnp(4)) self.board.cursor:toggle_grab()
|
|
if (btnp(5)) self.board:undo()
|
|
end
|
|
end
|
|
|
|
function main:draw()
|
|
cls(13)
|
|
self.board:draw()
|
|
-- bg
|
|
pal(13,-3,1)
|
|
|
|
-- arcana
|
|
-- pal(1,0,1)
|
|
pal(15,-9,1)
|
|
|
|
-- suits
|
|
pal(4,-11,1) -- first suit
|
|
pal(12,12,1)
|
|
pal(2,-8,1)
|
|
pal(3,-5,1)
|
|
|
|
-- pal(8,-9,1)
|
|
-- pal(14,8,1)
|
|
end
|