1k Circles

1k Circles

An experimental, colorful game in under 1024 characters of pico8 code for the pico1k jam!

Instructions

Arrow keys to move.
Try to keep a substantial amount of your own color on the screen for as a long as possible!
Your 'health' bar is at the bottom and you 'pop' back to the start if you lose.
Your current and highest scores are shown on the top left.

Code

868 chars in pico8

-- 1k circles -- by sourencho _set_fps(60) f=circfill pal({1,13,14},1) function r(d) cls(3) v=1 s=d s=max(t,s) t=0 a=0 da=0.006 dda=0.0001 q=64 w=64 f(q,w,20,v) end r(0) ::_:: if (btn(0)) q+=-4 if (btn(1)) q+=4 if (btn(2)) w+=-4 if (btn(3)) w+=4 f(q,w,2,v) for i=0,400 do x,y=rnd(128),rnd(128) k=atan2(x-64,y-64) pc = pget(x,y) if pc != 12 then if abs(k-a)<0.07 then if (pc!=v or rnd()<0.85) pc=rnd(2)+2 end f(x,y,2+rnd(1),pc) end end z = 0 for i=0,63 do for j=0,127 do if(pget(i*2+t%2,j) == v) z+=1 end end if (z<200) r(s) f(0,0,22,9) print("s:"..t,1,1,1) print("h:"..s,1,8,1) h=(z-200)/8192*4 rectfill(4,120,4+h*124,124,12) a+=da da+=dda da=min(da, 0.025) t+=1 if(a > 1) a = 0 flip() goto _