Changeset 152 for trunk/UGame.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Remember players configuration for new game.

File:

• trunk/UGame.pas (modified) (6 diffs)

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;