From c964809d374ef9af63a384a1bd7bc01cdc1bbbf5 Mon Sep 17 00:00:00 2001
From: ludde <ludde@openttd.org>
Date: Fri, 15 Jul 2005 19:51:54 +0000
Subject: [PATCH] (svn r2582) Fix: Prevent generating unrealistically many Oil
 refineries on large maps. They are always placed next to the borderline, so
 the perimeter is used instead of area to scale the number of those
 industries.

---
 industry_cmd.c | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/industry_cmd.c b/industry_cmd.c
index e2860a4779..410d35cf01 100644
--- a/industry_cmd.c
+++ b/industry_cmd.c
@@ -1647,8 +1647,14 @@ static const byte _numof_industry_table[4][12] = {
 
 static void PlaceInitialIndustry(byte type, int amount)
 {
-	int num =
-		ScaleByMapSize(_numof_industry_table[_opt.diff.number_industries][amount]);
+	int num = _numof_industry_table[_opt.diff.number_industries][amount];
+
+	if (type == IT_OIL_REFINERY || type == IT_OIL_RIG) {
+		// These are always placed next to the coastline, so we scale by the perimeter instead.
+		num = ScaleByMapSize1D(num);
+	} else {
+		num = ScaleByMapSize(num);
+	}
 
 	if (_opt.diff.number_industries != 0)
 	{