From a8d4308d17132091223d0eb4d23f686dab1f05f7 Mon Sep 17 00:00:00 2001
From: alberth <alberth@openttd.org>
Date: Thu, 4 Mar 2010 21:35:26 +0000
Subject: [PATCH] (svn r19316) -Fix (r19186): Give correct error when failing
 to flatten land.

---
 src/terraform_cmd.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/terraform_cmd.cpp b/src/terraform_cmd.cpp
index ef487afc5d..5bad78fdfb 100644
--- a/src/terraform_cmd.cpp
+++ b/src/terraform_cmd.cpp
@@ -385,7 +385,7 @@ CommandCost CmdLevelLand(TileIndex tile, DoCommandFlag flags, uint32 p1, uint32
 		uint curh = TileHeight(tile);
 		while (curh != h) {
 			CommandCost ret = DoCommand(tile, SLOPE_N, (curh > h) ? 0 : 1, flags & ~DC_EXEC, CMD_TERRAFORM_LAND);
-			if (ret.Failed()) break;
+			if (ret.Failed()) return (cost.GetCost() == 0) ? ret : cost;
 
 			if (flags & DC_EXEC) {
 				money -= ret.GetCost();