From 64aca6ec2fec0bdf1e9378c52b22e446865d0655 Mon Sep 17 00:00:00 2001
From: Eric Fredricksen <efredricksen@gmail.com>
Date: Tue, 4 Jan 2022 19:33:15 -0800
Subject: [PATCH] Restore original levelling schedule

---
 Main.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Main.pas b/Main.pas
index e533254..c859966 100644
--- a/Main.pas
+++ b/Main.pas
@@ -1,7 +1,7 @@
 unit Main;
 { copyright (c)2002 Eric Fredricksen all rights reserved }
 
-{$DEFINE CHEATS}
+{$UNDEF CHEATS}
 {$UNDEF LOGGING}
 
 interface
@@ -728,8 +728,8 @@ end;
 
 function LevelUpTime(level: Integer): Integer;  // seconds
 begin
-  // 20 minutes per level
-  Result := 20 * level * 60;
+ // ~20 minutes for level 1, eventually dominated by exponential
+ Result := Round((20.0 + IntPower(1.15,level)) * 60.0);
 end;
 
 procedure TMainForm.GoButtonClick(Sender: TObject);