Pico Puzzle League

A demake of Puzzle League (aka. Panel de Pon and Tetris Attack) for the PICO-8. The source code fits in two tweets (560 characters).

Source code poke(24364,3)w={10,11,8,2,12}o="★●♥◆✽"b={[0]=0,0,0,0,0,0}z=56h=6::_::add(b,ceil(rnd(5)))cls()j=6*(8-flr(z/8))-6 ?"██",8*(h%6),z+8*flr(h/6),5 ?t(),49,58 for q=0,j+6 do u=abs(b[q])for i in all{1,6}do if(q<j and(i>1or q%6>1)and u==abs(b[q-i])and u==abs(b[q-i*2])and u!=0)b[q-i]=-u b[q-i*2]=-u b[q]=-u end ?sub(o,u,u),(q%6)*8,z+flr(q/6)*8,q<j and w[u]or 1 end for q=0,j do if(j>6 and b[q+6]<1)b[q+6]=b[q]b[q]=0 end q=btnp()flip()z-=.05 l=({-1,1,0,-6,[8]=6})[q]or 0h=h+l if(q>8)v=b[h+1]b[h+1]=b[h]b[h]=v if(h%6>4or h<6or h>=j)h-=l if(pget(rnd(64),0)<6)goto _