mmbshmup/rearm_prototype.p8

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

function _draw()
 cls()
 draw_hud_placeholder()
 draw_weap_opt(0,0,frame_col(item==1),1,"hull","\n  +1\n max\nhealth")
 draw_weap_opt(56,0,frame_col(item==2),2,"vulc","  rate\n\n faster\n firing\n  rate")
 draw_rearm(frame_col(item<0))
end

function _init()
 item=1
 bfm=1
end

function _update()
 if (btn(3) and item > 0 or btn(2) and item < 0) item = -item
 if (btn(0)) item = 1
 if (btn(1)) item = 2
 if (btn() & 0xF ~= 0) and bfm >= 10 or bfm >= 30 then
  bfm = 1
 else
  bfm += 1
 end
end

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

function glow_box(x0, y0, x1, y1, c, cf)
 rect(x0, y0, x1, y1, c[1])
 rect(x0+1, y0+1, x1-1, y1-1, c[2])
 rect(x0+2, y0+2, x1-2, y1-2, c[1])
 if cf then
  -- todo: animate "dot crawl" background
 	fillp(…)
  rectfill(x0+3, y0+3, x1-3, y1-3, cf)
  fillp()
 end
end

function frame_col(hot)
 if (not hot) return {4,10}
 if (bfm<=16) return {14,7}
 return {2,8}
end

function draw_weap_opt(x, y, c, s, hdr, body)
 camera(-x,-y)
 glow_box(0,0,55,100,c,1)
 spr(s,5, 5)
 print(hdr, 13, 8, 7)
 print(body, 5, 15, 6)
 camera()
end

function draw_rearm(c)
 glow_box(0,101,111,127,c,1)
 spr(5,15,107,4,2)
 print("full ammo\nfull shield\n+50% health",54, 106, 6)
end

__gfx__
000000000b00000000000a0007700770000aa0000444440004444444000000000000000000000000000000000000000000000000000000000000000000000000
00000000bba80880000008000aa00aa00a0880a0447777700477777a000000000000000000000000000000000000000000000000000000000000000000000000
007007000aaa28780a0000000990099008000080477aaa7a0477aaaa000000000000000000000000000000000000000000000000000000000000000000000000
0007000008a8887808000000099009900080080047a0047a047a0000000000000000000000000000000000000000000000000000000000000000000000000000
00007000088888820000a000088008800000000047a0447a047a0000000000000000000000000000000000000000000000000000000000000000000000000000
00700700008888200000800008800880a000000a47a4477a047a4440000000000000000000000000000000000000000000000000000000000000000000000000
000000000008820000a0000008800880080aa080477777a00477777a000000000000000000000000000000000000000000000000000000000000000000000000
0000000000002000008000000880088000088000477770000422aaaa222200020000020000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000047a77700022ee0002eeee002e00022e000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000047a4777002ea2e002e002e02ee022ee000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000047a0477a22ea2e002e002e02e2e2e2e000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000047a0047a2e2222e02e222e02e02e02e000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000000047a0047a2eeeeeea2eeee002e02e02e000000000000000000000000000000000000000000000000000000000
00000000000000000000000000000000000000000aa000aa2e7aa2ea2e00e002e02e02e000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000002e0002e02e002e02e02e02e000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000e0000e00e000e00e00e00e000000000000000000000000000000000000000000000000000000000