1K Basketball Challenge #Pico1k

Timed basketball shooting contest. A game in 1024 Compressed Bytes of code for PICO-1K Jam 2022  #Pico1k

Code:

_set_fps(60)h=0s=0::s::x=64y=64m=0g=.002t=0o=0w=0u=nil?"\aszv7g1def#gdef#aef#g#aef#g#bf#g#a#bb" ::_::cls(1)t+=1pal(0,129,1) poke(24405,0)cls() circfill(16,16,5,9)a=6*cos(t/99)b=6*sin(t/99) circ(16-a,16-b,3,0)circ(16+a,16+b,3) line(16+b,16-a,16-b,16+a) poke(24405,96) rectfill(0,0,2,64,6) rectfill(0,120,127,127,3) rectfill(0,123,127,127,11) rectfill(0,65,2,127,13) l=120-t\60 if(m>0)b=max(l)c=b\60d="0"..(b%60)rectfill(32,0,112,12,0)rect(32,0,112,12,2)?"\^p"..c..":"..sub(d,#d-1,#d).." "..s,40,2,10 if(m>0and l<0)m=max(m,2) if m<1then h=max(h,s)a=t\16%8 ?"\^w\^tbasketball\nchallenge",40,24,8+min(a,8-a) ?"\n\nscore: "..s ?"\nhighscore: "..h ?"\n\npress 🅾️ to start" if(btnp(5))m=1s=0t=0 elseif m<2then if(u==nil)u=64+rnd(64)v=48+rnd(64) b=btn()x=mid(3,x+b\2%2-b%2,124)y=mid(2,y+b\8%2-b\4%2,125) ?"><",x-3,y-2,10 spr(0,u-16,v-16,4,4)a=x-u b=y-v c=u d=v a/=96b/=96e=a f=b for i=0,255do c+=e d+=f f+=g if((i-t)%16<1)pset(c,d,12) end e=0f=0 if(btnp(4))m=2e=a f=b elseif m<512then m+=1 spr(0,u-16,v-16,4,4) for i=1,5do a=u b=v u+=e v+=f f+=g if(b<40and v>=40and abs(u-20)<10)s+=1o=5?"\as8i4x3c4s3c0" k=-.7 if(u<8and e<0)w=1u=16-u e*=k if(u>122and e>0)w=1u=244-u e*=k if(v>122and f>0)w=1v=244-v f*=k for a=10-u,30-u,20do b=40-v c=a*a+b*b if c<49then c^=.5 a/=c b/=c d=a*e+b*f if(d>0)w=1e-=a*d*1.7f-=b*d*1.7 end end end if(v>40and f>0)m=max(m,386) if(l>=0and btnp(4))m=1u=nil else m+=1 if(l>=0)m=1u=nil if(m>640)goto s if(l<0)?"\^w\^ttime over",32,56,6+t\16%2 end o=max(o-.1)a=2+o*sin(t/20)b=2-o*sin(t/20) for i=0,1do j=i+.5k=i+1 line(10+a*i,40+8*i,30-b*j,40+8*j,6)line(10+a*k,40+8*k,6)line(30-b*i,40+8*i,10+a*j,40+8*j,6)line(30-b*k,40+8*k,6) end rectfill(3,39,31,40,5) if(w>0)w=0?"\as1i1cge" if(m>0and l==-1)?"\aszcccccc" flip()goto _