Tunnel Panic

Entry for #TweetTweetJam

use arrow keys to aim, z or c to shoot

559 Chars

e,b,r,m,n,a,t,s,c,x,y={{0,0},{0,0},{0,0},{0,0}},btn,rnd,circ,500,0,0,0,64,64,64
::a::cls()
if(b(0))a-=.01 x+=3
if(b(1))a+=.01 x-=3
if(b(2))y-=4
if(b(3))y+=4
x=x-(x-c)*.04
y=y-.8*sgn(y-c)
a=a-(a-1/8)/5
for i=1,4 do
x2=128*cos(a+i*.25)+c y2=128*sin(a+i*.25)+c
line(x+.1*(x2-x),y+.1*(y2-y),x2,y2,3)m(x,y,55*t+i,0)
k=sgn(r()-.5) e[i][1]+=r(2)-1 e[i][2]+=r(4)-2
h,z=e[i][1],e[i][2]
?"🐱",x+h,y+z,9
if(b(4))n-=1
if b(4)and pget(c,c)==9then
circfill(x+h,y+z,10,7)
s+=c end
if(h>c or z>c)h,z=0,0
end t=t<1 and t+.05 or 0
m(c,c,3,9)
?n,5,5
if(n>0)flip()goto a
?s,9,c