Changeset 57 for trunk/Forms/UFormMain.pas

Timestamp:

Dec 25, 2022, 9:29:43 AM (18 months ago)

Author:

chronos

Message:

• Modified: Start new round in delay after tank explosion.

File:

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

trunk/Forms/UFormMain.pas

@@ -191 +191 @@
 procedure TFormMain.AShowMapExecute(Sender: TObject);
 begin
-  if not Assigned(FormMap) then FormMap := TFormMap.Create(nil);
+  if not Assigned(FormMap) then FormMap := TFormMap.Create(Self);
   FormMap.Show;
 end;
@@ -225 +225 @@
 procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
   );
+const
+  KeyF11 = 112;
+var
+  I: Integer;
 begin
   Engine.KeyBoard.KeyState[Key] := False;
+  {$IFDEF DEBUG}
+  if Key = KeyF11 then begin
+    // Destroy first alive player
+    for I := 0 to Engine.Players.Count - 1 do
+    with Engine.Players[I] do begin
+      if not Exploded then begin
+        Energy := -100;
+        Break;
+      end;
+    end;
+  end;
+  {$ENDIF}
 end;