checkMapPosition :: (Int,Int) -> WormsAction Bool
checkMapPosition (x,y) = do
  mapTile <- getTileFromIndex (x,y)
  return (not (getTileBlocked mapTile))
checkMapPosition :: (Int,Int) -> WormsAction Bool
checkMapPosition (x,y) = do
  mapTile <- getTileFromIndex (x,y)
  return (not (getTileBlocked mapTile))
checkMapPosition (x,y) = do
  mapTile <- getTileFromIndex (x,y)
  return (not (getTileBlocked mapTile))