Changeset 17 for trunk/UFormMain.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/UFormMain.pas (modified) (4 diffs)

trunk/UFormMain.pas

@@ -59 +59 @@
     RedrawPending: Boolean;
     procedure DoOnMove(CellFrom, CellTo: TCell; var CountOnce, CountRepeat: Integer);
+    procedure DoOnWin(Player: TPlayer);
   public
     Game: TGame;
@@ -111 +112 @@
 end;
 
+procedure TFormMain.DoOnWin(Player: TPlayer);
+begin
+  ShowMessage('Player ' + Player.Name + ' wins');
+end;
+
 procedure TFormMain.Redraw;
 begin
@@ -120 +126 @@
   Game := TGame.Create;
   Game.OnMove := DoOnMove;
+  Game.OnWin := DoOnWin;
 end;
 
@@ -131 +138 @@
   Game.NextTurn;
   Redraw;
-  while Game.CurrentPlayer.Mode <> pmHuman do begin
+  while Game.Running and (Game.CurrentPlayer.Mode <> pmHuman) do begin
     Game.NextTurn;
     Redraw;