How many characters did you use?
560

Include your code here, if you'd like to show it off!
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 _