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;
{ 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);