mirrors/ProgressQuest
1
0
Fork 0
mirror of https://bitbucket.org/grumdrig/pq.git synced 2026-09-29 00:33:59 -06:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'pq6' of bitbucket.org:grumdrig/pq into pq6

Browse Source
This commit is contained in:
Eric Fredricksen
2022-01-04 20:53:11 -08:00
parent 9030d1ba58 64aca6ec2f
commit cbb3d5daac
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.pas
+4 -4
View File
@@ -1,7 +1,7 @@
unit Main; unit Main;
{ copyright (c)2022 Eric Fredricksen all rights reserved } { copyright (c)2022 Eric Fredricksen all rights reserved }
{$DEFINE CHEATS} {$UNDEF CHEATS}
{$UNDEF LOGGING} {$UNDEF LOGGING}
{$DEFINE TURBO} {$DEFINE TURBO}
@@ -733,8 +733,8 @@ end;
function LevelUpTime(level: Integer): Integer; // seconds function LevelUpTime(level: Integer): Integer; // seconds
begin begin
// 20 minutes per level // ~20 minutes for level 1, eventually dominated by exponential
Result := 20 * level * 60; Result := Round((20.0 + IntPower(1.15,level)) * 60.0);
end; end;
procedure TMainForm.GoButtonClick(Sender: TObject); procedure TMainForm.GoButtonClick(Sender: TObject);
@@ -1292,7 +1292,7 @@ begin
FMinToTray := true; FMinToTray := true;
FExportSheets := false; FExportSheets := false;
MakeFileAssociations; if Win32MajorVersion < 6 then MakeFileAssociations;
end; end;
procedure TMainForm.SpeedButton1Click(Sender: TObject); procedure TMainForm.SpeedButton1Click(Sender: TObject);