Changeset 10 for trunk/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Player mode human or computer.

File:

• trunk/UFormMain.pas (modified) (4 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;