Compressed Bytes used
1020

Source Code (OPTIONAL)
_set_fps(60)poke(24405,0)cls()s="\^:000000844cfcfcb8\^:00000001023d437f\n\^:c0c0600000000000\^:0301000000000000"?"\f1\^o25a"..s,8,0
?s,8,0
mset(1,1,1)mset(2,1,2)mset(1,2,17)mset(2,2,18)poke(24405,96)h=0::r::s=0l=1r={i=0,x=64,y=64,z=0,f=0,r=0,c=8}::s::j=0m="level "..l?"\as8c.c.e-.f.c.c"
k=120p={r}o={}w={}n=l*2+4t=0::_::cls(1)t=max(t-.1)a=rnd()u=t*cos(a)v=t*sin(a)if(#p<n+1and #p<l\2+4)add(p,{i=1,x=rnd(2)\1*176-32,y=rnd(96)+16,z=0,f=0,r=0,c=(n-#p)%7+9,k=rnd(32)+32})
for q in all(o)do
c=cos(q.z)d=sin(q.z)q.x+=c*2q.y+=d*2line(q.x+u,q.y+v,q.x+c*2+u,q.y+d*2+v,q.c)q.l-=1if(q.l<1)del(o,q)
end
for q in all(p)do
q.r-=1if q.i<1do
a=btn()\2%2-btn()%2b=btn()\8%2-btn()\4%2q.f=q.z
if(a|b!=0)q.f=atan2(a,b)
else
q.k-=1if(q.k<1)q.f=q.z+(rnd(2)-1)*.2q.k=rnd(32)+16
end
if(q.x<12)q.f=0
if(q.y<12)q.f=.75
if(q.x>116)q.f=.5
if(q.y>116)q.f=.25
if(q.i<1or k<1)q.z-=mid(-.01,.01,(q.z-q.f+.5)%1-.5)
c=cos(q.z)d=sin(q.z)if(q.i<1or k<1)q.x+=c*.5q.y+=d*.5
if(q.i<1and q.r<1)q.r=10add(o,{x=q.x+c*6,y=q.y+d*6,z=q.z,c=7,l=24})
pal({q.c,2})f=10if((q.z*2+.5)%2>1)f=-10c=-c
tline(16)poke(24376,32)poke(24377,32)for e=-10,10do
tline(q.x-f+u,q.y+e+v,q.x+f+u,q.y+e+v,16-10*c+e*d,16+10*d+e*c,c,-d)end
pal()if q.i>0do
a=(r.x-q.x)/5
b=(r.y-q.y)/5
if(a*a+b*b<1and j<1)j=2m="game over"k=120del(p,r)t=2for i=1,50do add(w,{x=r.x,y=r.y,z=rnd(),v=rnd(2)+2,l=24})end?"\as8i6f"
for z in all(o)do
a=(z.x-q.x)/5
b=(z.y-q.y)/5
if(a*a+b*b<1)s+=1n-=1del(p,q)del(o,z)t=2for i=1,50do add(w,{x=q.x,y=q.y,z=rnd(),v=rnd(2)+2,l=24})end?"\as8i6f"
end
end
end
for q in all(w)do
q.x+=q.v*cos(q.z)q.y+=q.v*sin(q.z)q.v*=.9circfill(q.x+u,q.y+v,q.l/5,({5,8,9,7,10})[q.l\5+1])q.l-=1if(q.l<1)del(w,q)
end
?s,6
?h
if(k<1and j<1and n<1)j=1m="well done"k=120
if(k>0)k-=1?"\^o25a"..m,64-#m*2,48,10
if(k<1and j>1)h=max(s,h)goto r
if(k<1and j>0)l+=1goto s
flip()goto _