mmbshmup/rearm_prototype.p8

pico-8 cartridge // http://www.pico-8.com
version 42
__lua__
-- vacuum gambit
-- by kistaro windrider

function _draw()
 cls()
 -- hud placeholder

 rectfill(112, 0, 127, 127,0x56)
 rect(112,0,127,127,7)
 line(127,1,127,127,5)
 line(113,127)

 glow_box(0, 0, 55, 100, 4, 10, 1)
 glow_box (0, 101, 111, 127, 4, 10, 1)
 if t()%1>0.5 then
  glow_box(56, 0, 111, 100, 14, 7, 1)
 else
  glow_box(56, 0, 111, 100, 2, 8, 1)
 end
-- rect(4, 4, 123, 123, 4)
-- rect(5, 5, 122, 122, 10)
-- rect(6, 6, 121, 121, 4)
end

function glow_box(x0, y0, x1, y1, c0, c1, cf)
 rect(x0, y0, x1, y1, c0)
 rect(x0+1, y0+1, x1-1, y1-1, c1)
 rect(x0+2, y0+2, x1-2, y1-2, c0)
 if cf then
 	fillp(…)
  rectfill(x0+3, y0+3, x1-3, y1-3, cf)
  fillp()
 end
end