Changeset 17 for trunk/UGame.pas

Timestamp:

Feb 20, 2014, 11:29:54 PM (11 years ago)

Author:

chronos

Message:

• Added: Compute total units and total cell count for each player and evaluate how many players are still alive. If only one player remains then end game and show winner.

File:

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

trunk/UGame.pas

@@ -62 +62 @@
     procedure Grow(APlayer: TPlayer);
     procedure ClearCellMoves;
+    procedure ComputePlayerStats;
     property Size: TPoint read FSize write SetSize;
   end;
@@ -77 +78 @@
     SelectedCell: TCell;
     Mode: TPlayerMode;
+    TotalUnits: Integer;
+    TotalCells: Integer;
     procedure ComputerTurn;
     procedure SelectCell(Pos: TPoint);
@@ -93 +96 @@
 
   TMoveEvent = procedure(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer) of object;
+  TWinEvent = procedure(Player: TPlayer) of object;
 
   TGame = class
   private
     FOnMove: TMoveEvent;
+    FOnWin: TWinEvent;
     procedure MoveAll(Player: TPlayer);
     procedure SetMove(CellFrom, CellTo: TCell);
@@ -106 +111 @@
     Moves: TObjectList; // TList<TMove>
     TurnCounter: Integer;
+    Running: Boolean;
+    procedure ComputePlayerStats;
     procedure NextTurn;
     constructor Create;
@@ -112 +119 @@
   published
     property OnMove: TMoveEvent read FOnMove write FOnMove;
+    property OnWin: TWinEvent read FOnWin write FOnWin;
   end;
 
@@ -310 +318 @@
 end;
 
+procedure TGame.ComputePlayerStats;
+var
+  I: Integer;
+begin
+  for I := 0 to Players.Count - 1 do
+  with TPlayer(Players[I]) do begin
+    TotalUnits := 0;
+    TotalCells := 0;
+  end;
+  Map.ComputePlayerStats;
+end;
+
 procedure TGame.NextTurn;
+var
+  AlivePlayers: TObjectList;
+  I: Integer;
+  PrevPlayer: TPlayer;
 begin
   MoveAll(CurrentPlayer);
   Map.Grow(CurrentPlayer);
-  CurrentPlayer := TPlayer(Players[(Players.IndexOf(CurrentPlayer) + 1) mod Players.Count]);
-  if Players.IndexOf(CurrentPlayer) = 0 then Inc(TurnCounter);
+  ComputePlayerStats;
+  PrevPlayer := CurrentPlayer;
+  // Skip dead players
+  repeat
+    CurrentPlayer := TPlayer(Players[(Players.IndexOf(CurrentPlayer) + 1) mod Players.Count]);
+  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;
 end;
 
@@ -322 +363 @@
   Player: TPlayer;
 begin
+  Randomize;
+
   Players := TObjectList.Create;
   Player := TPlayer.Create;
@@ -339 +382 @@
   Map := THexMap.Create;
   Map.Game := Self;
-  Map.Size := Point(20, 20);
+  Map.Size := Point(2, 2);
   Moves := TObjectList.Create;
 end;
@@ -379 +422 @@
   end;
   CurrentPlayer := TPlayer(Players[0]);
+  Running := True;
 end;
 
@@ -583 +627 @@
 end;
 
+procedure THexMap.ComputePlayerStats;
+var
+  X, Y: Integer;
+begin
+  for Y := 0 to Size.Y - 1 do
+  for X := 0 to Size.X - 1 do
+  with Cells[Y, X] do begin
+    if Assigned(Player) then begin
+      Player.TotalCells := Player.TotalCells + 1;
+      Player.TotalUnits := Player.TotalUnits + Power;
+
+    end;
+  end;
+end;
+
 end.