Changeset 10 for trunk

Timestamp:

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

Author:

chronos

Message:

• Added: Player mode human or computer.

Location:

trunk

Files:

• UFormMain.pas (modified) (4 diffs)
• UGame.pas (modified) (3 diffs)

trunk/UFormMain.pas

@@ -77 +77 @@
 procedure TFormMain.PaintBox1Paint(Sender: TObject);
 begin
-  with TPlayer(Game.Players[0]) do begin
+  with Game.CurrentPlayer do begin
     View := Bounds(View.Left, View.Top, PaintBox1.Width,
       PaintBox1.Height);
@@ -143 +143 @@
 begin
   if Button = mbLeft then begin
-    StartMousePoint := Point(X, Y);
-    StartViewPoint := Point(TPlayer(Game.Players[0]).View.Left, TPlayer(Game.Players[0]).View.Top);
-    MoveActive := True;
+    if Game.CurrentPlayer.Mode = pmHuman then begin
+      StartMousePoint := Point(X, Y);
+      StartViewPoint := Point(Game.CurrentPlayer.View.Left, Game.CurrentPlayer.View.Top);
+      MoveActive := True;
+    end;
   end;
 end;
@@ -158 +160 @@
 begin
   if MoveActive then begin
-    TPlayer(Game.Players[0]).View := Bounds(StartViewPoint.X + StartMousePoint.X - X,
-      StartViewPoint.Y + StartMousePoint.Y - Y,
-      TPlayer(Game.Players[0]).View.Right - TPlayer(Game.Players[0]).View.Left,
-      TPlayer(Game.Players[0]).View.Bottom - TPlayer(Game.Players[0]).View.Top);
-    Redraw;
+    if Game.CurrentPlayer.Mode = pmHuman then begin
+      Game.CurrentPlayer.View := Bounds(StartViewPoint.X + StartMousePoint.X - X,
+        StartViewPoint.Y + StartMousePoint.Y - Y,
+        Game.CurrentPlayer.View.Right - Game.CurrentPlayer.View.Left,
+        Game.CurrentPlayer.View.Bottom - Game.CurrentPlayer.View.Top);
+      Redraw;
+    end;
   end;
 end;
@@ -170 +174 @@
 begin
   if (StartMousePoint.X = X) and (StartMousePoint.Y = Y) then begin
-    TPlayer(Game.Players[0]).SelectCell(Point(X, Y));
-    Redraw;
+    if Game.CurrentPlayer.Mode = pmHuman then begin
+      Game.CurrentPlayer.SelectCell(Point(X, Y));
+      Redraw;
+    end;
   end;
   MoveActive := False;

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);