# HG changeset patch
# User smatz <smatz@openttd.org>
# Date 1242606804 0
# Node ID 2064815ee61ec71078141d24e5ce92f896c30c64
# Parent  0eb2a7a73a5f7ff4604e2a65b2e6ed0362a590ee
(svn r16348) -Fix (r16280): buoys with invalid station ID could be left in the game

diff --git a/src/station_cmd.cpp b/src/station_cmd.cpp
--- a/src/station_cmd.cpp
+++ b/src/station_cmd.cpp
@@ -2086,8 +2086,8 @@
 
 static CommandCost RemoveBuoy(Station *st, DoCommandFlag flags)
 {
-	/* XXX: strange stuff */
-	if (!Company::IsValidID(_current_company)) return_cmd_error(INVALID_STRING_ID);
+	/* XXX: strange stuff, allow clearing as invalid company when clearing landscape */
+	if (!Company::IsValidID(_current_company) && !(flags & DC_BANKRUPT)) return_cmd_error(INVALID_STRING_ID);
 
 	TileIndex tile = st->dock_tile;
 
diff --git a/src/terraform_gui.cpp b/src/terraform_gui.cpp
--- a/src/terraform_gui.cpp
+++ b/src/terraform_gui.cpp
@@ -640,8 +640,8 @@
 		Station *st;
 		FOR_ALL_STATIONS(st) {
 			/* There can be buoys, remove them */
-			if (IsBuoyTile(st->xy)) DoCommand(st->xy, 0, 0, DC_EXEC, CMD_LANDSCAPE_CLEAR);
-			delete st;
+			if (st->IsBuoy() && IsBuoyTile(st->xy)) DoCommand(st->xy, 0, 0, DC_EXEC | DC_BANKRUPT, CMD_LANDSCAPE_CLEAR);
+			if (st->facilities == 0) delete st;
 		}
 
 		/* The same for waypoints */