Changeset 81 for trunk/UGame.pas

Timestamp:

Nov 4, 2014, 11:17:35 PM (10 years ago)

Author:

chronos

Message:

• Added: Prepared related class for "Fog of war" game mode and per player map handling.
• Added: Computer alternate direction of processing inner moves each turn to not cumulate units to top left corner of map.

File:

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

trunk/UGame.pas

@@ -200 +200 @@
   end;
 
+  { TPlayerCell }
+
+  TPlayerCell = class
+    Explored: Boolean;
+    InVisibleRange: Boolean;
+    MapCell: TCell;
+  end;
+
+  { TPlayerCells }
+
+  TPlayerCells = class(TObjectList)
+
+  end;
+
+  { TPlayerMap }
+
+  TPlayerMap = class
+    Cells: TPlayerCells;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
   TPlayerMode = (pmHuman, pmComputer);
 
@@ -219 +241 @@
     StartUnits: Integer;
     StartCell: TCell;
+    PlayerMap: TPlayerMap;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -234 +257 @@
     Game: TGame;
     Targets: TObjectList;
+    CellProcessDirection: Boolean;
     procedure AttackNeutral;
     procedure AttackPlayers;
@@ -441 +465 @@
 end;
 
+{ TPlayerMap }
+
+constructor TPlayerMap.Create;
+begin
+  Cells := TPlayerCells.Create;
+end;
+
+destructor TPlayerMap.Destroy;
+begin
+  Cells.Free;
+  inherited Destroy;
+end;
+
 { TCanvasEx }
 
@@ -1580 +1617 @@
   end;
 
+  if CellProcessDirection then begin
+    // Reverse array
+    for I := 0 to (TargetCells.Count div 2) - 1 do
+      TargetCells.Exchange(I, TargetCells.Count - 1 - I);
+  end;
+
   // Unset mark for all cells
   for C := 0 to AllCells.Count - 1 do
@@ -1643 +1686 @@
   InnerMoves;
   IncreaseMoves;
+  CellProcessDirection := not CellProcessDirection;
 end;
 
@@ -1684 +1728 @@
   StartUnits := DefaultPlayerStartUnits;
   StartCell := nil;
+  PlayerMap := TPlayerMap.Create;
 end;
 
 destructor TPlayer.Destroy;
 begin
+  FreeAndNil(PlayerMap);
   FreeAndNil(View);
   inherited Destroy;