Compressed Bytes used
1023

Source Code (OPTIONAL)
d=-1u=0y=0c=99s=0function w(e)p=true while p do p=false g=16+flr(rnd(96))v=16+flr(rnd(96))for e in all(a)do if abs(g-e.e)+abs(v-e.f)<25then p=true end end end add(a,{e=g,f=v,i=e,d=0,o=.3})end::e::?"⁶1⁶c"
cls()rect(8,8,120,120,8+6*abs(d)+min(6,c)%2)?"score: "..u,9,2
for e=(d+1)*10,9do b=e*abs(sin(t()))?"⁶w⁶t⁶opivop!",41+b,57+b,3+e%2*8
?"press ❎",49,90,3+s*8
?"by andy wallace",35,110,3
end if btn()<1and d<0and s>0then d=1a={}w(1)u=0n=64f=64l=2o=0s=0end if btnp()*d<0then s=1end if d<0then goto e end for e in all(a)do e.d=min(6,e.d+e.o)j=8-e.i*6line(8+e.i*6)if e.i>0then line(e.e,e.f+e.d)end for f=0,1-e.i/2,.02do line(e.e+cos(f)*(e.d+abs(sin(f*j))*5),e.f+sin(f)*(e.d+abs(sin(f*j))*5))end if e.i>0then line(e.e,e.f+e.d)end pset(e.e-3,e.f-3.5+sin(t())*1.5)pset(e.e+3,e.f-3.5+sin(t())*1.5)line(e.e-1,e.f,e.e+1,e.f)pset(e.e-2,e.f+1-e.i*2)pset(e.e+2,e.f+1-e.i*2)if e.d>=6and(n-e.e)^2+(f-e.f)^2<144and d>0then d=e.i if d<1then o=min(o,-2)end u+=e.i e.o*=-1a[1].o=-.3c=9-d*9elseif e.d<0then del(a,e)w(e.i)end end k=n m=f if btn()*d>0then if q then h=max(11,sqrt((n-e)^2+(f-r)^2))x=sgn(abs(n-e+cos(i+.76)*h)+abs(f-r+sin(i+.76)*h)-abs(n-n+cos(i))+abs(f-f+sin(i)))q=false end i+=(.004+.4/h)*x n=e+cos(i+.75)*h f=r+sin(i+.75)*h if n<8or n>120or f<8or f>120then x*=-1end l=n-k o=f-m line(n,f,e,r,11)else n+=l*d f+=o i=atan2(n-k,f-m)o+=.14if n<8then l=abs(l)end if n>120then l=-abs(l)end if f<8then o=abs(o)end if f*d>120then o=-abs(o)end e=n r=f while mid(e,8,120)==e and mid(r,8,120)==r do e+=cos(i+.25)r+=sin(i+.25)end q=true end n=mid(8,n,120)if d>0then f=mid(8,f,120)end if f>230then d=-1end circfill(n+cos(i+.25)*6,f+sin(i+.25)*6,2,3)circfill(n,f,6,11)circfill(n+cos(i+.4)*3,f+sin(i+.4)*3,1,2)circfill(n+cos(i+.1)*3,f+sin(i+.1)*3,1)for e=.1,.4,.05do pset(n+cos(i-e)*3,f+sin(i-e)*3)end circfill(n+cos(i-.25)*3,f+sin(i-.25)*3,2*(1-d))y+=1if y%240<d or#a<2then w(0)end c+=.3goto e

Link to Commented Source Code (OPTIONAL)
https://code.emma.coop/andy/pico1k_2025/src/branch/main/pivop.p8