# HG changeset patch
# User celestar
# Date 1145651134 0
# Node ID f96401ae2873b4622c56e5ee0bf8c31c6d328c0f
# Parent  ca06e611ff3bc113d742806432d3e75493176bf1
(svn r4508) -Fix: (FS#125) Fixed a problem that caused DeliverGoodsToIndustry to not work as intended. Note: write something better for this entire function

diff -r ca06e611ff3b -r f96401ae2873 economy.c
--- a/economy.c	Fri Apr 21 20:10:53 2006 +0000
+++ b/economy.c	Fri Apr 21 20:25:34 2006 +0000
@@ -1110,7 +1110,10 @@
 	uint u;
 
 	// Check if there's an industry close to the station that accepts the cargo
-	u = _patches.station_spread + 8;
+	// XXX - Think of something better to
+	//       1) Only deliver to industries which are withing the catchment radius
+	//       2) Distribute between industries if more then one is present
+	u = (_patches.station_spread + 8) * 2;
 	FOR_ALL_INDUSTRIES(ind) {
 		uint t;
 
@@ -1121,7 +1124,7 @@
 				) &&
 				ind->produced_cargo[0] != CT_INVALID &&
 				ind->produced_cargo[0] != cargo_type &&
-				(t = DistanceManhattan(ind->xy, xy)) < 2 * u) {
+				(t = DistanceManhattan(ind->xy, xy)) < u) {
 			u = t;
 			best = ind;
 		}