(svn r14752) -Fix [FS#2438]: revenue when clearing land would show up in red in the land info window as negative cost.

1 files changed, 9 insertions, 3 deletions

diff --git a/src/misc_gui.cpp b/src/misc_gui.cpp
index ac1f24d16..7d67b078f 100644
--- a/src/misc_gui.cpp
+++ b/src/misc_gui.cpp
@@ -156,11 +156,17 @@ public:
 			line_nr++;
 		}
 
-		/* Cost to clear */
+		/* Cost to clear/revenue when cleared */
 		StringID str = STR_01A4_COST_TO_CLEAR_N_A;
 		if (CmdSucceeded(costclear)) {
-			SetDParam(0, costclear.GetCost());
-			str = STR_01A5_COST_TO_CLEAR;
+			Money cost = costclear.GetCost();
+			if (cost < 0) {
+				cost = -cost; // Negate negative cost to a positive revenue
+				str = STR_REVENUE_WHEN_CLEARED;
+			} else {
+				str = STR_01A5_COST_TO_CLEAR;
+			}
+			SetDParam(0, cost);
 		}
 		GetString(this->landinfo_data[line_nr], str, lastof(this->landinfo_data[line_nr]));
 		line_nr++;