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๐ญ๐ฎ$>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 _
Leave a comment
Log in with itch.io to leave a comment.