2024-01-12 19:14:54 +00:00
|
|
|
pico-8 cartridge // http://www.pico-8.com
|
|
|
|
version 41
|
|
|
|
__lua__
|
|
|
|
|
|
|
|
-- vacuum gambit automatic brake test
|
|
|
|
-- by kistaro windrider
|
|
|
|
|
|
|
|
function usplit(str)
|
|
|
|
return unpack(split(str))
|
|
|
|
end
|
|
|
|
function csv(s)
|
|
|
|
local ret = split(s, "\n")
|
|
|
|
for i, v in ipairs(ret) do
|
|
|
|
ret[i] = type(v) == "string" and split(v) or { v }
|
|
|
|
end
|
|
|
|
return ret
|
|
|
|
end
|
|
|
|
|
|
|
|
-- generate standard "overlay"
|
|
|
|
-- constructor for type tt.
|
|
|
|
-- if more is defined, generated
|
|
|
|
-- new calls more(ret) after
|
|
|
|
-- ret is definitely not nil
|
|
|
|
-- before calling setmetatable.
|
|
|
|
-- use to initialize mutables.
|
|
|
|
--
|
|
|
|
-- if there was a previous new,
|
|
|
|
-- it is invoked on the new
|
|
|
|
-- object *after* more, because
|
|
|
|
-- this works better with the
|
|
|
|
-- `more` impls i use.
|
|
|
|
function mknew(tt, more)
|
|
|
|
local mt, oldnew = { __index = tt }, tt.new
|
|
|
|
tt.new = function(ret)
|
|
|
|
if (not ret) ret = {}
|
|
|
|
if (more) more(ret)
|
|
|
|
if (oldnew) oldnew(ret)
|
|
|
|
setmetatable(ret, mt)
|
|
|
|
return ret
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
2024-01-15 02:21:10 +00:00
|
|
|
function _init()
|
|
|
|
pal(1,129,1)
|
|
|
|
the_ship = ship.new()
|
2024-01-15 03:03:34 +00:00
|
|
|
constraints:setup()
|
|
|
|
slomo = 1
|
2024-01-15 02:21:10 +00:00
|
|
|
sloc = 0
|
|
|
|
reroll()
|
|
|
|
end
|
|
|
|
|
|
|
|
function reroll()
|
2024-01-15 03:03:34 +00:00
|
|
|
frames=0
|
|
|
|
sloc=0
|
2024-01-15 02:21:10 +00:00
|
|
|
the_ship:reroll()
|
2024-01-12 19:14:54 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
function _update60()
|
2024-01-15 02:21:10 +00:00
|
|
|
if (btnp(4)) reroll()
|
2024-01-15 03:03:34 +00:00
|
|
|
if (btnp(5)) constraints:cycle()
|
|
|
|
if (btnp(3)) slomo <<= 1
|
|
|
|
if (btnp(2)) slomo >>= 1
|
|
|
|
slomo = (slomo < 1) and 1 or (slomo > 8192) and 8192 or slomo
|
2024-01-15 02:21:10 +00:00
|
|
|
sloc += 1
|
2024-01-15 03:03:34 +00:00
|
|
|
if sloc >= slomo then
|
|
|
|
frames += 1
|
2024-01-15 02:21:10 +00:00
|
|
|
the_ship:update()
|
|
|
|
sloc=0
|
|
|
|
end
|
2024-01-12 19:14:54 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
function _draw()
|
2024-01-15 02:21:10 +00:00
|
|
|
cls(1)
|
2024-01-15 03:03:34 +00:00
|
|
|
constraints:draw()
|
2024-01-15 02:21:10 +00:00
|
|
|
the_ship:draw()
|
2024-01-15 03:03:34 +00:00
|
|
|
print("frames: " .. frames, 4, 64, 7)
|
|
|
|
print("speed: 1/" .. slomo, 8, 70, 7)
|
|
|
|
|
|
|
|
print("thrust: ".. actual_t, 4, 80, 7)
|
|
|
|
meter(80, 80, 128, 84, actual_t/the_ship.thrust/2)
|
|
|
|
print("dx: ".. the_ship.dx, 20, 86, 7)
|
|
|
|
meter(80, 86, 128, 90, the_ship.dx/the_ship.maxspd/2)
|
|
|
|
print("x: "..the_ship.x, 24, 92, 7)
|
|
|
|
|
|
|
|
print("xmin:"..tostr(constraints.xmin), 12, 102, 7)
|
|
|
|
print("xmax:"..tostr(constraints.xmax), 12, 108, 7)
|
|
|
|
end
|
|
|
|
|
|
|
|
function meter(x0, y0, x1, y1, frac)
|
|
|
|
local c = 11
|
|
|
|
if frac < 0 then
|
|
|
|
frac = -frac
|
|
|
|
c = 8
|
|
|
|
end
|
|
|
|
local range = x1-x0
|
|
|
|
local midpoint = x0 + (range/2)
|
|
|
|
rectfill(x0, y0-1, x0, y1+1, 13)
|
|
|
|
rectfill(midpoint, y0-1, midpoint, y1 + 1, 13)
|
|
|
|
local width = range * frac
|
|
|
|
if (width ~= 0) rectfill(x0, y0, x0 + width, y1, c)
|
2024-01-12 19:14:54 +00:00
|
|
|
end
|
2024-01-15 02:21:10 +00:00
|
|
|
|
|
|
|
-->8
|
|
|
|
-- ship
|
|
|
|
|
|
|
|
ship = {
|
|
|
|
maxspd=4,
|
|
|
|
thrust=0.25,
|
|
|
|
drag=0.0625,
|
|
|
|
y=32,
|
|
|
|
}
|
|
|
|
mknew(ship)
|
|
|
|
|
|
|
|
function ship:reroll()
|
|
|
|
self.x=rnd(128)
|
|
|
|
self.dx=rnd(2*self.maxspd)-self.maxspd
|
|
|
|
end
|
|
|
|
|
|
|
|
function ship:draw()
|
|
|
|
if self.x < -7 then
|
|
|
|
spr(2, 0, self.y-7)
|
|
|
|
spr(2, 0, self.y+8)
|
|
|
|
elseif self.x > 127 then
|
|
|
|
spr(2, 120, self.y-7, 1, 1, true)
|
|
|
|
spr(2, 120, self.y+8, 1, 1, true)
|
|
|
|
else
|
|
|
|
spr(1,self.x,self.y)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
function ship:update()
|
|
|
|
local t = btn(0) and -1 or btn(1) and 1 or 0
|
|
|
|
t *= self.thrust
|
2024-01-15 03:03:34 +00:00
|
|
|
t = constraints:constrain(self, t)
|
2024-01-15 02:21:10 +00:00
|
|
|
local s,lim=self.dx+t,self.maxspd
|
|
|
|
local sg = sgn(s)
|
|
|
|
s -= sg*self.drag
|
|
|
|
if (sgn(s) != sg) s=0
|
|
|
|
if (abs(s)>lim) s=sg*lim
|
|
|
|
|
|
|
|
self.x += s
|
|
|
|
self.dx = s
|
|
|
|
self:add_sparks(t)
|
2024-01-15 03:03:34 +00:00
|
|
|
actual_t = t
|
2024-01-15 02:21:10 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
function ship:add_sparks(t)
|
|
|
|
end
|
|
|
|
|
|
|
|
-->8
|
|
|
|
-- constraints
|
|
|
|
|
2024-01-15 03:03:34 +00:00
|
|
|
constraints = {
|
|
|
|
ymin=20,
|
|
|
|
ymax=52,
|
|
|
|
}
|
|
|
|
|
|
|
|
function constraints:constrain(s, want)
|
2024-01-15 02:21:10 +00:00
|
|
|
return want
|
|
|
|
end
|
|
|
|
|
2024-01-15 03:03:34 +00:00
|
|
|
function constraints:cycle()
|
|
|
|
if self.ctype=="bounds" then
|
|
|
|
self.ctype="point"
|
|
|
|
elseif self.ctype=="point" then
|
|
|
|
self.ctype="off"
|
|
|
|
else
|
|
|
|
self.ctype="bounds"
|
|
|
|
end
|
|
|
|
self:setup()
|
|
|
|
end
|
|
|
|
|
|
|
|
function constraints:setup()
|
|
|
|
if self.ctype=="point" then
|
|
|
|
self.xmin = 64
|
|
|
|
self.xmax = 64
|
|
|
|
elseif self.ctype=="bounds" then
|
|
|
|
self.xmin = 32
|
|
|
|
self.xmax = 96
|
|
|
|
else
|
|
|
|
self.xmin = nil
|
|
|
|
self.xmax = nil
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
function constraints:draw()
|
|
|
|
if (not self.xmin) return
|
|
|
|
rect(self.xmin, self.ymin, self.xmax, self.ymax, 10)
|
|
|
|
end
|
|
|
|
|
2024-01-15 02:21:10 +00:00
|
|
|
-->8
|
|
|
|
-- fx
|
|
|
|
|
|
|
|
-- todo: spark ring buffer
|
|
|
|
|
|
|
|
__gfx__
|
|
|
|
00000000800000000008000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
00000000006666000080000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
00000000067777600800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
00000000675555758008888000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
00000000675000750800000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
00000000067777500080000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|
|
|
|
00000000005555000008000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
|