Changeset 130 for trunk

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk

Files:

• Forms/UFormMain.lfm (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)
• Scenes (added)
• Scenes/USceneGameSlots.pas (added)
• TransLines.lpi (modified) (4 diffs)
• TransLines.lpr (modified) (1 diff)
• UCity.pas (modified) (2 diffs)
• UEngine.pas (modified) (15 diffs)
• UMenu.pas (modified) (2 diffs)
• UScene.pas (added)

trunk/Forms/UFormMain.lfm

@@ -15 +15 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '2.2.4.0'
+  LCLVersion = '2.2.6.0'
   object PaintBox1: TPaintBox
     Left = 0

trunk/Languages/TransLines.cs.po

@@ -233 +233 @@
 msgstr "Tvary"
 
+#: uengine.sslot
+msgid "Slot"
+msgstr "Pozice"
+
 #: uengine.sstationnotdefined
 msgid "Station have to be defined"

trunk/Languages/TransLines.de.po

@@ -237 +237 @@
 msgstr ""
 
+#: uengine.sslot
+msgid "Slot"
+msgstr ""
+
 #: uengine.sstationnotdefined
 msgid "Station have to be defined"

trunk/Languages/TransLines.fr.po

@@ -238 +238 @@
 msgstr ""
 
+#: uengine.sslot
+msgid "Slot"
+msgstr ""
+
 #: uengine.sstationnotdefined
 msgid "Station have to be defined"

trunk/Languages/TransLines.pot

@@ -223 +223 @@
 msgstr ""
 
+#: uengine.sslot
+msgid "Slot"
+msgstr ""
+
 #: uengine.sstationnotdefined
 msgid "Station have to be defined"

trunk/TransLines.lpi

@@ -31 +31 @@
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
-            <OtherUnitFiles Value="Forms"/>
+            <OtherUnitFiles Value="Forms;Scenes"/>
             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
           </SearchPaths>
@@ -89 +89 @@
       </Item2>
     </RequiredPackages>
-    <Units Count="17">
+    <Units Count="19">
       <Unit0>
         <Filename Value="TransLines.lpr"/>
@@ -173 +173 @@
         <IsPartOfProject Value="True"/>
       </Unit16>
+      <Unit17>
+        <Filename Value="UScene.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit17>
+      <Unit18>
+        <Filename Value="Scenes/USceneGameSlots.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit18>
     </Units>
   </ProjectOptions>
@@ -182 +190 @@
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <OtherUnitFiles Value="Forms"/>
+      <OtherUnitFiles Value="Forms;Scenes"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)-$(BuildMode)"/>
     </SearchPaths>

trunk/TransLines.lpr

@@ -10 +10 @@
   Forms, SysUtils, UFormMain, UFormImages, UFormTestCase, UFormTest, Common,
   UMenu, UControls, UMetroPassenger, UColors, UView, URiver, UCity, UCore,
-  UTestCases, UItems;
+  UTestCases, UItems, UScene, USceneGameSlots;
 
 {$R *.res}

trunk/UCity.pas

@@ -28 +28 @@
 
   TCities = class(TObjectList<TCity>)
+    function SearchBySysName(SysName: string): TCity;
     function AddNew(SysName, Name: string; Population: Integer): TCity;
     procedure LoadFromRegistry(Context: TRegistryContext);
@@ -81 +82 @@
 { TCities }
 
+function TCities.SearchBySysName(SysName: string): TCity;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (Items[I].SysName <> SysName) do Inc(I);
+  if I < Count then Result := Items[I]
+    else Result := nil;
+end;
+
 function TCities.AddNew(SysName, Name: string; Population: Integer): TCity;
 begin

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

trunk/UMenu.pas

@@ -75 +75 @@
     procedure MouseUp(Button: TMouseButton; Position: TPoint);
     procedure Paint(Canvas: TCanvas; CanvasSize: TPoint);
-    constructor Create;
+    constructor Create; virtual;
     destructor Destroy; override;
     property OnExit: TNotifyEvent read FOnExit write FOnExit;
@@ -286 +286 @@
 end;
 
-
 end.