Changeset 16 for trunk/UFormMain.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/UFormMain.pas (modified) (2 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;