Changeset 152 for trunk

Timestamp:

Nov 15, 2017, 6:19:17 PM (7 years ago)

Author:

chronos

Message:

• Added: Remember players configuration for new game.

Location:

trunk

Files:

• Forms/UFormNew.pas (modified) (3 diffs)
• UGame.pas (modified) (6 diffs)

trunk/Forms/UFormNew.pas

@@ -333 +333 @@
 
 procedure TFormNew.Load(Game: TGame);
-var
-  I: Integer;
 begin
   CheckBoxSymetricMap.Checked := Game.SymetricMap;
@@ -340 +338 @@
   SpinEditVoidPercent.Value := Game.VoidPercentage;
   SpinEditVoidPercent.Enabled := Game.VoidEnabled;
-  for I := 0 to Players.Count - 1 do
-    Players[I] := nil;
-  Players.Count := Game.Players.Count;
-  for I := 0 to Game.Players.Count - 1 do begin
-    Players[I] := TPlayer.Create;
-    TPlayer(Players[I]).Assign(TPlayer(Game.Players[I]));
-  end;
-  Players.NewPlayerId := Game.Players.NewPlayerId;
-
+  Players.Assign(Game.Players);
   CheckBoxCity.Checked := Game.CityEnabled;
   SpinEditCityPercent.Value := Game.CityPercentage;
@@ -367 +357 @@
 
 procedure TFormNew.Save(Game: TGame);
-var
-  I: Integer;
-begin
-  while Game.Players.Count > Players.Count do
-    Game.Players.Delete(Game.Players.Count - 1);
-  while Game.Players.Count < Players.Count do
-    Game.Players.Add(TPlayer.Create);
-  for I := 0 to Game.Players.Count - 1 do begin
-    TPlayer(Game.Players[I]).Assign(TPlayer(Players[I]));
-    TPlayer(Game.Players[I]).Game := Game;
-  end;
+begin
+  Game.Players.Assign(Players);
   Game.Players.NewPlayerId := Players.NewPlayerId;
   Game.SymetricMap := CheckBoxSymetricMap.Checked;

trunk/UGame.pas

@@ -310 +310 @@
     destructor Destroy; override;
     procedure Assign(Source: TPlayer);
+    procedure LoadConfig(Config: TXmlConfig; Path: string);
+    procedure SaveConfig(Config: TXmlConfig; Path: string);
     property Game: TGame read FGame write SetGame;
     property Client: TClient read FClient write SetClient;
@@ -345 +347 @@
     constructor Create;
     function GetFirstHuman: TPlayer;
+    procedure Assign(Source: TPlayers);
+    procedure LoadConfig(Config: TXmlConfig; Path: string);
+    procedure SaveConfig(Config: TXmlConfig; Path: string);
   end;
 
@@ -1201 +1206 @@
 end;
 
+procedure TPlayers.Assign(Source: TPlayers);
+var
+  I: Integer;
+begin
+  while Count > Source.Count do
+    Delete(Count - 1);
+  while Count < Source.Count do
+    Add(TPlayer.Create);
+  for I := 0 to Count - 1 do begin
+    TPlayer(Items[I]).Assign(TPlayer(Source[I]));
+    TPlayer(Items[I]).Game := Game;
+  end;
+  NewPlayerId := Source.NewPlayerId;
+end;
+
+procedure TPlayers.LoadConfig(Config: TXmlConfig; Path: string);
+var
+  I: Integer;
+  NewCount: Integer;
+begin
+  with Config do begin
+    NewCount := GetValue(DOMString(Path + '/Count'), -1);
+    if NewCount >= 2 then begin
+      Self.Clear;
+      Count := NewCount;
+      for I := 0 to Count - 1 do begin
+        Items[I] := TPlayer.Create;
+        TPlayer(Items[I]).Game := Game;
+        TPlayer(Items[I]).LoadConfig(Config, Path + '/Player' + IntToStr(I));
+      end;
+    end;
+  end;
+end;
+
+procedure TPlayers.SaveConfig(Config: TXmlConfig; Path: string);
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    TPlayer(Items[I]).SaveConfig(Config, Path + '/Player' + IntToStr(I));
+  with Config do begin
+    SetValue(DOMString(Path + '/Count'), Count);
+  end;
+end;
+
 { TUnitMoves }
 
@@ -2425 +2475 @@
   Agressivity := Source.Agressivity;
   Defensive := Source.Defensive;
+  Computer.Game := Source.Computer.Game;
+  Computer.CellProcessDirection := Source.Computer.CellProcessDirection;
+end;
+
+procedure TPlayer.LoadConfig(Config: TXmlConfig; Path: string);
+begin
+  with Config do begin
+    Self.Name := string(GetValue(DOMString(Path + '/Name'), ''));
+    Color := TColor(GetValue(DOMString(Path + '/Color'), 0));
+    StartUnits := GetValue(DOMString(Path + '/StartUnits'), 5);
+    Mode := TPlayerMode(GetValue(DOMString(Path + '/Mode'), 0));
+    Defensive := GetValue(DOMString(Path + '/Defensive'), False);
+    Agressivity := TComputerAgressivity(GetValue(DOMString(Path + '/Agressivity'), 0));
+  end;
+end;
+
+procedure TPlayer.SaveConfig(Config: TXmlConfig; Path: string);
+begin
+  with Config do begin
+    SetValue(DOMString(Path + '/Name'), DOMString(Self.Name));
+    SetValue(DOMString(Path + '/Color'), Integer(Color));
+    SetValue(DOMString(Path + '/StartUnits'), StartUnits);
+    SetValue(DOMString(Path + '/Mode'), Integer(Mode));
+    SetValue(DOMString(Path + '/Defensive'), Defensive);
+    SetValue(DOMString(Path + '/Agressivity'), Integer(Agressivity));
+  end;
 end;
 
@@ -2968 +3044 @@
     SetValue(DOMString(Path + '/GrowCells'), Integer(GrowCells));
     SetValue(DOMString(Path + '/WinObjective'), Integer(WinObjective));
+    Players.SaveConfig(Config, Path + '/Players');
   end;
 end;
@@ -2999 +3076 @@
     if (Value >= Integer(Low(TWinObjective))) and (Value <= Integer(High(TWinObjective))) then
       WinObjective := TWinObjective(Value) else WinObjective := Low(TWinObjective);
+    Players.LoadConfig(Config, Path + '/Players');
   end;
 end;