Pico 8 Mini Golf

Entry number 2 for Tweet Tweet Jam 3!

So far my entries seem to have a bit of a sports theme, who knows what the 3rd entry might be!

Controls

Hold Z  -  hit golf ball
⬆️/⬇️  -  Aim
Z  -  play again

Cartridge code (made with Pico 8 0.1.12c):

q=circfill r=rnd b=btn f=0p=pal
poke(0x5f2e,1)a=.75j=0h=1y=64x=16m=0n=0s=r(1)::★::p()cls(1)srand(s)w=64q(16,64,9,3)
for i=23,99,12 do
w=mid(99,w+24-r(48),40)q(i,w,16+r(8),3)
if(i%7>2)q(i,w,9+r(5),15)
end
q(96,w,14,4)
q(99,w-3,1,0)c=pget(x,y)m/=c/2n/=c/2p(4,11,1)x+=m
y+=n
if(c==1)m=0n=0y=l x=k
if m<.1 and n<.1 then
line(x,y,x+sin(a)*(j+4),y+cos(a)*(j+4),8)
if(b(3))a+=.01
if(b(2))a-=.01
if(b(4))j=min(j+1,20)f=1
if(not b(4)and f==1)f=0m=j*sin(a)n=j*cos(a)j=0k=x h+=1l=y
end
if(c==0 and b(4))run()
?"golf!",54,4,7
?h-1,60,10,12-h/4
q(x,y,1,7)flip()goto ★