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 _