Changeset 16 for trunk

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.

Location:

trunk

Files:

• UFormMain.pas (modified) (2 diffs)
• UGame.pas (modified) (5 diffs)

trunk/UFormMain.pas

@@ -94 +94 @@
     RedrawPending := False;
     PaintBox1.Repaint;
-    Caption := Game.CurrentPlayer.Name + ' - xTactics';
+    Caption := Game.CurrentPlayer.Name + ' - turn ' + IntToStr(Game.TurnCounter) + ' - xTactics';
   end;
 end;
@@ -131 +131 @@
   Game.NextTurn;
   Redraw;
+  while Game.CurrentPlayer.Mode <> pmHuman do begin
+    Game.NextTurn;
+    Redraw;
+  end;
 end;
 

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