Compressed Bytes used
1015

Source Code (OPTIONAL)
bl={}𝘧=rectfill 𝘪=circfill o=cos z=sin 𝘭=line
function 𝘣(s)for i=1,1000do
add(bl,{x=rnd()*3500000,y=rnd()*80,𝘴=s,w=rnd()*(90-s*10)})end
end function i(x,y,r,s,c)for a =0,s do
oval(x-r+a,y-r,x+r-a,y+r,c)oval(x-r,y-r+a,x+r,y+r-a)end end
𝘳=0function dt(x,y)for i= 0,10 do
k = 𝘳+i/10local m,𝘮,n,𝘯 = 13*o(k),13*z(k),2*o(k),2*z(k)𝘭(x+𝘯,y+n
,x+𝘯+m,y+n+𝘮,6)𝘭(x-𝘯,y-n,x-𝘯+m,y-n+𝘮)end
i(x,y,16,3,5)end
l=8ls=2g=5function 𝘥(o1,o2,c,cs,d,w)local
c=c or l cs=cs or ls
w=w or 2for i=0,w do
𝘭(o1.x+i,o1.y,o2.x+i,o2.y,c)end
if(d==0)w=0𝘭(o1.x+w,o1.y+1,o2.x+w,o2.y+1,cs)end
function dl(x1,y1,x2,y2,c,cb)mx,my= (x2-x1),(y2-y1)ll=(mx^2+my^2)^0.5ms=(46^2-ll^2)^0.5/2px=mx/2+x1+ms*my/ll
py = my/2+y1-ms*mx/ll
𝘥({x=x1,y=y1},{x=px,y=py},c,cb,0,6)𝘥({x=px,y=py},{x=x2,y=y2},c,cb,0,5)
end b={}function y(x,y)return {x=x+b.x,y=y+b.y}end
𝘴=0r=0s=0𝘤={1,13,9}𝘣(1)𝘣(2)𝘣(3)b={x=32,y=100}::_::cls(12)𝘴*=0.99s*=0.9if(btn(➡️))s+=0.004𝘴+=s/50r-=s
𝘳-=𝘴
for b in all(bl)do 𝘧(b.x,116,b.x-b.w,36+b.y-b.𝘴*5,𝘤[b.𝘴])b.x-=𝘴*b.𝘴^3
end 𝘧(0,116,128,128,5)f,p,a,t,c,p1,p2,h,n,e=y(54,0),y(23,0),y(14,-30),y(43,-40),y(47,-27),y(23+9*o(r),9*z(r)),y(23-9*o(r),-9*z(r)),y(10,-35),y(23,-60),y(28,-45)dl(h.x,h.y,p2.x,p2.y-3,13,1)𝘥(p,p2,13,5)𝘧(p2.x-3,p2.y-1,p2.x+3,p2.y+1,5)𝘧(p2.x,p2.y-3,p2.x+7,p2.y-2,2)dt(f.x,f.y)dt(b.x,b.y)𝘥(p,b)𝘥(p,c)𝘥(c,f)𝘥(b,c)𝘥(a,p,l,ls,0)𝘥(t,f,l,ls,0)𝘧(a.x-3,a.y,a.x+8,a.y+4,g)𝘪(t.x,t.y,2.5)circ(b.x,b.y,2)𝘭(b.x,b.y+2,p.x,p.y+4,1)𝘭(b.x,b.y-2,p.x,p.y-4)i(p.x,p.y,4,1,g)𝘥(p,p1,6,13,0)𝘪(h.x+4,h.y+1,3.5,13)𝘥(n,h,14,8,1,7)dl(h.x,h.y,p1.x,p1.y-3,12,1)𝘧(p1.x-3,p1.y-1,p1.x+3,p1.y+1,13)𝘧(p1.x,p1.y-3,p1.x+7,p1.y-2,8)𝘥(n,e,14,8,0,4)𝘥(e,t,15,4,0,4)𝘪(n.x+6,n.y-4,5,15)flip()goto _