Compressed Bytes used
1022

Source Code (OPTIONAL)
?"⁷0s3z5l02i6v1x5a ⁶!0000\0\0\0p⁷\0\0\0\0\0w⁷\0\0\0\0\0pw\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0ww\0\0\0\0\0ww⁷\0\0\0\0pww⁷\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0pww⁷\0\0\0pwww⁷\0\0\0pwwww\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0wwww\0\0\0pwwww\0\0\0pwwwwツ\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0pwwww⁷\0\0wwwツツツ\0\0pwシツ♪ツ\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0ツツツツツツ\0\0ツツツツ☉ツ\0\0オツツツスツ\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0ツ☉ツツ☉ツ\0\0ツ☉ツツツツ\0\0オ♪スツツ\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0ツツツツツツ\0\0ツツツ\0\0\0\0\0オツ\r"
cartdata"lv"if(dget(0)==0)dset(0,~0)
y,c,d,e,a,𝘦,n,i,f,w,l,o=0,0,0,0,0,0,0,0,0,0,0,0function s(w)return sub(1000+w\1,-3)..":"..sub(1000+100*(w%1)\1,-2)end x="⁷v2x5[egb]egb[egb]egb"::w::u=w poke(12800,66+n*9)pal({1,131,3,4,1,140},1)?"⁶1⁶c"
for w=e\1+44,e\1+1,-1do p=max(cos(w*.0007)*3-1)r=mid(.5,sin(w*.0011)*3-2)+p*max(cos(w*.0003))if(w>2500)p,r=min(3.2,(w-2500)/8),.5
local i,e,o,n,f=8-cos(w*.0004)*5,cos(w*.003)+.6,-10-(1-r)*p,8+p*3+w*p*.001,w-e e*=(1-r)/(1+p*5)if(w>2800)i,e,o,n=5,5,1,8
g=(cos(w/170)+sin(w/110))*i line(1)line(-20,20)for i=-20-g\1,20-g\1do local w=min((cos(i/17+w/19)+cos(i/19-w/15))*e+cos((g+i)*.01)*20+o,n)w-=(n-w)*r if(f&-1==8and i==c&-1)l=w a+=(l-z)*.007
z=w 𝘴=20/f h=64+(i-c)*80/f b=64+(w-d*2)*80/f+d*4line(h,b)color(max(5,9+w*1.1))𝘵,j=h,b end if(f>5)line(198,20,1)
end if(f>l)w=max(-1.5,w+(l-f)*n)f=l
if(f+w>l)w=w<.2and 0or w w*=-.3
if(w<u-.2)?"⁷s2v3i5x1[[cfb"
f+=w c+=a e+=n d=f/2-2.2v=.02n*=.99if f>l-.2then v=.03if(btn(5))n+=.02
end w+=.02a*=.98v*=.5+n if(btn(0))a-=v i=(i-6)/2
if(btn(1))a+=v i=(i+6)/2
m=8b=64+(f-d*2)*80/m+d*4spr(.5+(abs(i)&6),56,b-6,2,1,i>0)i*=.9if t()<2then?"⁶w loom valley",12,20,7
else?"⁶w"..s(o),40,4,6
if e<2520then if(o==0)?x
o+=1/30else if(e<2540)?x
dset(0,min(dget(0),~o))?"b𝘦𝘴𝘵: "..s(~dget(0)),40,20,13
end end goto w