From 4d99623d69c7b27fa8748f6533008c5734d95553 Mon Sep 17 00:00:00 2001
From: SamuXarick <43006711+SamuXarick@users.noreply.github.com>
Date: Fri, 1 Nov 2024 15:28:55 +0000
Subject: [PATCH] Codefix 30fe0015: Preserve sea water class when building
 locks on shores

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

diff --git a/src/water_cmd.cpp b/src/water_cmd.cpp
index f15c15666b..e852aae770 100644
--- a/src/water_cmd.cpp
+++ b/src/water_cmd.cpp
@@ -320,7 +320,7 @@ static CommandCost DoBuildLock(TileIndex tile, DiagDirection dir, DoCommandFlag
 	if (ret.Failed()) return ret;
 
 	/* middle tile */
-	WaterClass wc_middle = HasTileWaterGround(tile) ? GetWaterClass(tile) : WATER_CLASS_CANAL;
+	WaterClass wc_middle = HasTileWaterClass(tile) && IsTileOnWater(tile) ? GetWaterClass(tile) : WATER_CLASS_CANAL;
 	ret = Command<CMD_LANDSCAPE_CLEAR>::Do(flags, tile);
 	if (ret.Failed()) return ret;
 	cost.AddCost(ret);