How many characters of code did you use?
560

Include your code here, if you'd like to show it off!
o,f,g,h=0,circfill,rectfill,rnd::a::
?"\adc"
s,e,v,r=0,130,.02,{}for i=1,e do add(r,{h(e),h(e),h(16)})end::b::x,y,b,a,l,d,c,z,u=28+h(80),90+h(20),e,e,0,0,0,20+h(72),6+h(40)::c::cls(3)for m in all(r)do pset(m[1],m[2],m[3])end if btn(5)and e==b then
?"\ac1"
b,a,l,d=x,y,(j-x)/2,(k-y)/2end j,k=x-sin(c)*8,y-cos(c)*8g(z,u,z+30,u+8,7)line(x,y,j,k)
?s.." ("..o..")"
f(x,y,5,2)g(z+4,u+4,z+4+22,u+8,3)f(b,a,2,6)
?"❎",x-3,y-2
if b>z+2and b<z+28and u<a and a<u+5then s+=1
?"\ace"
v+=.001goto b end
if(e<b or e<a or b<0or a<0)o=max(s,o)goto a
b+=l a+=d c+=v flip()goto c