# HG changeset patch
# User rubidium <rubidium@openttd.org>
# Date 2007-06-27 19:00:14
# Node ID b0eeea62f5480e7f42e5fdc83b1f1464f6572302
# Parent  3d4272182e14813517e25f747e12c4f9a70a390b

(svn r10362) -Codechange: make tunnel costs less exponential for (very) long tunnels.

diff --git a/src/tunnelbridge_cmd.cpp b/src/tunnelbridge_cmd.cpp
--- a/src/tunnelbridge_cmd.cpp
+++ b/src/tunnelbridge_cmd.cpp
@@ -499,6 +499,12 @@ CommandCost CmdBuildTunnel(TileIndex sta
 	}
 
 	end_tile = start_tile;
+
+	/** Tile shift coeficient. Will decrease for very long tunnels to avoid exponential growth of price*/
+	int tiles_coef = 3;
+	/** Number of tiles from start of tunnel */
+	int tiles = 0;
+
 	for (;;) {
 		end_tile += delta;
 		end_tileh = GetTileSlope(end_tile, &end_z);
@@ -509,8 +515,11 @@ CommandCost CmdBuildTunnel(TileIndex sta
 			return_cmd_error(STR_5003_ANOTHER_TUNNEL_IN_THE_WAY);
 		}
 
+		tiles++;
+		if (tiles == 25 || tiles == 50 || tiles == 100 || tiles == 200 || tiles == 400 || tiles == 800) tiles_coef++;
+
 		cost.AddCost(_price.build_tunnel);
-		cost.AddCost(cost.GetCost() >> 3); // add a multiplier for longer tunnels
+		cost.AddCost(cost.GetCost() >> tiles_coef); // add a multiplier for longer tunnels
 	}
 
 	/* Add the cost of the entrance */