Changeset 46

Timestamp:

Nov 2, 2019, 12:22:07 AM (4 years ago)

Author:

chronos

Message:

• Added: Key buffer to capture consecutive key presses even with slow animation.

File:

• trunk/Forms/UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -36 +36 @@
   private
     RedrawPending: Boolean;
+    KeyBuffer: array of Word;
   public
     procedure Redraw;
@@ -55 +56 @@
 procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
-  if Core.Game.Running and not Core.Game.Moving then begin
-    case Key of
-      37: Core.Game.MoveAllAndUpdate(drLeft, True);
-      38: Core.Game.MoveAllAndUpdate(drUp, True);
-      39: Core.Game.MoveAllAndUpdate(drRight, True);
-      40: Core.Game.MoveAllAndUpdate(drDown, True);
+  if Core.Game.Running then begin
+    SetLength(KeyBuffer, Length(KeyBuffer) + 1);
+    KeyBuffer[Length(KeyBuffer) - 1] := Key;
+    if not Core.Game.Moving then begin
+      while Length(KeyBuffer) > 0 do begin
+        case KeyBuffer[0] of
+          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;
+        if Length(KeyBuffer) > 1 then
+          Move(KeyBuffer[1], KeyBuffer[0], (Length(KeyBuffer) - 1) * SizeOf(Word));
+        SetLength(KeyBuffer, Length(KeyBuffer) - 1);
+      end;
+    end else begin
     end;
   end;