Fishin' 500

Simple fishing game in 495 characters for #TweetTweetJam 10

Press any button to cast.  Tap to reel in.

Thoroughly commented source code here.

Full Pico-8 src:

q={}c=circfill
r=rnd::z::x=20y=20h=0v=0g=0m=0::_::cls(12)l=line
c(65,800,760,1)for i=30,45do
l(0,i,75-i,i,4+i%2)end x+=h*g
y+=v*g
v+=g/9f=.88+sgn(40-y)/9h*=f
v*=f
if btnp()>0then
if(g<1)h=1+r()
g=1v-=1.5end
if(r()<.03)add(q,{x=-4,y=60+r(60),c=r(5)})
d=4for o in all(q)do
a=o.x
b=o.y
c(a,b,2,8+o.c)l(a-3,b-2,a-3,b+2)pset(a,b-1,1)o.x+=r()
if d>abs(a-x)+abs(b-y)then
o.x=x+1o.y=y
d=0end
if(b<40)del(q,o)end
m=max(m,y)c(x,y,1,7)l(11,29,20,20)l(x,min(40,y),5)l(x,y)
if(m>40and y<40)goto z
flip()goto _