From e4e563afc23d619847929137a2d10de438cae38a Mon Sep 17 00:00:00 2001
From: rubidium <rubidium@openttd.org>
Date: Sun, 17 Aug 2008 13:56:11 +0000
Subject: (svn r14093) -Fix [FS#2230]: don't flood a NewGRF industry when it
 implicitly tells that it wants to be build on water (land shape flags bit 5).

---
 src/industry_cmd.cpp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/industry_cmd.cpp b/src/industry_cmd.cpp
index 19fb92f38..41be3a9f2 100644
--- a/src/industry_cmd.cpp
+++ b/src/industry_cmd.cpp
@@ -423,7 +423,9 @@ static CommandCost ClearTile_Industry(TileIndex tile, byte flags)
 	if ((_current_player != OWNER_WATER && _game_mode != GM_EDITOR &&
 			!_cheats.magic_bulldozer.value) ||
 			((flags & DC_AUTO) != 0) ||
-			(_current_player == OWNER_WATER && (indspec->behaviour & INDUSTRYBEH_BUILT_ONWATER))) {
+			(_current_player == OWNER_WATER &&
+				((indspec->behaviour & INDUSTRYBEH_BUILT_ONWATER) ||
+				HasBit(GetIndustryTileSpec(GetIndustryGfx(tile))->slopes_refused, 5)))) {
 		SetDParam(0, indspec->name);
 		return_cmd_error(STR_4800_IN_THE_WAY);
 	}
-- 
cgit v1.2.3-54-g00ecf