Changeset 15 for trunk/UGame.pas

Timestamp:

Feb 19, 2014, 11:13:36 PM (11 years ago)

Author:

chronos

Message:

• Added: Size of map can be adjusted in New game dialog.

File:

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

trunk/UGame.pas

@@ -30 +30 @@
     MovesTo: TObjectList;
     function GetColor: TColor;
+    function GetAvialPower: Integer;
     constructor Create;
     destructor Destroy; override;
@@ -112 +113 @@
   end;
 
+const
+  PlayerModeText: array[TPlayerMode] of string = ('Human', 'Computer');
+
 
 implementation
@@ -166 +170 @@
   if Assigned(Player) then Result := Player.Color
     else Result := clGray;
+end;
+
+function TCell.GetAvialPower: Integer;
+var
+  I: Integer;
+begin
+  Result := Power;
+  for I := 0 to MovesFrom.Count - 1 do
+    Result := Result - TMove(MovesFrom[I]).CountOnce;
+  if Result < 0 then Result := 0;
 end;
 
@@ -249 +263 @@
   for I := Moves.Count - 1 downto 0 do
   if (TMove(Moves[I]).CellFrom.Player = Player) and
-    (TMove(Moves[I]).CountOnce = 0) and (TMove(Moves[I]).CountRepeat = 0) then
+    (TMove(Moves[I]).CountOnce = 0) and (TMove(Moves[I]).CountRepeat = 0) then begin
+    TMove(Moves[I]).CellFrom.MovesFrom.Remove(TMove(Moves[I]));
+    TMove(Moves[I]).CellTo.MovesTo.Remove(TMove(Moves[I]));
     Moves.Delete(I);
+  end;
 end;
 
@@ -276 +293 @@
       else begin
         TMove(Moves[I]).CountOnce := CountOnce;
-         TMove(Moves[I]).CountOnce := CountOnce;
+        TMove(Moves[I]).CountOnce := CountOnce;
       end;
   end else begin
@@ -286 +303 @@
       NewMove.CountOnce := CountOnce;
       NewMove.CountRepeat := CountRepeat;
+      CellFrom.MovesFrom.Add(NewMove);
+      CellTo.MovesTo.Add(NewMove);
     end;
   end;
@@ -317 +336 @@
   Map := THexMap.Create;
   Map.Game := Self;
+  Map.Size := Point(20, 20);
   Moves := TObjectList.Create;
 end;
@@ -335 +355 @@
   StartCell: TCell;
 begin
-  Map.Size := Point(20, 20);
+  Moves.Clear;
+  Map.ClearCellMoves;
   for Y := 0 to Map.Size.Y - 1 do
   for X := 0 to Map.Size.X - 1 do
@@ -346 +367 @@
   with TPlayer(Players[I]) do begin
     SelectedCell := nil;
-    StartCell := Map.Cells[Random(Map.Size.Y), Random(Map.Size.X)];
-    StartCell.Terrain := ttNormal;
-    StartCell.Player := TPlayer(Players[I]);
+    if (Map.Size.X > 0) and (Map.Size.Y > 0) then begin
+      StartCell := Map.Cells[Random(Map.Size.Y), Random(Map.Size.X)];
+      StartCell.Terrain := ttNormal;
+      StartCell.Player := TPlayer(Players[I]);
+    end;
   end;
   CurrentPlayer := TPlayer(Players[0]);
@@ -379 +402 @@
     for Y := 0 to FSize.Y - 1 do
     for X := 0 to FSize.X - 1 do begin
-      Cells[Y, X].Destroy;
+      TCell(Cells[Y, X]).Destroy;
     end;
     FSize := AValue;
     // Allocate and init new
-    SetLength(Cells, FSize.X, FSize.Y);
+    SetLength(Cells, FSize.Y, FSize.X);
     for Y := 0 to FSize.Y - 1 do
     for X := 0 to FSize.X - 1 do begin
@@ -499 +522 @@
           Pen.Color := clBlack;
           PaintHexagon(X * CellSize.X - Frac(Rect.Left / CellSize.X) * CellSize.X,
-            Y * CellSize.Y - Frac(Rect.Top / CellSize.Y) * CellSize.Y, IntToStr(Cell.Power));
+            Y * CellSize.Y - Frac(Rect.Top / CellSize.Y) * CellSize.Y, IntToStr(Cell.GetAvialPower));
           // Draw arrows
           Pen.Color := clCream;