Characters/Bytes used
1021

Source Code
m=circ
cf=circfill
k=poke
v=stat
_=rnd
a=0l=0l=20n={}u=0z=0
k(0x5f2d,1)ti=time
for i=0,l do
p={}p.a=0p.x=0p.y=0p.vx=0p.vy=0p.vz=0p.z=0n[i]=p
end
b=-50+ti()function _update()u=5+(ti()-b)/3
cls()a+=0.01s=1
for b=0,3 do
s=1+0.05*b
for i=0,15 do
for j=0,15 do
x=s*(i*8-64)y=s*(j*8-64)r=sqrt(x*x+y*y)o=atan2(y,x)x=64+r*sin(o+a)y=64+r*cos(o+a)p=n[i]
if(r<30 and p.a<1)then
if(_(1000)<1)then
p.x=x
p.y=y
p.z=0+r*0.5
p.vx=(x-64)/r
p.vy=(y-64)/r
p.vz=0.4+0.8*_()
p.a=1
end
end
m(x,y,3*s,((i+j)%15+2+b)%u)end
end
end
for i=0,40 do
m(64,64,40+i,0)end
local e,f=v(32)-1,-1+v(33)
for r=0,3 do
for i=0,l do
p=n[i]
p.x+=p.vx/4
p.y+=p.vy/4
p.z+=p.vz
if(p.a>0)then
if(r<1)cf(p.x,p.y,3+p.z*0.02,0)
m(p.x+p.vx*r,p.y+p.vy*r,p.z*0.1+r*1,p.z*10)dx=sqrt((p.x-e)^2+(p.y-f)^2)if(dx<20 and v(34)>0 and g>0)then
p.a=0
z+=10
cf(p.x,p.y,20,8)end
end
if(p.z>120)do
p.a=0w=130
end
end
cf(e,f,r,7)end
g=flr(30-(ti()-b))o=g
if(g<0)o=0
if(g<0)u=0
if(g<-5)then
?"[click]",40,110
if(v(34)>0)do
b=ti()z=0s=0
end
end
?"planetb score:"..z.." time:"..o,10,7
end