Target Practice

This is Target Practice, my entry for TweetTweetJam 5

It's a 1-player artillery game for Pico-8 inspired by classics like Scorched Earth and GORILLA.BAS.

I hope you enjoy it!

Left/Right to aim
Up/Down in increase/decrease shot distance
X to fire
(Reset with ctrl+r to play again)

Try to hit the target!

Code:

w=circfill
f=flip
z=line
v=rnd
e=btnp
cls(1)
y=76p=32b=1k=200for x=0,k do
y=mid(9,y+v(8)-4,99)z(x,y,x,128,3)
if(x==9)g=y-3
if(x==99)h=y
end
x=0y=0j=k
l=v(8)-4::_::w(9,g+2,2,9)
w(99,h-3,3,8)
if(j<k)goto u
z(9,g,9+x*5,g+y*5,1)
if(e(0))b-=.01
if(e(1))b+=.01
if(e(3))p-=1
if(e(2))p+=1
x=cos(b)y=-sin(b)
z(9,g,9+x*5,g+y*5,9)
if(e(5))m=x*p/9n=y*p/9i=9j=g
f()
goto _
::u::q=pget(i,j)
if(q==3)goto a
if(q==8)goto c
pset(i,j,6)m+=l/99n+=.1i+=m
j+=n
f()
goto _
::c::w(i,j,v(9),v(16))f()
goto c
::a::
w(i,j,v(3)+3,v(16))f()
if(v(9)>1)goto a
w(i,j,6,1)j=k
goto _