Compressed Bytes used
1023

Source Code (OPTIONAL)
poke(24405,0)?"\^:815a004242005a81\^:181818a5a5ffff99\^:84627b37269e7c30\^:1f061ee7e71e061f\^:1818182466ff7e24\^:c0e27f272e3d7834\^:040e1fe6e61f0e04\^:3c7ec39999c37e3c\^:3c7efffdfdfb663c\^:14460ba103af5e3c\^:14460ba103af5e3c",0,0
poke(24405,96)_set_fps(60)t={5,0,1,6,0,2,13,8,9}w={5,2,1,0,3,6,7,8}::r::s=0n=1::s::p={{x=256,y=256,u=0,v=-1,w=1,i=1,t=0}}?"\as8gec"
for i=1,n do
a=i/n
c=256+128*cos(a)d=256+128*sin(a)add(p,{x=c,y=d,u=0,v=0,w=0,i=7})
for j=0,5do
a=j/6add(p,{x=c+16*cos(a),y=d+16*sin(a),u=0,v=0,w=0,i=8})
end
end
for i=1,16do
add(p,{x=rnd(512),y=rnd(512),u=0,v=0,w=0,i=16})
end
j={}::_::c=0d=0cls(1)for q in all(p)do
if(q.i==4)c+=1
if(q.i>6and q.i<9)d+=1
pset(q.x/16,q.y/16,12-q.i)
end
o=p[1]camera(o.x-64,o.y-64)
if(c<n)a=rnd()add(p,{x=o.x+128*cos(a),y=o.y+128*sin(a),u=0,v=0,w=.5,i=4,d=2,t=0})
if(d<1)n+=1goto s
for k in all(j)do
k.x+=k.u*2k.y+=k.v*2a=k.x
b=k.y
if(k.i==1)a+=o.x b+=o.y
line(a-k.u*2,b-k.v*2,a,b,12-k.i)
k.l-=1if(k.l<0)del(j,k)
end
for q in all(p)do
if q.i==1then
b=btn()u=b\2%2-b%2v=b\8%2-b\4%2
if(u|v!=0)q.u=u q.v=v
q.t-=1if(q.t<0)add(j,{x=4*q.u,y=4*q.v,u=q.u,v=q.v,i=1,l=32})add(j,{x=-4*q.u,y=-4*q.v,u=-q.u,v=-q.v,i=1,l=32})q.t=20
else
if q.i==4then
q.t-=1if q.t<0then
q.t=30
a=q.u
b=q.v
c=q.x-o.x
d=q.y-o.y
q.d=(q.d+(a*d-b*c<0and 7or 1))%8
c=w[q.d+1]q.u=c%3-1q.v=c\3-1
if(rnd()<.4)add(j,{x=q.x,y=q.y,u=q.u,v=q.v,i=q.i,l=24})
end
end
end
q.x=q.x+q.w*q.u
q.y=q.y+q.w*q.v
z=t[q.u+q.v*3+5]spr(q.i%16+z%4,q.x-4,q.y-4,1,1,z\4%2>0,z\8%2>0)
if(abs(q.i-8)==1)circ(q.x,q.y,16,14)
if(q.i!=1and max(abs(q.x-o.x),abs(q.y-o.y))<6)goto r
for k in all(j)do
if q.i!=1and k.i==1and max(abs(q.x-k.x-o.x),abs(q.y-k.y-o.y))<4then
del(j,k)
if(q.i<9)q.i=q.i==4and 16or q.i+2q.u=0q.v=0s+=1?"\as8c"
end
if(q.i==1and k.i!=1and max(abs(q.x-k.x),abs(q.y-k.y))<4)goto r
end
end
camera()?s,9
flip()goto _