1K Alien Blobs Are Coming #Pico1k

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𝘭𝘮{{ APP_CONTENT }}gt;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 _