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

Restore original levelling schedule

Browse Source
This commit is contained in:
Eric Fredricksen
2022-01-04 19:33:15 -08:00
committed by Eric Fredricksen
parent bf632cb99b
commit 64aca6ec2f
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.pas
+3 -3
View File
@@ -1,7 +1,7 @@
unit Main; unit Main;
{ copyright (c)2002 Eric Fredricksen all rights reserved } { copyright (c)2002 Eric Fredricksen all rights reserved }
{$DEFINE CHEATS} {$UNDEF CHEATS}
{$UNDEF LOGGING} {$UNDEF LOGGING}
interface interface
@@ -728,8 +728,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);