Displays loading time at startup

Author: jval1972

d_main.pas

@@ -1366,13 +1366,16 @@ procedure D_DoomMain;
   filename: string;
   scale: integer;
   _time: integer;
+  startloadingtime: LongWord;
   s_error: string;
   i: integer;
   j: integer;
   episodes: integer;
   err_shown: boolean;
   s1, s2: string;
 begin
+  startloadingtime := I_GetTickCount;
+
   outproc := @I_IOprintf;
   wadfiles := TDSTringList.Create;
 
@@ -2074,6 +2077,10 @@ procedure D_DoomMain;
     autostart := true;
   end;
 
+  printf(StringOfChar('-', 21) + #13#10);
+  printf('Load time: %2.3f secs'#13#10, [(I_GetTickCount - startloadingtime) / 1000]);
+  printf(StringOfChar('-', 21) + #13#10);
+
   p := M_CheckParm('-playdemo');
   if (p <> 0) and (p < myargc - 1) then
   begin

readme.txt

@@ -39,6 +39,9 @@ Features:
  - Custom defined actors (ACTORDEF)
 
 History - Change log
+--------------------
+Displays loading time at startup.
+
 --------------------
 version 1.14.18.134 (20220410)
 ------------------------------