Changeset 18 for trunk/UGame.pas

Timestamp:

Feb 26, 2014, 9:45:23 PM (11 years ago)

Author:

chronos

Message:

• Add: Player start units setting.
• Add: Allow add and remove players in new game dialog.
• Fixed: Do not allow move from to same cell.

File:

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

trunk/UGame.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, ExtCtrls, Graphics, Contnrs;
+
+const
+  DefaultPlayerStartUnits = 5;
 
 type
@@ -80 +83 @@
     TotalUnits: Integer;
     TotalCells: Integer;
+    StartUnits: Integer;
     procedure ComputerTurn;
     procedure SelectCell(Pos: TPoint);
     procedure Paint(PaintBox: TPaintBox);
     constructor Create;
+    procedure Assign(Source: TPlayer);
+  end;
+
+  TPlayers = class(TObjectList)
+
   end;
 
@@ -105 +114 @@
     procedure SetMove(CellFrom, CellTo: TCell);
   public
-    Players: TObjectList; // TList<TPlayer>
+    Players: TPlayers;
     Map: THexMap;
     VoidEnabled: Boolean;
@@ -171 +180 @@
     not ((DX = -1) and (DY = -1)) and
     not ((DX = 1) and (DY = 1))));
+  Result := Result and not (Cell1 = Cell2);
 end;
 
@@ -240 +250 @@
   ViewZoom := 1;
   SelectedCell := nil;
+  StartUnits := DefaultPlayerStartUnits;
+end;
+
+procedure TPlayer.Assign(Source: TPlayer);
+begin
+  Name := Source.Name;
+  Color := Source.Color;
+  Mode := Source.Mode;
+  Game := Source.Game;
+  TotalCells := Source.TotalCells;
+  TotalUnits := Source.TotalUnits;
+  StartUnits := Source.StartUnits;
+  SelectedCell := Source.SelectedCell;
+  ViewZoom := Source.ViewZoom;
 end;
 
@@ -365 +389 @@
   Randomize;
 
-  Players := TObjectList.Create;
+  Players := TPlayers.Create;
   Player := TPlayer.Create;
   Player.Name := 'Player 1';
@@ -419 +443 @@
       StartCell.Terrain := ttNormal;
       StartCell.Player := TPlayer(Players[I]);
+      StartCell.Power := TPlayer(Players[I]).StartUnits;
     end;
   end;