Changeset 86 for trunk/Engine.pas

Timestamp:

May 17, 2024, 8:18:31 PM (7 weeks ago)

Author:

chronos

Message:

• Fixed: Do not play explosion sound in a loop.

File:

• trunk/Engine.pas (modified) (2 diffs)

trunk/Engine.pas

@@ -686 +686 @@
 begin
   // Check energy
-  if not ExplosionPending then begin
+  if not ExplosionPending and not Exploded then begin
     if not Engine.IsInsideHouses(Position) then begin
       Energy := Energy - EnergyDecreaseOutside;
@@ -1532 +1532 @@
     Text := SRound + ' ' + IntToStr(CurrentRound);
     TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5, Text);
+
+
+    Pen.Color := clPurple;
+    Pen.Width := 6;
+    Frame((Bitmap.Width - 400) div 2, Bitmap.Height div 5 - 10,
+      (Bitmap.Width + 400) div 2, Bitmap.Height div 5 + 100);
 
     Y := 0;