# HG changeset patch
# User KUDr
# Date 1162640659 0
# Node ID 1193fcf3b4ae1811040e4097703a09e80b646a17
# Parent  e085e1fca90b221919dff8417d90fc69f7d1ef7f
(svn r7059) -Fix [FS#384]: Tunnel YAPF Penalty Incorrect. The penalty for upward slope was incorrectly applied on tunnel entrances. (Danny)

diff -r e085e1fca90b -r 1193fcf3b4ae yapf/yapf_costbase.hpp
--- a/yapf/yapf_costbase.hpp	Fri Nov 03 23:29:24 2006 +0000
+++ b/yapf/yapf_costbase.hpp	Sat Nov 04 11:44:19 2006 +0000
@@ -8,7 +8,7 @@
 
 	FORCEINLINE static bool stSlopeCost(TileIndex tile, Trackdir td)
 	{
-		if (IsDiagonalTrackdir(td)) {
+		if (IsDiagonalTrackdir(td) && !IsTunnelTile(tile)) {
 			uint tile_slope = GetTileSlope(tile, NULL) & 0x0F;
 			if ((c_upwards_slopes[tile_slope] & TrackdirToTrackdirBits(td)) != 0) {
 				return true;