Colour lanes (TweetTweetJam 7)

Send every ball to the lane that matches ball colour. A game in 557 characters of code for TweetTweetJam 7

Controls: Left / Right

PICO-8 Source Code:

_set_fps(60)h=0::s::a={}p={}m=.7s=0n=0
for i=1,40do
p[i]={x=64,y=32-i*64,c=11+rnd(4)\1,u=0,v=1,d=0}end
for i=1,4 do
a[i]={y=32+16*i,c=10+i,d=i%2*2-1}
end::_::cls()for b in all(a)do
x,y,u,v=64+8*b.d,b.y,64+64*b.d,b.y+12fillp(░)rectfill(x,y,u,v,b.c)z=btn()d=(z&2)/2-(z&1)for q in all(p)do
if(b.d==d and q.u==0and mid(y,q.y,v)==q.y)q.d=q.c==b.c and 1or 0 q.v=0q.u=d
end
end
?s.."/"..n
?h
for q in all(p)do
q.x+=q.u*m
q.y+=q.v*m
?"●",q.x-3,q.y-2,q.y<16and 8or q.c
if(q.x!=mid(q.x,128)or q.y>128)n+=1m+=.02del(p,q)s+=q.d
end
if(#p<1)h=max(h,s)goto s
flip()goto _