Tiny Revenge

Demake of the classic puzzle game Rodent's Revenge for Pico1k.

Came in at just 977 characters:

s={"","⁶o0d0²5ᶜ6⁶:007e425a5a427e00","⁶o340ᶜb▤","⁶o0ffᶜ8♥","⁶o090ᶜa🐱"}u=0w=0o={}i={}f=136r=true b=0function a()n=rnd(256)\1if(o[n]==1and max(abs(f%16-n%16),abs(f\16-n\16))>2)add(i,{p=n,m=10,d=5})o[n]=5else a()
end for n=0,255do e=n%16d=n\16o[n]=e%15*(d%15)==0and 2or e>2and e<13and d>2and d<13and(e>5and e<10and d>6and d<10and 1or 3)or 1end a()function l(n,e)local d,f=n+e,o[n+e]if(f==2or f==5)return false
if(f==1or l(d,e))o[d]=o[n]return true
end function _draw()cls(4)for n=0,255do?s[o[n]],n%16*8,n\16*8
end?r and"⁶o040ᶜc웃"or"⁶o0ffᶜ8❎",f%16*8,f\16*8
?r and""or"⁶o0ff⁶w⁶tᶜ7game over",28,54
if r do for e,n in pairs{-1,1,-16,16}do if(btnp(e-1))if o[f+n]==4do u+=1f+=n o[f]=1elseif l(f,n)do f+=n end
end end for n in all(i)do n.m=n.m-1if n.m<=0do n.m=10h={}for e in all{-17,-16,-15,-1,1,15,16,17}do if(o[n.p+e]==1)add(h,n.p+e)
end if(#h>0)c=rnd(h)o[n.p]=1o[c]=5n.p=c n.d=5else n.d=n.d-1
if(n.d<=0)o[n.p]=4del(i,n)a()a()
end if(f==n.p)r=false
end?"⁶o0ffᶜ7score: "..u,0,122,7
end