How many characters of code did you use?
555

Include your code here, if you'd like to show it off!
::a::c=circfill o=sin w=rnd x=cos y=btn
s=15e=.0002b=.02a=64d=10v=0j=0q=60f=15r=w(5)+1g=0u=.75h=w(a)+10i=w(a)+10z={}for i=0,7do add(z,w(7)+1)end::b::p=pget(k,l)t=pget(m,n)v+=.005k=a+x(u)*q l=a-o(u)*q m=k+x(u)*2n=l-o(u)*2d+=.005if(f<0)goto a
if(y(➡️))j+=e f-=b
if(y(⬅️))j-=e f-=b
if(y(⬆️))v-=b f-=b
q-=v u+=j
if(p<1)goto d
if p==s or t==s then f+=3goto c end
if(p<12)goto a
goto d::c::h=w(a)+10i=w(a)+10g+=1::d::cls()line(k,l,m,n,12)c(a,a,8,9)for i=2,#z do c(a+x(d/z[i])*(i*10),a-o(d/z[i])*(i*10),2,i)end c(a+x(d/r)*h,a-o(d/r)*i,1,s)
?(f)
?(g)
flip()goto b