Compressed Bytes used
1024

Source Code (OPTIONAL)
q,v,z,b,l,i,u,c,e,n=0,0,0,0,5,0,0,0,0,0g=.0125𝘢=2j=2f=2𝘣=0𝘤={}𝘥=stat(80)..stat(81).."."..stat(82)srand(tonum(𝘥))𝘦=rnd()pal{4,9,3,1,5,2,[15]=6}for n=1,200do q+=8v+=8*sin(𝘦+n/64)+rnd()*.8*n-.4*n z=n/2*cos(𝘦+n/64)add(𝘤,{e=q,d=v,f=z,i=14-n%6,o=n/2})if(n==1)k,m=q,v
end function _update60()if(e<-1and not r)if(btn(5))run()else print("❎",61,118,0)return
cls(7)𝘧=k-8*cos(i)𝘨=m-8*sin(i)𝘩=l+1.3u*=.92c*=.92n*=.96if(btn(2))u+=g*cos(i)c+=g*sin(i)
if(btn(3))u-=g*cos(i)c-=g*sin(i)
if(btn(0))n+=𝘢
if(btn(1))n-=𝘢
if(p)e=0f=j else e-=.003
w={}for n=1,1024do add(w,{})end r=nil for n in all(𝘤)do x(n.e-k,n.d-m)if d<2.17do if l>=n.f do r=n if l+e<n.f do if(not p and not n.t)n.t=1n.o=t()+.1𝘣+=1j+=.05
p=1l=r.f e=0end else u*=-1c*=-1end end x(n.e-𝘧,n.d-𝘨)add(w[1+d\.5],n)end if(not r)p=nil
k+=u m+=c i+=n>>14l+=e for n=1024,8,-1do if(n>800or n<10)fillp(░)
for n in all(w[n])do 𝘪(n.e,n.d,n.f)a,s=320/d,(𝘩-n.f)*260/d/d y=t()<n.o and 7or n.i rectfill(h-a,o,h+a,o+(1024+8*n.e)/d,y-8)ovalfill(h-a,o-s,h+a,o+s,s>0and y or y-8)if(not n.t)circfill(h,o-180/d,44/d,9+(d+32*i)%6)if(n.e%64==8)n.d+=n.e/6000*cos(n.e/6000*t())oval(h-a,o-s,h+a,o+s,7)
end if n==13do if(r)𝘪(k,m,r.f)ovalfill(60,o-2,68,o,r.i-8)
rrectfill(61,78,7,11,1,15)if(btn(5)and f>0)fillp(▥)rectfill(61,88,67,89,rnd{0,7})f-=.04e+=.005p=nil
fillp(▒)rectfill(63,86,65,80,13)rectfill(63,86,65,86-6*f/j,f>0and 7)end fillp()end rrectfill(3,4,3+j\.4*2,5,1,0)if(f>0)fillp(▒)rectfill(4,5,4+f\.4*2,7,7)fillp()
?𝘣,3,12,0
?𝘥,3,120
end function x(n,e)b=atan2(n,e)d=n*cos(b)+e*sin(b)end function 𝘪(n,e,f)x(n-𝘧,e-𝘨)𝘫=(.5+i-b)%1-.5h=64+1024*𝘫+.5o=64-64/d*2.5*(f-𝘩)+.5end

Link to Commented Source Code (OPTIONAL)
https://www.lexaloffle.com/bbs/?tid=151834