Changeset 29 for trunk/UGame.pas

Timestamp:

Mar 3, 2014, 11:17:23 PM (10 years ago)

Author:

chronos

Message:

• Added: Player customize dialog window.
• Fixed: Rearm once set move count from predefined repeat move count.

File:

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

trunk/UGame.pas

@@ -120 +120 @@
   end;
 
+  TPlayerArray = array of TPlayer;
+
   TPlayers = class(TObjectList)
 
@@ -143 +145 @@
     FRunning: Boolean;
     procedure MoveAll(Player: TPlayer);
+    procedure ClearMovesFromCell(Cell: TCell);
     procedure SetMove(CellFrom, CellTo: TCell; Power: Integer);
     procedure SetRunning(AValue: Boolean);
+    procedure UpdateRepeatMoves(Player: TPlayer);
   public
     Players: TPlayers;
@@ -154 +158 @@
 
     procedure ComputePlayerStats;
+    function GetAlivePlayers: TPlayerArray;
     procedure NextTurn;
     constructor Create;
@@ -333 +338 @@
 begin
   for Y := 0 to Game.Map.Size.Y - 1 do
-  for X := 0 to Game.Map.Size.Y - 1 do
+  for X := 0 to Game.Map.Size.X - 1 do
   with TCell(Game.Map.Cells[Y, X]) do begin
     if (Terrain <> ttVoid) and (Player <> Self) then begin
@@ -344 +349 @@
       end;
       // Attack if target is weaker
-      if TotalPower > Power then begin
+      if TotalPower >= Power then begin
         TotalAttackPower := 0;
         for I := 0 to Length(Cells) - 1 do
@@ -434 +439 @@
           CellTo.Power := CountOnce - CellTo.Power;
           CellTo.Player := Player;
+          ClearMovesFromCell(CellTo);
         end;
       end;
@@ -448 +454 @@
     Moves.Delete(I);
   end;
+end;
+
+procedure TGame.ClearMovesFromCell(Cell: TCell);
+var
+  I: Integer;
+begin
+  for I := Moves.Count - 1 to 0 do
+  if TMove(Moves[I]).CellFrom = Cell then
+    Moves.Delete(I);
 end;
 
@@ -510 +525 @@
 end;
 
+procedure TGame.UpdateRepeatMoves(Player: TPlayer);
+var
+  I: Integer;
+begin
+  for I := 0 to Moves.Count - 1 do
+  with TMove(Moves[I]) do begin
+    if CellFrom.Player = Player then
+      if CountRepeat <= CellFrom.GetAvialPower then
+        CountOnce := CountRepeat
+        else CountOnce := CellFrom.GetAvialPower;
+  end;
+end;
+
 procedure TGame.ComputePlayerStats;
 var
@@ -522 +550 @@
 end;
 
+function TGame.GetAlivePlayers: TPlayerArray;
+var
+  I: Integer;
+begin
+  SetLength(Result, 0);
+  for I := 0 to Players.Count - 1 do
+    if TPlayer(Players[I]).TotalCells > 0 then begin
+      SetLength(Result, Length(Result) + 1);
+      Result[Length(Result) - 1] := TPlayer(Players[I]);
+    end;
+end;
+
 procedure TGame.NextTurn;
 var
-  AlivePlayers: TObjectList;
-  I: Integer;
   PrevPlayer: TPlayer;
+  AlivePlayers: TPlayerArray;
 begin
   MoveAll(CurrentPlayer);
@@ -537 +576 @@
   until CurrentPlayer.TotalCells > 0;
   if Players.IndexOf(CurrentPlayer) < Players.IndexOf(PrevPlayer) then Inc(TurnCounter);
-  try
-    AlivePlayers := TObjectList.Create;
-    AlivePlayers.OwnsObjects := False;
-    for I := 0 to Players.Count - 1 do
-      if TPlayer(Players[I]).TotalCells > 0 then AlivePlayers.Add(TPlayer(Players[I]));
-    if AlivePlayers.Count <= 1 then begin
-      Running := False;
-      if (AlivePlayers.Count = 1) and Assigned(OnWin) then OnWin(TPlayer(AlivePlayers.First));
-    end;
-  finally
-    AlivePlayers.Free;
-  end;
+  AlivePlayers := GetAlivePlayers;
+  if (Length(AlivePlayers) <= 1) then begin
+    Running := False;
+    if Assigned(OnWin) and (Length(AlivePlayers) > 0) then OnWin(TPlayer(AlivePlayers[0]));
+  end;
+  UpdateRepeatMoves(CurrentPlayer);
 end;
 
@@ -574 +607 @@
   Map := THexMap.Create;
   Map.Game := Self;
-  Map.Size := Point(20, 20);
+  Map.Size := Point(20, 16);
   Moves := TObjectList.Create;
 end;
@@ -758 +791 @@
       Pen.Color := clYellow;
       Pen.Style := psSolid;
+      Pen.Width := 1;
     end else begin
       Pen.Color := clBlack;
@@ -764 +798 @@
       Pen.Color := Brush.Color;
       Pen.Style := psSolid;
+      Pen.Width := 0;
     end;
     Points := GetHexagonPolygon(Point(Trunc(Pos.X), Trunc(Pos.Y)), Point(Trunc(HexSize.X), Trunc(HexSize.Y)));
@@ -812 +847 @@
             PosFrom := CellToPos(Cell, View);
             PosTo := CellToPos(TMove(Cell.MovesFrom[I]).CellTo, View);
+            if TMove(Cell.MovesFrom[I]).CountRepeat > 0 then Pen.Width := 2
+              else Pen.Width := 1;
             Line(View.CellToCanvasPos(Point(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 4),
               Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 4))),
               View.CellToCanvasPos(Point(Trunc(PosFrom.X + (PosTo.X - PosFrom.X) / 2),
               Trunc(PosFrom.Y + (PosTo.Y - PosFrom.Y) / 2))));
+            Pen.Width := 1;
           end;
         end;