pico8-0hh1/coroutines.lua

local coroutines={}

-- starts a coroutine and saves it for future reference
function startcoroutine(co)
	assert(tostr(co) == "[thread]") -- make sure that co is a coroutine, the return value of cocreate()
	add(coroutines, co)
end

-- stops the the coroutine
function stopcoroutine(co)
	del(coroutines, co)
end

function _coresolve()
	for co in all(coroutines) do
		if costatus(co) != 'dead' then
			assert(coresume(co))
		else
			stopcoroutine(co)
		end
	end
end

-- to be used inside a coroutine
function wait(seconds)
	wait_frames(seconds*30)
end

-- to be used inside a coroutine
function wait_frames(frames)
	for i=1,frames do
		yield()
	end
end