Changeset 133 for trunk

Timestamp:

May 2, 2023, 10:29:11 AM (19 months ago)

Author:

chronos

Message:

• Added: Last game is automatically saved on exit.

Location:

trunk

Files:

• Forms/UFormMain.pas (modified) (1 diff)
• Languages/TransLines.cs.po (modified) (1 diff)
• Languages/TransLines.de.po (modified) (1 diff)
• Languages/TransLines.fr.po (modified) (1 diff)
• Languages/TransLines.pot (modified) (1 diff)
• UEngine.pas (modified) (10 diffs)

trunk/Forms/UFormMain.pas

@@ -119 +119 @@
 procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  //Engine.SaveToFile('Game.bmg');
   Core.PersistentForm1.Save(Self);
 end;

trunk/Languages/TransLines.cs.po

@@ -68 +68 @@
 msgstr "Automaticky"
 
+#: uengine.sautosave
+msgid "Auto save"
+msgstr "Automaticky uložené"
+
 #: uengine.sback
 msgctxt "uengine.sback"

trunk/Languages/TransLines.de.po

@@ -70 +70 @@
 msgstr "Automatisch"
 
+#: uengine.sautosave
+msgid "Auto save"
+msgstr ""
+
 #: uengine.sback
 msgctxt "uengine.sback"

trunk/Languages/TransLines.fr.po

@@ -71 +71 @@
 msgstr "Automatique"
 
+#: uengine.sautosave
+msgid "Auto save"
+msgstr ""
+
 #: uengine.sback
 msgctxt "uengine.sback"

trunk/Languages/TransLines.pot

@@ -58 +58 @@
 msgstr ""
 
+#: uengine.sautosave
+msgid "Auto save"
+msgstr ""
+
 #: uengine.sback
 msgctxt "uengine.sback"

trunk/UEngine.pas

@@ -311 +311 @@
     procedure ReloadGameSlots(Save: Boolean);
     function GetGameSlotFileName(Index: Integer): string;
+    procedure AutoSave;
   public
     // Test
@@ -473 +474 @@
   SStationStyle = 'Station style';
   SSlot = 'Slot';
+  SAutoSave = 'Auto save';
 
   // Cities
@@ -2296 +2298 @@
 procedure TEngine.MenuItemGameExit(Sender: TObject);
 begin
+  AutoSave;
   State := gsMenu;
   Clear;
@@ -2322 +2325 @@
 begin
   LoadFromFile(GetGameSlotFileName(Integer(TMenuItemButton(Sender).Ref)));
-  State := gsRunning;
+  if State in [gsMenu] then State := gsRunning;
+  Redraw;
 end;
 
@@ -2470 +2474 @@
   ControlName: string;
 const
-  GameSlotCount = 6;
+  GameSlotCount = 5;
 begin
   with MenuGameSlots, Items do begin
@@ -2477 +2481 @@
     if Save then Action := MenuItemGameSlotSave
       else Action := MenuItemGameSlotLoad;
-    for I := 1 to GameSlotCount do begin
+    for I := 0 to GameSlotCount do begin
       FileName := GetGameSlotFileName(Integer(I));
-      ControlName := SSlot + ' ' + IntToStr(I);
+      if I = 0 then ControlName := SAutoSave
+        else ControlName := SSlot + ' ' + IntToStr(I);
       if FileExists(FileName) then begin
         FileAge(FileName, FileDateTime);
@@ -2486 +2491 @@
       with AddButton(ControlName, Action) do begin
         Ref := TObject(I);
-        Enabled := FileExists(FileName) or Save;
+        Enabled := FileExists(FileName) or (Save and (I > 0));
         TextSize := 40;
         TextColor := Colors.MenuItemText;
@@ -2508 +2513 @@
 begin
   Result := GetAppConfigDir(False) + 'Saved game ' + IntToStr(Index) + TransLinesExt;
+end;
+
+procedure TEngine.AutoSave;
+begin
+  if (State = gsNotStarted) or ((State = gsMenu) and (LastState = gsNotStarted)) then Exit;
+  SaveToFile(GetGameSlotFileName(0));
 end;
 
@@ -4112 +4123 @@
   WriteInteger(Node, 'ServedPassengerCount', ServedPassengerCount);
   WriteInteger(Node, 'DestinationCount', DestinationCount);
-  WriteInteger(Node, 'State', Integer(State));
+  if State = gsMenu then WriteInteger(Node, 'State', Integer(LastState))
+    else WriteInteger(Node, 'State', Integer(State));
   WriteDateTime(Node, 'Time', FTime);
   if Assigned(City) then WriteString(Node, 'CityName', City.SysName);
@@ -4253 +4265 @@
 destructor TEngine.Destroy;
 begin
+  AutoSave;
   FreeAndNil(MetaCanvas);
   FreeAndNil(Trains);