Compressed Bytes used
1024

Source Code (OPTIONAL)
𝘷=5::f::_=2e=𝘷*22𝘵=20k={{0,0}}i,o,d,n,𝘢,𝘣,𝘯=0,0,0,0,0,0,0::i::?"⁶1⁶c"
𝘯+=.01f=btn()if(i<19)f=0n/=2𝘢*=.7
𝘢*=.96n*=.96n-=(((f&3)+1)%3-1)/9f>>=2𝘢-=(((f&3)+1)%3-1)/9o+=n d+=𝘢 f&=8if(#k<f)𝘵=0
if(𝘵*f>0)r,o,d=unpack(deli(k))deli(k)
if(abs(𝘣-o)+abs(e-d)<f&8)_=3
if(_==3)𝘣,e=o,d
srand(𝘷)camera()for f=1,319do r=cos(f/69)*20+f c=4+f/9+f%2*9line(r-c,f,r+c,f,1)pset(rnd(444)-o\(2+f/20),rnd(444)-d\(2+f/20),8-f/111)𝘤=ord(",,,,,,,,,,,,ひ𝘷,,(,,,,,,,ひ,ひ,,ヲ/,‖フ.ム++_,ひ𝘯,,𝘵,𝘵,ヲ,k,わミ𝘷ヲ+k,ササ,,ひ,ひ,ム_8lりサ𝘷(つ¹kてササ-,て,て,pi,l▒コサそた▒ひササ=,て,て,p,,t▒▒∧こ)+▒ケササ𝘣,ひ,ひ,█,𝘯t▒▒▒⬇️+つりケササ𝘣l⁵,ル,@,𝘯⬆️▒▒𝘢⬇️+⬇️わサササ🐱p⁵,⁴ム𝘢,,ケり◀𝘤³+⬇️わサササ🐱█ひ,わム_,,わサ◀𝘰+⬇️りサササ▒@,,=ム_ひ,りサ▒𝘯つ⬇️わコサ★▒@,,=p-ひ,⬇️▒▒-そ)▒を▒▒▒▒█,,=p-𝘵,⧗▒▒-ヲつ▒𝘧█▒▒𝘢p-,=l,𝘵,⬆️▒▒,ム⬇️▒𝘷,,,,l-,𝘢,,𝘯,ひ🐱▒,,りを𝘯,,,,,,,@,,,,,¥k,,ろサ.",f)-44poke((f%20+f\20*32)*2,𝘤&51,𝘤\4&51)end?𝘷-5
camera(o*.7-64,d-64+𝘢*9)i+=(𝘵-i)/9if(i<.1)𝘷+=_&1goto f
for f=5,444,3do?unpack(k[f]or{})
l=r r=rnd(500)p=f&8if(f>𝘷*22)p=-1
g=(r+𝘯*(33+rnd(9)^2))%666-333l=(333+l+𝘯*(33+rnd(9)^2))%1111-333g+=cos(𝘯+f/90)*(8-p)*2l+=sin(𝘯+f/90)*(8-p)*2pal{3,11}if(rnd(3)<1)pal{8,14}
if(rnd(3)<1)pal{13,12}
if(p>0)pal{13,12,14}
for f=0,1,.4do spr(p,g+rnd()*p\.5,l+f*p\1,2,2)𝘰=g+4+cos(f+𝘯*2)*4+p*●?"●",𝘰,l+16+sin(f+𝘯)*4,1
end?"●",𝘰,l+6,0
end if(pget(o,d)&8>0)𝘵=.1
if(pget(o,d-6)&4<4-f)add(k,{"³d⁴8✽",o,d,4})
pal{8,6,13}spr(6,𝘣-8,e+4,2,i-6)pal{14,2,7}spr(4,𝘣-8,e+4,2,i-6)pal{10,9,2}if(𝘵==.1)pal{4,4}
spr(_,o-8,d-8,1,i)spr(_,o,d-8,1,i,2)for f=0,6,.07do pset(cos(f+𝘯)*(i+f),sin(f+𝘯)*(i+f),f*i)end pal()pal(4,i,1)goto i