1K Alien Blobs Are Coming #Pico1k

Приближаются 1 тыс. инопланетных капель #Pico1k

Злые инопланетные шарики идут за вами. Насколько хорошо вы уклоняетесь от инопланетных капель?

Игра со сжатым кодом 1024 байта для PICO-1K Jam 2022  #Pico1k

Код:

_set_fps(60)ч=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 для 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)перейти к r p={}w={} для i=1,n сделать а=(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, я = 0} конец ::_::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) если(r<0)add(w,{x=x,y=y-2})r=20 для 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) конец для z во всех(w)do z.y-=3для 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 если(z.y<-8)del(w,z) конец для q в all(p)do если q.i<1, то q.c=q.l если q.r<4, то q.r+=.05 еще 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) если(макс(абс(х-q.x),abs(y-q.y))<10)l-=1cls(8)flip()перейти к s конец 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 для z во всех(w)do if(max(abs(z.x-q.x),abs(z.y-q.y))<8)del(w,z)q.l-=1s+=1?"\as8c" конец if(q.l<1)del(p,q)s+=10?"\as8i6x3c4s3c0" еще q.x+=q.u q.y+=q.v q.l-=1 если(q.l<1)del(p,q) конец конец для я=0,1до для q в all(p)do c=i<1 и 0или q.c+7d=q.r-2*i+2circfill(q.x,q.y,d,c) конец конец для q в all(p)do if(q.i<1 и q.r>=4)pal({7,5})spr(20,q.x-4,q.y-4) конец ?"♥"..l,0,0,7 ?с ?час if(#p<1)n+=1перейти к s перевернуть()перейти к _