Changeset 130 for trunk/UEngine.pas

Timestamp:

May 1, 2023, 4:02:31 PM (13 months ago)

Author:

chronos

Message:

• Added: Allow to save/load game in multiple slots.

File:

• trunk/UEngine.pas (modified) (15 diffs)

trunk/UEngine.pas

@@ -10 +10 @@
   URegistry, UMetaCanvas, Generics.Collections, Generics.Defaults, UMenu,
   UControls, UMetroPassenger, UColors, UView, URiver, UTrack, UCity, UGeometric,
-  UTranslator, DOM, XMLRead, XMLWrite, UXMLUtils, UItems;
+  UTranslator, DOM, XMLRead, XMLWrite, UXMLUtils, UItems, FileUtil;
 
 type
@@ -227 +227 @@
     MenuGame: TMenu;
     MenuCustomGame: TMenu;
+    MenuGameSlots: TMenu;
     LastState: TGameState;
     TimePerSecond: TDateTime;
@@ -237 +238 @@
     GrabbedTrainDirection: Integer;
     LastGrabbedTrain: TMetroTrain;
-    SavedGameFileName: string;
     function GetMetroLineThickness: Integer;
     function GetServedDaysCount: Integer;
@@ -286 +286 @@
     procedure MenuItemGameLoad(Sender: TObject);
     procedure MenuItemGameSave(Sender: TObject);
+    procedure MenuItemGameSlotLoad(Sender: TObject);
+    procedure MenuItemGameSlotSave(Sender: TObject);
     procedure MenuItemBack(Sender: TObject);
     procedure ButtonPlay(Sender: TObject);
@@ -304 +306 @@
     function GetImprovementBitmap(Improvement: TMetroImprovement): TBitmap;
     procedure EvaluateImprovement(Improvement: TMetroImprovement);
+    procedure ReloadGameSlots(Save: Boolean);
+    function GetGameSlotFileName(Index: Integer): string;
   public
     // Test
@@ -465 +469 @@
   SVisualStyle = 'Visual style';
   SStationStyle = 'Station style';
+  SSlot = 'Slot';
 
   // Cities
@@ -2287 +2292 @@
 procedure TEngine.MenuItemGameLoad(Sender: TObject);
 begin
-  LoadFromFile(SavedGameFileName);
+  ReloadGameSlots(False);
+  Menu := MenuGameSlots;
+end;
+
+procedure TEngine.MenuItemGameSave(Sender: TObject);
+begin
+  ReloadGameSlots(True);
+  Menu := MenuGameSlots;
+end;
+
+procedure TEngine.MenuItemGameSlotLoad(Sender: TObject);
+begin
+  LoadFromFile(GetGameSlotFileName(Integer(TMenuItemButton(Sender).Ref)));
   State := gsRunning;
 end;
 
-procedure TEngine.MenuItemGameSave(Sender: TObject);
-begin
-  SaveToFile(SavedGameFileName);
+procedure TEngine.MenuItemGameSlotSave(Sender: TObject);
+begin
+  SaveToFile(GetGameSlotFileName(Integer(TMenuItemButton(Sender).Ref)));
   State := LastState;
 end;
@@ -2426 +2443 @@
     miTerminal: Inc(AvailableTerminals);
   end;
+end;
+
+procedure TEngine.ReloadGameSlots(Save: Boolean);
+var
+  I: Integer;
+  Action: TNotifyEvent;
+  FileName: string;
+  FileDateTime: TDateTime;
+  ControlName: string;
+const
+  GameSlotCount = 6;
+begin
+  with MenuGameSlots, Items do begin
+    Clear;
+    Parent := Menu;
+    if Save then Action := MenuItemGameSlotSave
+      else Action := MenuItemGameSlotLoad;
+    for I := 0 to GameSlotCount - 1 do begin
+      FileName := GetGameSlotFileName(Integer(I));
+      ControlName := SSlot + ' ' + IntToStr(I);
+      if FileExists(FileName) then begin
+        FileAge(FileName, FileDateTime);
+        ControlName := ControlName + ' (' + DateTimeToStr(FileDateTime) + ')';
+      end;
+      with AddButton(ControlName, Action) do begin
+        Ref := TObject(I);
+        Enabled := FileExists(FileName) or Save;
+        TextSize := 40;
+        TextColor := Colors.MenuItemText;
+        TextDisabledColor := Colors.MenuItemDisabledText;
+        BackgroundColor := Colors.MenuItemBackground;
+        BackgroundSelectedColor := Colors.MenuItemBackgroundSelected;
+      end;
+    end;
+    with AddButton(SExit, MenuItemBack) do begin
+      TextSize := 40;
+      TextColor := Colors.MenuItemText;
+      TextDisabledColor := Colors.MenuItemDisabledText;
+      BackgroundColor := Colors.MenuItemBackground;
+      BackgroundSelectedColor := Colors.MenuItemBackgroundSelected;
+    end;
+    OnExit := MenuItemBack;
+  end;
+end;
+
+function TEngine.GetGameSlotFileName(Index: Integer): string;
+begin
+  Result := GetAppConfigDir(False) + 'Saved game ' + IntToStr(Index) + TransLinesExt;
 end;
 
@@ -2470 +2535 @@
     end;
     with AddButton(SLoad, MenuItemGameLoad) do begin
-      Enabled := FileExists(SavedGameFileName);
       TextSize := 40;
       TextColor := Colors.MenuItemText;
@@ -2527 +2591 @@
     end;
     with AddButton(SLoad, MenuItemGameLoad) do begin
-      Enabled := FileExists(SavedGameFileName);
       TextSize := 40;
       TextColor := Colors.MenuItemText;
@@ -3957 +4020 @@
   FTime := ReadDateTime(Node, 'Time', 0);
   FLastTime := FTime;
+  City := Cities.SearchBySysName(ReadString(Node, 'CityName', ''));
 
   NewNode := Node.FindNode(DOMString(TView.GetClassSysName));
@@ -4007 +4071 @@
   WriteInteger(Node, 'State', Integer(State));
   WriteDateTime(Node, 'Time', FTime);
+  if Assigned(City) then WriteString(Node, 'CityName', City.SysName);
 
   NewNode := Node.OwnerDocument.CreateElement(DOMString(TView.GetClassSysName));
@@ -4078 +4143 @@
 begin
   inherited;
-  SavedGameFileName := GetAppConfigDir(False) + 'LastGameState' + TransLinesExt;
   MovableTracks := True;
   Colors := TColors.Create;
@@ -4095 +4159 @@
   MenuGame := TMenu.Create;
   MenuCustomGame := TMenu.Create;
+  MenuGameSlots := TMenu.Create;
   Menu := MenuMain;
   InitMenus;
@@ -4159 +4224 @@
   FreeAndNil(MenuCareer);
   FreeAndNil(MenuGame);
+  FreeAndNil(MenuGameSlots);
   FreeAndNil(Cities);
   FreeAndNil(ButtonBack);