Changeset 38 for trunk/Forms/UFormMain.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/Forms/UFormMain.pas (modified) (1 diff)

trunk/Forms/UFormMain.pas

@@ -57 +57 @@
   if Core.Game.Running and not Core.Game.Moving then begin
     case Key of
-      37: Core.Game.MoveAllAndUpdate(drLeft);
-      38: Core.Game.MoveAllAndUpdate(drUp);
-      39: Core.Game.MoveAllAndUpdate(drRight);
-      40: Core.Game.MoveAllAndUpdate(drDown);
+      37: Core.Game.MoveAllAndUpdate(drLeft, True);
+      38: Core.Game.MoveAllAndUpdate(drUp, True);
+      39: Core.Game.MoveAllAndUpdate(drRight, True);
+      40: Core.Game.MoveAllAndUpdate(drDown, True);
     end;
   end;