How many characters did you use?
544

Include your code here, if you'd like to show it off!
::c::
j=0
::s::
a,b,x,y,n=0,0,0,0,12
m={}
for i=1,9 do
m[i]={}for j=1,9 do
t=flr(rnd(3))m[i][j]=t
end
end
a,b,x,y=8,8,2,2m[a][b]=1m[x][y]=1
::l::cls(1)for i=1,9 do
for j=1,9 do
t=m[i][j]
if t==1 then
?"▒",i*n,j*n,2
elseif t==2 then
?"◆",i*n,j*n,8
end
end
end
?"⌂",a*n,b*n,3
?"웃",x*n,y*n,9
?"❎reset",2,2,6
?"◆"..j,99,2,9
q,r=x,y
if(btnp(⬆️))r-=1
if(btnp(⬇️))r+=1
if(btnp(➡️))q+=1
if(btnp(⬅️))q-=1
if q>0 and r>0 and q<10 and r<10 then
if(m[x][y]==2)j+=1
m[x][y]=0
if(m[q][r]>0)x=q;y=r
end
if(x==a and y==b)goto s
if(btnp(❎))goto c
flip()goto l