Changeset 70 for trunk/UGame.pas

Timestamp:

Sep 28, 2014, 6:04:57 PM (10 years ago)

Author:

chronos

Message:

• Added: Support for symetric map usable for two players game.

File:

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

trunk/UGame.pas

@@ -190 +190 @@
     TotalCities: Integer;
     StartUnits: Integer;
+    StartCell: TCell;
     procedure LoadFromNode(Node: TDOMNode);
     procedure SaveToNode(Node: TDOMNode);
@@ -278 +279 @@
     VoidEnabled: Boolean;
     VoidPercentage: Integer;
+    SymetricMap: Boolean;
     GrowCells: TGrowCells;
     GrowAmount: TGrowAmount;
@@ -291 +293 @@
     FileName: string;
     function AttackProbability(AttackCount, DefendCount, Depth: Integer): Double;
+    procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure SaveConfig(Config: TXmlConfig; Path: string);
-    procedure LoadConfig(Config: TXmlConfig; Path: string);
     procedure LoadFromFile(FileName: string);
     procedure SaveToFile(FileName: string);
@@ -1400 +1402 @@
   View := TView.Create;
   StartUnits := DefaultPlayerStartUnits;
+  StartCell := nil;
 end;
 
@@ -1417 +1420 @@
   TotalUnits := Source.TotalUnits;
   StartUnits := Source.StartUnits;
+  StartCell := Source.StartCell;
   View.Assign(Source.View);
 end;
@@ -1431 +1435 @@
   AttackerDiceCount: Integer;
   DefenderDiceCount: Integer;
-  AttackerHighestRoll: Integer;
-  DefenderHighestRoll: Integer;
-  RollResult: Integer;
   S: string;
   I: Integer;
@@ -1686 +1687 @@
   with Config do begin
     SetValue(Path + '/GridType', Integer(MapType));
+    SetValue(Path + '/SymetricMap', SymetricMap);
     SetValue(Path + '/VoidEnabled', VoidEnabled);
     SetValue(Path + '/VoidPercentage', VoidPercentage);
@@ -1704 +1706 @@
   with Config do begin
     MapType := TMapType(GetValue(Path + '/GridType', Integer(mtHexagon)));
+    SymetricMap := GetValue(Path + '/SymetricMap', False);
     VoidEnabled := GetValue(Path + '/VoidEnabled', True);
     VoidPercentage := GetValue(Path + '/VoidPercentage', 20);
@@ -1731 +1734 @@
     RootNode := Doc.DocumentElement;
     with RootNode do begin
+      SymetricMap := ReadBoolean(RootNode, 'SymetricMap', False);
       VoidEnabled := ReadBoolean(RootNode, 'VoidEnabled', False);
       VoidPercentage := ReadInteger(RootNode, 'VoidPercentage', 0);
@@ -1773 +1777 @@
     AppendChild(RootNode);
     with RootNode do begin
+      WriteBoolean(RootNode, 'SymetricMap', SymetricMap);
       WriteBoolean(RootNode, 'VoidEnabled', VoidEnabled);
       WriteInteger(RootNode, 'VoidPercentage', VoidPercentage);
@@ -1934 +1939 @@
 procedure TGame.New;
 var
-  X, Y: Integer;
-  NewCell: TCell;
   I: Integer;
   StartCell: TCell;
@@ -1956 +1959 @@
     Player := nil;
   end;
+
+  if SymetricMap then begin
+    for C := 0 to Map.Cells.Count div 2 - 1 do begin
+      TCell(Map.Cells[C]).Terrain :=
+        TCell(Map.Cells[Map.Cells.Count - 1 - C]).Terrain;
+      TCell(Map.Cells[C]).Power :=
+        TCell(Map.Cells[Map.Cells.Count - 1 - C]).Power;
+    end;
+  end;
+
   for I := 0 to Players.Count - 1 do
   with TPlayer(Players[I]) do begin
@@ -1969 +1982 @@
           raise Exception.Create(SCannotSetPlayerStartCells);
       end;
+      if SymetricMap and (I = 1) then
+        StartCell := TCell(Map.Cells[Map.Cells.Count - 1 - Map.Cells.IndexOf(TPlayer(Players[0]).StartCell)]);
+
       StartCell.Terrain := ttCity;
       StartCell.Player := TPlayer(Players[I]);