From e081e0712f2346ac9aea0d2ce8136c6c7565ae3b Mon Sep 17 00:00:00 2001
From: smatz <smatz@openttd.org>
Date: Thu, 14 Feb 2008 10:19:16 +0000
Subject: [PATCH] (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(+)

diff --git a/src/road_cmd.cpp b/src/road_cmd.cpp
index e2480025bd..405261d860 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: