Shelf Slide

Created for #tweettweetjam! It's a Pico-8 game in 555 chars!

Controls

Push the white boxes into the path of the red balls.

Press Z to extend the arm. release to let it come back.

When the arm is all the way back it will move up and down automatically.

Ctrl-R to restart

Source Code

a=0g=0h=1s=0w=128b={}o={}::_::for i=0,999do
x=rnd(w)y=rnd(w)c=0
if(h<1)c,x,y=pget(x,y),x-1+rnd(2),y-1+rnd(2)
pset(x,y,c)end
y=64+sin(a)*55for k=1,4do
if(g<1)o[k]={x=64,y=-rnd(w)}
o[k].y+=h/2c=o[k].x
r=o[k].y
circ(c,r,3,8)
if(r>w)h=0
for i=3,11,2do
if(g<1)b[i]=34
if(abs(y/9-.5-i)<.6)b[i]=max(b[i],g)
b[i]-=i/250x=b[i]
if(i==flr(r/9)and c<x+34and c>x)o[k],s={x=10+rnd(115),y=-rnd(w)},s+1
rect(x,i*9,x+30,(i+1)*9,8-h)
end
end
if btn(4)then
g+=h*2else
g=max(g-3,9)
if(g==9)a+=h/w
end
line(6,y,g,y,7+9-g)rectfill(44,6,89,14,0)
?"score:"..s,46,8,7
flip()goto _

If you own Pico-8, you can run this on your machine by copy/pasting the above code into a new cart.

You can also download the cart directly if you'd like. The cart has the raw src as well as the commented version.