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

diff -r 3df5ce293696 -r 479eff76269a 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;