Character Count
490

Code
g=mget
s=mset
?"⁶!5f55\0"
?"\fbˇ\f6😐\f2ロ",8,1
?"⁶!5f55`"
?"⁶!5f36r"
?"⁶!5f5a²"
l=1+rnd(20)\1srand(l)memset(8192,2,4096)for i=0,239do s(i%16,i\16,mid(1,3,rnd(3)^2))end
x=8y=8s(x,y,0)::⌂::p=({{-1,0},{1,0},_,{0,-1},[8]={0,1}})[btnp()]if p then
u,v=unpack(p)if(g(x+u,y+v)>2)if(g(x+2*u,y+2*v)<2)s(x+2*u,y+2*v,3)s(x+u,y+v)?"\ai6c"
if(g(x+u,y+v)<2)x+=u;y+=v;⬅️+=g(x,y)if(g(x,y)>0)?"\acg"
s(x,y)end
cls(3)map()?"웃",x*8,y*8+1,7
rectfill(0,120,127,127,0)?"\fcgarden "..l.." \f7$"..⬅️,1,121
flip()goto ⌂