L Shooter (TweetTweetJam 7)

Yet another space shooter. A game in 557 characters of code for TweetTweetJam 7.

PICO-8 Source Code:

_set_fps(60)m=61h=0::s::s=0p={}o={}y=m x=m
t=0n=0g=.1z=0::_::cls(1)t+=.002z-=.1f=100*t
?s
?h
if(t>n)g*=.99add(p,{x=m,y=f+32,v=rnd(3),o=rnd()})n+=g
b=btn()x+=(b&2)/2-(b&1)y+=(b&8)/8-(b&4)/4x=mid(x,121)y=mid(y,123)
if(z<0and btn(4))z=2add(o,{x=x,y=y-4})
for q in all(p)do
u=q.x+58*cos(t+q.o)v=f-q.y+32*sin(t*q.v)d=nil
?"✽",u,v,9
if(abs(x-u)<5and abs(y-v)<3)h=max(h,s)goto s
for r in all(o)do
if(abs(r.x-u)<5and abs(r.y-v)<3)d=1s+=1del(o,r)
end
if(v>160or d)del(p,q)
end
for r in all(o)do
r.y-=3
?"::",r.x,r.y,14
if(r.y<-4)del(o,r)
end
?"★",x,y,12
flip()goto _