From bb81de3c4c9b9ed631dd5a1ef8b780e87ac6a4f8 Mon Sep 17 00:00:00 2001
From: smatz <smatz@openttd.org>
Date: Thu, 14 Feb 2008 10:19:16 +0000
Subject: (svn r12138) -Fix: do not allow adding tram to rail-road crossing
 when there is a vehicle on it

---
 src/road_cmd.cpp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src')

diff --git a/src/road_cmd.cpp b/src/road_cmd.cpp
index e2480025b..405261d86 100644
--- a/src/road_cmd.cpp
+++ b/src/road_cmd.cpp
@@ -458,6 +458,7 @@ CommandCost CmdBuildRoad(TileIndex tile, uint32 flags, uint32 p1, uint32 p2)
 					if (HasBit(GetRoadTypes(tile), rt)) return_cmd_error(STR_1007_ALREADY_BUILT);
 					all_bits = GetCrossingRoadBits(tile);
 					if (pieces & ComplementRoadBits(all_bits)) goto do_clear;
+					if (!EnsureNoVehicleOnGround(tile)) return CMD_ERROR;
 					break;
 
 				default:
-- 
cgit v1.2.3-54-g00ecf