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 _