Changeset 16 for trunk/UGame.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Turn counter.
• Modified: Do not play computer players by human.

File:

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

trunk/UGame.pas

@@ -105 +105 @@
     CurrentPlayer: TPlayer;
     Moves: TObjectList; // TList<TMove>
+    TurnCounter: Integer;
     procedure NextTurn;
     constructor Create;
@@ -314 +315 @@
   Map.Grow(CurrentPlayer);
   CurrentPlayer := TPlayer(Players[(Players.IndexOf(CurrentPlayer) + 1) mod Players.Count]);
+  if Players.IndexOf(CurrentPlayer) = 0 then Inc(TurnCounter);
 end;
 
@@ -330 +332 @@
   Player.Game := Self;
   Player.Color := clRed;
+  Player.Mode := pmComputer;
   Players.Add(Player);
 
@@ -355 +358 @@
   StartCell: TCell;
 begin
+  TurnCounter := 1;
   Moves.Clear;
   Map.ClearCellMoves;
@@ -363 +367 @@
       else Terrain := ttNormal;
     Power := Random(4);
+    Player := nil;
   end;
   for I := 0 to Players.Count - 1 do