From 6b4d2f5ae63190043a5db82a9a4b0d961a9f3af1 Mon Sep 17 00:00:00 2001
From: yexo <yexo@openttd.org>
Date: Fri, 17 Sep 2010 15:16:19 +0000
Subject: [PATCH] (svn r20821) -Fix [FS#4129]: terraforming the land under
 objects could leave sloped or elevated sea tiles

---
 src/landscape.cpp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/landscape.cpp b/src/landscape.cpp
index d85f24dea9..6f34a17880 100644
--- a/src/landscape.cpp
+++ b/src/landscape.cpp
@@ -627,6 +627,7 @@ CommandCost CmdLandscapeClear(TileIndex tile, DoCommandFlag flags, uint32 p1, ui
 			if ((flags & DC_NO_WATER) && HasTileWaterClass(tile) && IsTileOnWater(tile)) {
 				return_cmd_error(STR_ERROR_CAN_T_BUILD_ON_WATER);
 			}
+			if (do_clear && (flags & DC_EXEC)) DoClearSquare(tile);
 			return cost;
 		}
 	}