podeAvancar :: Mapa->Posicao->Posicao -> Bool  -- Pos atual -> Pos seguinte -> Pode ou nao avançar
podeAvancar m (x,y)(x1,y1) = if  abs ((  (consultaMapa m (x1,y1) 0) - (consultaMapa m (x,y) 0) )  )<= 1 then True
							else False