%down
if(m~=1&A(m-1,n)==1)%白格子下邊的是紅格子；
if(rand<0.05)%在一定概率下空穴進入；
fill([n-1,n,n,n-1,n-1],[m-2,m-2,m-1,m-1,m-2],'k');
A(m-1,n)=2;
if(A(m,n)==0)
fill([n-1,n,n,n-1,n-1],[m-1,m-1,m,m,m-1],'r');
A(m,n)=1;
else
    m=m;
end
if(m~=1&n~=1&A(m-1,n-1)==0)
fill([n-2,n-1,n-1,n-2,n-2],[m-2,m-2,m-1,m-1,m-2],'r');
A(m-1,n-1)=1;
else
    m=m;
end
if(m~=1&n~=M&A(m-1,n+1)==0)
fill([n,n+1,n+1,n,n],[m-2,m-2,m-1,m-1,m-2],'r');
A(m-1,n+1)=1;
else
    m=m;
end
if(m~=1&m~=2&A(m-2,n)==0)
fill([n-1,n,n,n-1,n-1],[m-3,m-3,m-2,m-2,m-3],'r');
A(m-2,n)=1;
else
    m=m;
end
else
move;
end
end