73 lines
1.3 KiB
Lua
73 lines
1.3 KiB
Lua
function state_game()
|
|
|
|
local board
|
|
local selected_id = 1
|
|
local timer_clue = 0
|
|
|
|
local function show_clues()
|
|
-- local result = board:is_valid()
|
|
-- if result ~= true and result ~= false then
|
|
-- local rule,what,where = unpack(result)
|
|
-- --printh("Rule: " .. rule .. " " .. what .. " " .. where[1].. " " .. where[2])
|
|
-- end
|
|
end
|
|
|
|
local function draw_selected_tile()
|
|
local x, y = board:draw_coords(selected_id)
|
|
local w = board:get_tile_width()
|
|
fillp(▒)
|
|
rect2(x-1, y-1, w+2, w+2, 6)
|
|
fillp(█)
|
|
end
|
|
|
|
local function _enter(_board)
|
|
board = _board
|
|
-- lock the initial tiles
|
|
board:lock_tiles()
|
|
end
|
|
|
|
local function _leave()
|
|
-- stopcoroutine(show_clues)
|
|
end
|
|
|
|
local function _draw()
|
|
cls()
|
|
board:draw()
|
|
draw_selected_tile()
|
|
end
|
|
|
|
local function _update()
|
|
timer_clue += 1
|
|
if timer_clue % 120 == 0 then
|
|
show_clues()
|
|
end
|
|
local size = board:get_size()
|
|
local x, y = board:idx_xy(selected_id)
|
|
if btnp(UP) then
|
|
y -= 1
|
|
elseif btnp(DOWN) then
|
|
y += 1
|
|
elseif btnp(LEFT) then
|
|
x -= 1
|
|
elseif btnp(RIGHT) then
|
|
x += 1
|
|
end
|
|
|
|
if btnp(BTN_O) then
|
|
board:try_flip_tile(selected_id)
|
|
end
|
|
|
|
if (x<1) x=size
|
|
if (x>size) x=1
|
|
if (y<1) y=size
|
|
if (y>size) y=1
|
|
selected_id = board:xy_idx(x, y)
|
|
end
|
|
|
|
return {
|
|
_enter = _enter,
|
|
_update = _update,
|
|
_draw = _draw,
|
|
_leave = _leave
|
|
}
|
|
end |