Changeset 683

Timestamp:

Jul 26, 2025, 7:06:45 PM (11 hours ago)

Author:

chronos

Message:

• Modified: Auto select newly saved game as last game in previous games list.

Location:

trunk

Files:

• GameServer.pas (modified) (2 diffs)
• Start.pas (modified) (1 diff)

trunk/GameServer.pas

@@ -83 +83 @@
 procedure NextPlayer;
 function PreviewMap(ALandMass: Integer): Pointer;
+function GetLogFileName: string;
 
 
@@ -300 +301 @@
   CreateMap(True);
   Result := @RealMap;
+end;
+
+function GetLogFileName: string;
+begin
+  Result := LogFileName;
 end;
 

trunk/Start.pas

@@ -1325 +1325 @@
     until FindNext(F) <> 0;
   FindClose(F);
+
+  // Update last game with new saved game name
+  if GetLogFileName <> '' then LastGame := ExtractFileNameOnly(GetLogFileName);
+
   I := FormerGames.IndexOf(LastGame);
   if I >= 0 then ListIndex[tbPrevious] := I