88 lines
3.4 KiB
Lua
88 lines
3.4 KiB
Lua
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
|