From bf632cb99bc6d70da1497d98d027f5793d91aa6b Mon Sep 17 00:00:00 2001
From: Eric Fredricksen <efredricksen@gmail.com>
Date: Tue, 4 Jan 2022 19:11:29 -0800
Subject: [PATCH 1/2] Don't try to make file associations starting with Vista

At some point the registry key setting stopped working, not sure as of what Windows version. But this will avoid the 'Failed to set data for '' ' error
---
 Main.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100755 => 100644 Main.pas

diff --git a/Main.pas b/Main.pas
old mode 100755
new mode 100644
index 1623e15..e533254
--- a/Main.pas
+++ b/Main.pas
@@ -1279,7 +1279,7 @@ begin
   FMinToTray := true;
   FExportSheets := false;
 
-  MakeFileAssociations;
+  if Win32MajorVersion < 6 then MakeFileAssociations;
 end;
 
 procedure TMainForm.SpeedButton1Click(Sender: TObject);

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 2/2] 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);