Changeset 38 for trunk/UGame.pas

Timestamp:

Oct 13, 2019, 5:34:57 PM (5 years ago)

Author:

chronos

Message:

• Added: In computer AI form allow to set delay of steps computation. Set to zero means fastest processing.

File:

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

trunk/UGame.pas

@@ -111 +111 @@
     function FillRandomTile(Value4Change: Double = 0.1): TTile;
     function GetMoveArea(Direction: TMoveDirection): TArea;
+    procedure MoveAllAnimate(Direction: TMoveDirection);
   public
     Board: TBoard;
@@ -126 +127 @@
     procedure New;
     procedure Render(Canvas: TCanvas; CanvasSize: TPoint);
-    procedure MoveAll(Direction: TMoveDirection);
-    procedure MoveAllAnimate(Direction: TMoveDirection);
-    procedure MoveAllAndUpdate(Direction: TMoveDirection);
+    procedure MoveAll(Direction: TMoveDirection; Animation: Boolean);
+    procedure MoveAllAndUpdate(Direction: TMoveDirection; Animation: Boolean);
     procedure MoveTile(SourceTile, TargetTile: TTile);
     function IsValidPos(Pos: TPoint): Boolean;
@@ -226 +226 @@
   for I := 0 to Step - 1 do
   with Moves[I] do begin
-    GameStep.MoveAll(Direction);
+    GameStep.MoveAll(Direction, False);
     if GameStep.Board.Tiles[NewItemPos.Y, NewItemPos.X].Value = 0 then
       GameStep.Board.Tiles[NewItemPos.Y, NewItemPos.X].Value := NewItemValue
@@ -608 +608 @@
 end;
 
-procedure TGame.MoveAll(Direction: TMoveDirection);
+procedure TGame.MoveAll(Direction: TMoveDirection; Animation: Boolean);
 var
   P: TPoint;
@@ -615 +615 @@
   Area: TArea;
 begin
+  if Animation then begin
+    MoveAllAnimate(Direction);
+    Exit;
+  end;
   if Direction = drNone then Exit;
   if not CanMoveDirection(Direction) then Exit;
@@ -856 +860 @@
 end;
 
-procedure TGame.MoveAllAndUpdate(Direction: TMoveDirection);
+procedure TGame.MoveAllAndUpdate(Direction: TMoveDirection; Animation: Boolean);
 var
   HighestValue: Integer;
@@ -864 +868 @@
   if CanMoveDirection(Direction) then begin
     HighestValue := Board.GetHighestTileValue;
-    MoveAllAnimate(Direction);
+    MoveAll(Direction, Animation);
 
     NewTile := FillRandomTile;