From 41e70409e5b03289d0f18ea600f90e9d25bb08b3 Mon Sep 17 00:00:00 2001
From: SamuXarick <43006711+SamuXarick@users.noreply.github.com>
Date: Sat, 2 Oct 2021 20:58:57 +0100
Subject: [PATCH] Fix #9591: Update station docking tiles upon placing a water
 object on a docking tile

---
 src/object_cmd.cpp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/object_cmd.cpp b/src/object_cmd.cpp
index 14645f93de8fe..cd080ca538fd4 100644
--- a/src/object_cmd.cpp
+++ b/src/object_cmd.cpp
@@ -32,6 +32,7 @@
 #include "date_func.h"
 #include "newgrf_debug.h"
 #include "vehicle_func.h"
+#include "station_func.h"
 
 #include "table/strings.h"
 #include "table/object_land.h"
@@ -121,7 +122,9 @@ void BuildObject(ObjectType type, TileIndex tile, CompanyID owner, Town *town, u
 			Company::Get(owner)->infrastructure.water++;
 			DirtyCompanyInfrastructureWindows(owner);
 		}
+		bool remove = IsDockingTile(t);
 		MakeObject(t, owner, o->index, wc, Random());
+		if (remove) RemoveDockingTile(t);
 		MarkTileDirtyByTile(t);
 	}