--- a/tunnel_map.c	Tue Aug 15 16:55:40 2006 +0000
+++ b/tunnel_map.c	Wed Aug 16 06:05:44 2006 +0000
@@ -4,6 +4,7 @@
 #include "openttd.h"
 #include "tile.h"
 #include "tunnel_map.h"
+#include "vehicle.h"
 
 TileIndex GetOtherTunnelEnd(TileIndex tile)
 {
@@ -24,6 +25,31 @@
 }
 
 
+/** Retrieve the exit-tile of the vehicle from inside a tunnel
+ * Very similar to GetOtherTunnelEnd(), but we use the vehicle's
+ * direction for determining which end of the tunnel to find
+ * @param v the vehicle which is inside the tunnel and needs an exit
+ * @return the exit-tile of the tunnel based on the vehicle's direction */
+TileIndex GetVehicleOutOfTunnelTile(const Vehicle *v)
+{
+	TileIndex tile = TileVirtXY(v->x_pos, v->y_pos);
+	DiagDirection dir = DirToDiagDir(v->direction);
+	TileIndexDiff delta = TileOffsByDir(dir);
+	uint z = v->z_pos;
+
+	dir = ReverseDiagDir(dir);
+	while (
+		!IsTunnelTile(tile) ||
+		GetTunnelDirection(tile) != dir ||
+		GetTileZ(tile) != z
+	) {
+		tile += delta;
+	}
+
+	return tile;
+}
+
+
 static bool IsTunnelInWayDir(TileIndex tile, uint z, DiagDirection dir)
 {
 	TileIndexDiff delta = TileOffsByDir(dir);