Changeset 10 for trunk/UGame.pas

Timestamp:

Feb 16, 2014, 11:58:42 PM (11 years ago)

Author:

chronos

Message:

• Added: Player mode human or computer.

File:

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

trunk/UGame.pas

@@ -47 +47 @@
   end;
 
+  TPlayerMode = (pmHuman, pmComputer);
+
   { TPlayer }
 
@@ -56 +58 @@
     ViewZoom: Double;
     SelectedCell: TPoint;
+    Mode: TPlayerMode;
+    procedure ComputerTurn;
     procedure SelectCell(Pos: TPoint);
     procedure Paint(PaintBox: TPaintBox);
@@ -131 +135 @@
 
 { TPlayer }
+
+procedure TPlayer.ComputerTurn;
+begin
+
+end;
 
 procedure TPlayer.SelectCell(Pos: TPoint);