1K Alien Blobs Are Coming #Pico1k

Angry alien blobs are coming for you. How good are you at dodging alien blobs?

A game in 1024 Compressed Bytes of code for PICO-1K Jam 2022  #Pico1k

Code:

_set_fps(60)h=0
for i=0,639do v=ord("#>$##,#,&,#>$#𝘬0𝘨𝘬3𝘴#𝘨'#j4bj3𝘴#𝘨'#,,,,3𝘴#𝘨'#,,,,3𝘴#e1#𝘨𝘬𝘬0&,#e1#bsj=&,5h:),#,#&,;𝘯𝘵;,#,###𝘮𝘰o9𝘨𝘬𝘬0)5𝘮𝘯𝘵9bjj482𝘮4n9,,,,f𝘭𝘮$>9,,,,𝘸𝘸;##;𝘬0𝘨𝘬𝘸𝘸####s4kj//#####,#,##",i\4+1)-35sset(i%40,i\40,v\3^(i%4)%3)end
::r::x=64y=64l=6n=1t=0s=0
for i=0,287do
a=i%16b=i\16mset(a,b,a%2+b%2*16+2)end
::s::t=t%16r=0k=.001j=.99?"\asci7g.g.cabbb"
if(l<1)h=max(h,s)goto r
p={}w={}
for i=1,n do
a=(i-.5)/n
p[i]={x=64+32*cos(a),y=64+32*sin(a),r=0,a=x,b=y,u=0,v=0,l=4,i=0}end
::_::t+=.5cls(13)pal({1,1+n%6})map(0,0,0,t%16-16)r-=1b=btn()x=mid(4,x+1.2*(b\2%2-b%2),124)y=mid(4,y+1.2*(b\8%2-b\4%2),124)
if(r<0)add(w,{x=x,y=y-2})r=20
for i=0,4do
pal(i<4and{0,0}or{12,7})spr(0,x-8-cos(min(i,3)/4),y-8-sin(i/4),2,2)end
for z in all(w)do
z.y-=3for i=0,4do
pal(i<4and{0,0}or{9,10})spr(4,z.x-4-cos(min(i,3)/4),z.y-4-sin(i/4))end
if(z.y<-8)del(w,z)
end
for q in all(p)do
if q.i<1then
q.c=q.l
if q.r<4then
q.r+=.05
else
q.u=q.u*j+k*mid(-32,32,q.a-q.x)
q.v=q.v*j+k*mid(-32,32,q.b-q.y)
q.x+=q.u
q.y+=q.v
if(q.x<4)q.x=4q.u=max(-q.u/2,q.u)
if(q.x>124)q.x=124q.u=min(-q.u/2,q.u)
if(q.y<4)q.y=4q.v=max(-q.v/2,q.v)
if(q.y>124)q.y=124q.v=min(-q.v/2,q.v)
if(max(abs(x-q.x),abs(y-q.y))<10)l-=1cls(8)flip()goto s
end
a=rnd()add(p,{x=q.x,y=q.y,u=cos(a),v=sin(a),r=q.r/2,l=10,c=q.c,i=1})
if(max(abs(q.a-q.x),abs(q.b-q.y))<12)q.a=x q.b=y
for z in all(w)do
if(max(abs(z.x-q.x),abs(z.y-q.y))<8)del(w,z)q.l-=1s+=1?"\as8c"
end
if(q.l<1)del(p,q)s+=10?"\as8i6x3c4s3c0"
else
q.x+=q.u
q.y+=q.v
q.l-=1
if(q.l<1)del(p,q)
end
end
for i=0,1do
for q in all(p)do
c=i<1and 0or q.c+7d=q.r-2*i+2circfill(q.x,q.y,d,c)
end
end
for q in all(p)do
if(q.i<1and q.r>=4)pal({7,5})spr(20,q.x-4,q.y-4)
end
?"♥"..l,0,0,7
?s
?h
if(#p<1)n+=1goto s
flip()goto _