Fixed #2, Loan interval is to small in slow pace modes.

src/economy.cpp

@@ -51,6 +51,7 @@
 
 #include "table/strings.h"
 #include "table/pricebase.h"
+#include "economy_type.h"
 
 #include "safeguards.h"
 
@@ -100,6 +101,11 @@ Prices _price;
 Money _additional_cash_required;
 static PriceMultipliers _price_base_multiplier;
 
+int GetLoanInterval() {
+	return VANILLA_LOAN_INTERVAL * GetPaceFactor();
+}
+
+
 /**
  * Calculate the value of the company. That is the value of all
  * assets (vehicles, stations, etc) and money minus the loan,

src/economy_type.h

@@ -195,7 +195,15 @@ struct PriceBaseSpec {
 };
 
 /** The "steps" in loan size, in British Pounds! */
-static const int LOAN_INTERVAL = 10000;
+#define LOAN_INTERVAL GetLoanInterval()
+static const int VANILLA_LOAN_INTERVAL = 10000;
+
+/**
+ * Loan interval per given pace factor settings
+ * @return Loan interval per given pace factor settings
+ */
+int GetLoanInterval();
+
 /** The size of loan for a new company, in British Pounds! */
 static const int64 INITIAL_LOAN = 100000;
 

src/misc_cmd.cpp

@@ -28,7 +28,7 @@
 #include "safeguards.h"
 
 /* Make sure we can discard lower 2 bits of 64bit amount when passing it to Cmd[In|De]creaseLoan() */
-static_assert((LOAN_INTERVAL & 3) == 0);
+static_assert((VANILLA_LOAN_INTERVAL & 3) == 0);
 
 /**
  * Increase the loan of your company.