Changeset 70 for trunk/UEngine.pas

Timestamp:

Jan 11, 2023, 1:15:24 AM (17 months ago)

Author:

chronos

Message:

• Modified: Play sounds directly with play commands on Linux.

File:

• trunk/UEngine.pas (modified) (4 diffs)

trunk/UEngine.pas

@@ -7 +7 @@
   IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle,
   Syncobjs, UThreading, Forms, DateUtils, UAudioSystem, Generics.Collections,
-  UWorld, UMatter;
+  UWorld, UMatter, USound;
 
 const
@@ -243 +243 @@
     CurrentRound: Integer;
     MaxRound: Integer;
-    AudioShot: TMediaPlayer;
-    AudioExplode: TMediaPlayer;
+    AudioShot: TSound;
+    AudioExplode: TSound;
     DrawDuration: TDatetime;
     constructor Create(AOwner: TComponent); override;
@@ -645 +645 @@
     Engine.Redraw;
   end;
-  if Shield <= 0 then begin
+  if (Shield <= 0) and not Exploded then begin
     Shield := 0;
     Explosion(Position, ExplosionRange);
@@ -1817 +1817 @@
   World := TWorld.Create;
   //DefaultAudioSystem := TAudioSystemMPlayer.Create(nil);
-  AudioShot := TMediaPlayer.Create(nil);
-  AudioShot.FileName := 'Audio/GE_KF7_Soviet.wav';
-  AudioShot.Open;
-  AudioExplode := TMediaPlayer.Create(nil);
-  AudioExplode.FileName := 'Audio/bomb.wav';
-  AudioExplode.Open;
+  AudioShot := TSound.Create(nil);
+  AudioShot.FileName := GetCurrentDir + '/Audio/GE_KF7_Soviet.wav';
+  AudioExplode := TSound.Create(nil);
+  AudioExplode.FileName := GetCurrentDir + '/Audio/bomb.wav';
   InitPlayerPool;
   DigMasks := TObjectList<TMatrixByte>.Create;