static CommandCost TerraformTile_Water(TileIndex tile, DoCommandFlag flags, int z_new, Slope tileh_new)
{
	/* Canals can't be terraformed */
	if (IsWaterTile(tile) && IsCanal(tile)) return_cmd_error(STR_ERROR_MUST_DEMOLISH_CANAL_FIRST);
	if (IsWaterTile(tile) && IsRiver(tile)) {
		if (!IsTileFlat(tileh_new) || !IsInclinedSlope(tileh_new)) {
			return_cmd_error(STR_ERROR_FLAT_LAND_REQUIRED);
		}
	}
	return DoCommand(tile, 0, 0, flags, CMD_LANDSCAPE_CLEAR);
}