Asteroid Field (nerfboy_com)

Asteroid Field

Use the up / down to move, button 1 to shoot.

My entry for #TweetTweetJam - make a game where the code is 560 characters or less. 

I used 552 chars

Here's the Pico-8 code:

while(1)do cls() b={}e=128r=rnd z=rectfill x=9y=50v=0p=0j=0t=0s=0n=90 while(pget(15,y)!=10)do q=20+flr(r(n)) if(r(5)<1)add(b,{x=e,y=q,s=q,v=(r(30)-15)/36}) cls()d=31i=0 for h in all{2,36,73,159,243}do f=d+17-i z(0,d,e,e,h)fillp(0xa5a5)z(0,d,e,d+3,h)fillp(0)i+=2d=f end f=btn(4)a=0 if(f and j<1)z(16,y,e,y,10)j=15 a=1 if(not f)j=0 z(x,y,14,y-2,8) for d in all(b)do d.x-=2 d.y+=d.v if(a>0 and y<d.y+6 and y>d.y and d.x>x) a=0 d.y=e s+=10 ?"◆",d.x,d.y,10 if(d.x>-999 and d.y<e)pset(d.x/3%e,d.s%20,7)pset(d.x/4%e,d.s*2%20,5) end if (btn(2) and v>-3) v-=0.25 if (btn(3) and v<3) v+=0.25 if (band(btn(),0xf)<1)v*=0.85 j-=1 ?s,60,0,8 y+=v flip() t+=1 end end