From e9afedca14d50b5d2f3011546b9a686f89ad1c07 Mon Sep 17 00:00:00 2001
From: frosch <frosch@openttd.org>
Date: Wed, 26 Dec 2012 13:01:28 +0000
Subject: [PATCH] (svn r24857) -Fix: Don't let UFOs and coal mines clear water.

---
 src/rail_cmd.cpp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/rail_cmd.cpp b/src/rail_cmd.cpp
index 7ddfd05108..2f3728450d 100644
--- a/src/rail_cmd.cpp
+++ b/src/rail_cmd.cpp
@@ -1791,8 +1791,9 @@ static CommandCost ClearTile_Track(TileIndex tile, DoCommandFlag flags)
 				cost.AddCost(ret);
 			}
 
-			/* when bankrupting, don't make water dirty, there could be a ship on lower halftile */
-			if (water_ground && !(flags & DC_BANKRUPT)) {
+			/* When bankrupting, don't make water dirty, there could be a ship on lower halftile.
+			 * Same holds for non-companies clearing the tile, e.g. disasters. */
+			if (water_ground && !(flags & DC_BANKRUPT) && Company::IsValidID(_current_company)) {
 				CommandCost ret = EnsureNoVehicleOnGround(tile);
 				if (ret.Failed()) return ret;