Changeset 32 for trunk/UCore.pas

Timestamp:

Sep 8, 2012, 10:28:50 PM (12 years ago)

Author:

chronos

Message:

• Added: CoolAudio package.
• Added: Experimental in-game sounds.

Location:

trunk

Files:

• . (modified) (1 prop)
• UCore.pas (modified) (7 diffs)

trunk

@@ -4 +4 @@
 tunneler.exe
 heaptrclog.trc
+tunneler.lps

@@ -4 +4 @@
 tunneler.exe
 heaptrclog.trc
+tunneler.lps

trunk/UCore.pas

@@ -8 +8 @@
   Dialogs, Classes, SysUtils, Contnrs, Graphics, SpecializedMatrix, SpecializedList,
   IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle,
-  Syncobjs, UThreading, Forms, DateUtils;
+  Syncobjs, UThreading, Forms, DateUtils, UAudioSystem, UAudioSystemMPlayer;
 
 const
@@ -213 +213 @@
     CurrentRound: Integer;
     MaxRound: Integer;
+    AudioShot: TMediaPlayer;
+    AudioExplode: TMediaPlayer;
     procedure CheckGameEnd;
     constructor Create;
@@ -765 +767 @@
       //with Engine, World do
       //if TMatter(Matter[Surface.Items[Position]]).Diggable ;
+      Engine.AudioShot.Play;
     end;
 end;
@@ -821 +824 @@
       Explosion(Position, ExplosionRange);
       Exploded := True;
+      Engine.AudioExplode.Play;
     end;
   end else begin
@@ -846 +850 @@
     Explosion(Position, ExplosionRange);
     Exploded := True;
+    Engine.AudioExplode.Play;
   end;
 
@@ -1543 +1548 @@
   World := TWorld.Create;
   World.Engine := Self;
+  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;
   InitPlayerPool;
   DigMasks := TListObject.Create;
@@ -1553 +1565 @@
 begin
   Active := False;
-  DigMasks.Free;
-  FBitmapLower.Free;
-  FBitmapLock.Free;
-  IntfImage.Free;
-  PlayerPool.Free;
-  Players.Free;
-  Keyboard.Free;
-  World.Free;
-  Lock.Free;
+  FreeAndNil(DigMasks);
+  FreeAndNil(FBitmapLower);
+  FreeAndNil(FBitmapLock);
+  FreeAndNil(IntfImage);
+  FreeAndNil(PlayerPool);
+  FreeAndNil(Players);
+  FreeAndNil(Keyboard);
+  FreeAndNil(World);
+  FreeAndNil(Lock);
+  FreeAndNil(AudioShot);
+  FreeAndNil(AudioExplode);
   inherited Destroy;
 end;

@@ -4 +4 @@
 tunneler.exe
 heaptrclog.trc
+tunneler.lps