How many characters did you use?
560

Include your code here, if you'd like to show it off!
h={5,15,13,4,4,6}function r()cls(1)for a=1,8 do
for b=0,7 do
c=m[a+b*8]+1
?sub(" █🅾️▒▤▥✽",c,c),7*a+29,5*b+44,h[c-1]
end
end
?"●",(x-1)%8*7+36,flr(x/8-.1)*5+44,8
flip()end
m={}for a=1,8 do
for b=0,7 do
c=a+b*8m[c]=0+sub("1111111117001211111410611110000110100011105003011111000111111111",c,c)
if(m[c]>6)x=c
end
end::_::r()v=btnp(⬅️)and-1or btnp(➡️)and 1or btnp(⬆️)and-8or btnp(⬇️)and 8or 0
while v!=0 and 1!=m[x+v]do
if(m[x+v]==3)m[x+v]=0 break
x+=v
r()flip()n=m[x]while n==2 do
?"win",58,85
end
if(n==6)run()
if(n>3 and n<6)o=n%2*9-1m[x-o]=0m[x+o]=0m[x]=1
end
goto _