Compressed Bytes used
1018

Source Code (OPTIONAL)
b=1::n::cls(7)s={}d=rnd(128)e=rnd(128)i=flr(rnd(2))o="?"r=0j=0k=0q=100v=30t=v g=1h=0w=time()?"⁷sacdcecg"
x={}𝘨={9,11,12,14,15,10,13}for n=0,(b-1)do y=rnd(128)z=rnd(128)add(x,{d=y,f=z,h=y,s=z,o=rnd(360),i=1,e=4,t=30,c=.53,a=𝘨[n+1]})end function 𝘩()o="?"r=0if(i==0)o="⬆️"r=3
if(i==1)o="⬇️"r=2
if(i==2)o="▥"r=3
if(i==3)o="░"r=2
end function 𝘪()𝘩()?o,d,e+1,0
?o,d,e,r
end function m()?o,d,e+1,7
?o,d,e,7
end function 𝘫()s={}for n=5,127do for f=0,127do l=pget(f,n)if l>7then if(not s[l])s[l]=0
s[l]+=1end end end end f=64n=64𝘢=f 𝘣=n u=0a=1c=4𝘤=10𝘥=0p=0𝘦=0::f::circfill(f,n,c,8)pset(𝘢,𝘣,8)pset(f,n,7)line(f,n,f+sin(u/360)*c,n+cos(u/360)*c)if(btn(⬅️))u-=𝘤*a
if(btn(➡️))u+=𝘤*a
if(time()-w>=1)𝘫()
k+=1if k>q then k=0q=50+rnd(200)i=flr(rnd(4))?"⁷c2e2d2"
end if abs(f-d)<c*2and abs(n-e)<c*2then if(i==0)a+=.1?"⁷s9ce"
if(i==1)a-=.2a=max(.5,a)?"⁷s9c2c2"
if(i==2)c+=1?"⁷s9ce"
if(i==3)c-=2c=max(1,c)?"⁷s9c2c2"
m()d=rnd(128)e=rnd(128)i=flr(rnd(4))end 𝘬=f+sin(u/360)*a 𝘭=n+cos(u/360)*a 𝘢=f 𝘣=n if(g+h==0)f=𝘬 n=𝘭
f=f%128n=n%128n=max(5,n)m()if(g+h==0)d=(d+sin(j/360)*.2)%128e=(e+cos(j/360)*.2)%128
e=max(5,e)j+=flr(rnd(5))𝘥+=1if(g+h==0and 𝘥%3==0)?"⁷c0",0,0
𝘪()for f,n in pairs(x)do circfill(n.d,n.f,n.e,n.a)pset(n.h,n.s,n.a)if(rnd(n.c)>.5)n.o-=n.t*n.i
if(rnd(n.c)>.5)n.o+=n.t*n.i
if(g+h==0)n.d=n.d+sin(n.o/360)*n.i n.f=n.f+cos(n.o/360)*n.i
n.d=n.d%128n.f=n.f%128n.f=max(5,n.f)if abs(n.d-d)<n.e*2and abs(n.f-e)<n.e*2then if(i==0)n.i+=.1
if(i==1)n.i-=.2n.i=max(.5,n.i)
if(i==2)n.e+=1
if(i==3)n.e-=2n.e=max(1,n.e)
m()d=rnd(128)e=rnd(128)i=flr(rnd(4))end end rectfill(0,0,127,4,0)𝘧=0for n,f in pairs(s)do?flr(f/15744*100).."%",𝘧,0,n
𝘧+=16end?t,120,0,7
?b,96,0,14
if h==0and time()-w>=1then t-=1if(t==v-1)g=0
if t==0then h=1for f,n in pairs(s)do if(n>𝘦)𝘦=n p=f
end if(p==8)b+=1?"win",64,64,0
if(p~=8)?"lose",64,64,0
end w=time()end if h==1then if(time()-w>3)goto n
end flip()goto f