From bf14231ea1ee681710afad8b433fa82dd5327187 Mon Sep 17 00:00:00 2001
From: frosch <frosch@openttd.org>
Date: Sun, 12 Feb 2017 12:03:07 +0000
Subject: [PATCH] Fix road tunnel removal cost

(openttd r27746) -Fix [FS#6538]: PR_CLEAR_ROAD refers to cost per
roadbit. Removing secondary roadtypes from bridges was too cheap.
(JGR)
---
 src/road_cmd.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/road_cmd.cpp b/src/road_cmd.cpp
index 2ca23152d..09306359d 100644
--- a/src/road_cmd.cpp
+++ b/src/road_cmd.cpp
@@ -492,7 +492,7 @@ static CommandCost RemoveRoad_Tunnel(TileIndex tile, DoCommandFlag flags, RoadBi
 	CommandCost cost(EXPENSES_CONSTRUCTION);
 	/* Pay for *every* tile of the tunnel */
 	uint len = GetTunnelBridgeLength(other_end, tile) + 2;
-	cost.AddCost(len * _price[PR_CLEAR_ROAD]);
+	cost.AddCost(len * 2 * _price[PR_CLEAR_ROAD]);
 
 	if (flags & DC_EXEC) {
 		Company *c = Company::GetIfValid(GetRoadOwner(tile, rt));
-- 
2.11.4.GIT