Space Flowers

Use the arrow keys to pick SPACE FLOWERS. Avoid the laser, and if it gets too close, hold down 'X' to put up your shield. You can't move while your shields are up though.

Entry for Tweet Tweet Jam 2. 

557 characters of code:

---

::s::
a,b,x,y,g,l,n,o,i,j,h,c,d,m,q,u=16,32,99,80,3,-2,2,-3,64,64,false,8,8,0,circ,btn
::l::cls(1)q(a,b,3,11)q(x,y,3,11)line(a,b,x,y,11)
?"✽",c,d,10
if h then
?"❎",i,j,3
else
for k=-1,2 do
p=pget(i+k,j+k)
if(p==11)goto f
if(p==10)m+=1;c=rnd(120);d=rnd(112)+8
end
?"웃",i,j,9
q(i,j,1,rnd(15))
if(u(⬅️))i-=1
if(u(➡️))i+=1
if(u(⬆️))j-=1
if(u(⬇️))j+=1
end
a+=g
b+=l
x+=n
y+=o
if(a<0or a>127)g*=-1
if(b<0or b>127)l*=-1
if(x<0or x>127)n*=-1
if(y<0or y>127)o*=-1
if(u(❎))h=true else h=false
flip()
goto l
::f::
cls(8)
?m.."\n[z]",40,60,7
if(btnp(🅾️))goto s
flip()
goto f