From a29a9d94b7216e41dc6d7f96345d2f66e882c89a Mon Sep 17 00:00:00 2001
From: michi_cc <michi_cc@openttd.org>
Date: Sat, 3 Dec 2011 23:40:18 +0000
Subject: (svn r23412) -Add: Company infrastructure counts for road.

---
 src/rail_cmd.cpp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/rail_cmd.cpp')

diff --git a/src/rail_cmd.cpp b/src/rail_cmd.cpp
index 5e00bfcb2..d4442a9b9 100644
--- a/src/rail_cmd.cpp
+++ b/src/rail_cmd.cpp
@@ -454,7 +454,15 @@ CommandCost CmdBuildSingleRail(TileIndex tile, DoCommandFlag flags, uint32 p1, u
 					default: break;
 					case ROADTYPES_TRAM:
 						/* Tram crossings must always have road. */
-						if (flags & DC_EXEC) SetRoadOwner(tile, ROADTYPE_ROAD, _current_company);
+						if (flags & DC_EXEC) {
+							SetRoadOwner(tile, ROADTYPE_ROAD, _current_company);
+							Company *c = Company::GetIfValid(_current_company);
+							if (c != NULL) {
+								/* A full diagonal tile has two road bits. */
+								c->infrastructure.road[ROADTYPE_ROAD] += 2;
+								DirtyCompanyInfrastructureWindows(c->index);
+							}
+						}
 						roadtypes |= ROADTYPES_ROAD;
 						break;
 
-- 
cgit v1.2.3-54-g00ecf