Compressed Bytes used
1019

Source Code (OPTIONAL)
poke(24365,1)n,d,e,r,c,o=1,128,1,0,0,0function h(e,n)local e,n=e.o-n.o,e.f-n.f return e,n,sqrt(e^2+n^2)end::e::fillp(42405)rectfill(0,0,d,d,g)if n==1then o+=1a,u,n,i,l,g={},0,0,64,64,rnd()+16for e=1,4+rnd(3)do add(a,{r=true,t=true,e=rnd(3)+4,l=rnd(256)})end for e=1,2do u+=1add(a,{r=true,e=5+rnd(2)})end for e=1,15do if(rnd()<.5)pal(e,d+e,1)
end for e in all(a)do e.o,e.f,e.d,e.i=rnd(d),rnd(d),0,0end if(o==4)e,a=2,{}
end i,l,x,f=stat(32),stat(33),f,stat(34)==1if(f)b=f~=x
s=btnp(5)or b if e==1then local n,o="- ⁵tart -",time()for e=0,64do line(e%2*128+sin(time()+e/64)*7,e*2,1)end for e=1,#n do print("⁶w⁶t"..n[e],18+e*9,50+cos(o+e/9)*3,7)end if(s)e=nil
elseif e==2then print("\nscore: "..6+abs(c-r).."\npress to try again",20,20,7)if(s)e,o=1,0
else n=tonum(#a==u)for e in all(a)do for n in all(a)do if(e==n)break
local o,f,d=h(e,n)local i,l=(1+abs(e.d)+abs(e.i))*.9,(1+abs(n.d)+abs(n.i))*.9local i,r,l,t=o*i/12,f*i/12,o*l/12,f*l/12if d<e.e+n.e+1and e.t then e.d,e.i=l,t n.d,n.i=-i,-r add(a,{o=e.o-o/2,f=e.f-f/2,d=rnd(2)-1,i=rnd(2)-1,e=10,l=6})elseif d<e.e+n.e and e.r then n.d*=.6n.i*=.6n.e-=1end end e.e-=tonum(not e.r)local n,o,f=h(e,{o=i,f=l})if f<e.e+18and e.t then circ(e.o,e.f,e.e+1,e.l+1)line(e.o,e.f,i,l,11)if(s)r+=1e.d,e.i=n/1.6,o/1.6
end if(e.o>d-e.e)e.o=d-e.e e.d*=-1
if(e.o<e.e)e.o=e.e e.d*=-1
if(e.f>d-e.e)e.f=d-e.e e.i*=-1
if(e.f<e.e)e.f=e.e e.i*=-1
e.d*=.99-e.e/100e.i*=.99-e.e/100e.o+=e.d e.f+=e.i if(e.e<3)e.e-=1
if e.e<0then del(a,e)if(e.r)c+=3
end local n=sub(tostr(e.l,1),5,6)if(tonum(n[1],1)<8or tonum(n[2],1)<3)e.l=rnd(256)
if e.t then fillp(▒)ovalfill(e.o-e.e,e.f+e.e+2,e.o+e.e,e.f+e.e-2,2)fillp()if(e.l>192)fillp(42405)
circfill(e.o,e.f,e.e,e.l)fillp()circfill(e.o+e.e/2,e.f-e.e/2,e.e/4,7)else circ(e.o,e.f+1,e.e,2)circ(e.o,e.f,e.e,e.l)end end?"score:"..c-r,1,1
end circfill(i,l,1,13)b=false flip()goto e