Changeset 86


Ignore:
Timestamp:
May 17, 2024, 8:18:31 PM (6 months ago)
Author:
chronos
Message:
  • Fixed: Do not play explosion sound in a loop.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Engine.pas

    r85 r86  
    686686begin
    687687  // Check energy
    688   if not ExplosionPending then begin
     688  if not ExplosionPending and not Exploded then begin
    689689    if not Engine.IsInsideHouses(Position) then begin
    690690      Energy := Energy - EnergyDecreaseOutside;
     
    15321532    Text := SRound + ' ' + IntToStr(CurrentRound);
    15331533    TextOut((Bitmap.Width - TextWidth(Text)) div 2, Bitmap.Height div 5, Text);
     1534
     1535
     1536    Pen.Color := clPurple;
     1537    Pen.Width := 6;
     1538    Frame((Bitmap.Width - 400) div 2, Bitmap.Height div 5 - 10,
     1539      (Bitmap.Width + 400) div 2, Bitmap.Height div 5 + 100);
    15341540
    15351541    Y := 0;
Note: See TracChangeset for help on using the changeset viewer.