pico8-0hh1/main.lua

--
-- Utils
--

function custom_font()
	poke(0x5f58,0x81)
end

function standard_font(font)
	poke(0x5f58,0x80)
end

function idx_xy(idx, width)
	return (idx - 1) % width + 1, (idx - 1) \ width + 1
end

function xy_idx(x, y, width)
	return ((y - 1) * width) + x
end

function map(tbl, f)
	local t = {}
	for k, v in pairs(tbl) do
		t[k] = f(v)
	end
	return t
end

function filter(tbl, f, keepindex)
	local ret = {}
	for k, v in pairs(tbl) do
		if f(v) then
			if keepindex
				then ret[k] = v
				else add(ret, v)
			end
		end
	end
	return ret
end

function slice(tbl, first, last, step)
	local sliced = {}
	for i = (first or 1), (last or #tbl), (step or 1) do
		sliced[#sliced + 1] = tbl[i]
	end
	return sliced
end

function rectfill2(x, y, w, h, col)
	rectfill(x, y, x+w-1, y+h-1, col)
end

function roundedrect(x, y, w, h, col)
	rectfill2(x,y,w,h,0)
	rectfill2(x+1, y, w-2, h, col)
	rectfill2(x, y+1, w, h-2, col)
end

function rect2(x, y, w, h, col)
	rect(x, y, x+w, y+h, col)
end

--
-- Overrides count() to accept a callback
--
-- local _count = count
-- function count(tbl, p)
-- 	if type(p) != "function" then return _count(tbl, p) end
-- 	local c = 0
-- 	for v in all(tbl) do
-- 		if p(v) then c+=1 end
-- 	end
-- 	return c
-- end


-- function tostring(any)
--   if (type(any)~="table") return tostr(any)
--   local str = "{"
--   for k,v in pairs(any) do
--     if (str~="{") str=str..","
--     str=str..tostring(k).."="..tostring(v)
--   end
--   return str.."}"
-- end


--
-- main loop
--

function _init()
	-- pal({[0]=0,128,132,7,136,8,14,137,9,10,131,3,11,1,140,12},1)
	-- poke(0x5f2e,1) --to keep colors

	printh(" ")
	printh("*************")
	printh(" ")
	local date = stat(80)..stat(81)..stat(82)..stat(84)..stat(85)
	srand(date)
	printh("seed " .. date)


	frame_count = 0

	states = {
		rules = state_rules(),
		menu = state_menu(),
		loading = state_loading(),
		game = state_game(),
		endgame = state_endgame(),
	}

	set_state(states.menu)

end

function _update60()
	frame_count += 1

	-- update mouse coords
	mouse_x = stat(32)
	mouse_y = stat(33)

	_coresolve()
	gs._update()
end

function _draw()
	gs._draw()
	for overlay in all(overlays) do
		overlay:_draw()
	end
	-- mouse cursor
	spr(1, mouse_x, mouse_y)
end