Desert Eagle sound
authorunc0rr
Sun, 15 Jul 2007 13:35:32 +0000
changeset 559 6083fffc9e2f
parent 558 b2b840eeb10a
child 560 7bf2b554de0c
Desert Eagle sound
hedgewars/GSHandlers.inc
hedgewars/uConsts.pas
share/hedgewars/Data/Sounds/CMakeLists.txt
share/hedgewars/Data/Sounds/gun.ogg
--- a/hedgewars/GSHandlers.inc	Sat Jul 14 11:46:54 2007 +0000
+++ b/hedgewars/GSHandlers.inc	Sun Jul 15 13:35:32 2007 +0000
@@ -327,7 +327,7 @@
 end;
 
 ////////////////////////////////////////////////////////////////////////////////
-procedure doStepDEagleShot(Gear: PGear);
+procedure doStepDEagleShotWork(Gear: PGear);
 var i, x, y: LongWord;
     oX, oY: hwFloat;
 begin
@@ -355,6 +355,12 @@
    DeleteGear(Gear)
 end;
 
+procedure doStepDEagleShot(Gear: PGear);
+begin
+PlaySound(sndGun, false);
+Gear^.doStep:= @doStepDEagleShotWork
+end;
+
 ////////////////////////////////////////////////////////////////////////////////
 procedure doStepActionTimer(Gear: PGear);
 begin
--- a/hedgewars/uConsts.pas	Sat Jul 14 11:46:54 2007 +0000
+++ b/hedgewars/uConsts.pas	Sun Jul 15 13:35:32 2007 +0000
@@ -54,7 +54,7 @@
 
      TSound     = (sndGrenadeImpact, sndExplosion, sndThrowPowerUp, sndThrowRelease,
                    sndSplash, sndShotgunReload, sndShotgunFire, sndGraveImpact,
-                   sndMineTick, sndPickhammer);
+                   sndMineTick, sndPickhammer, sndGun);
 
      TAmmoType  = (amGrenade, amClusterBomb, amBazooka, amUFO, amShotgun, amPickHammer,
                    amSkip, amRope, amMine, amDEagle, amDynamite, amFirePunch,
@@ -345,7 +345,8 @@
                                        (FileName:   'shotgunfire.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndShotgunFire
                                        (FileName:   'graveimpact.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndGraveImpact
                                        (FileName:      'minetick.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndMineTicks
-                                       (FileName:    'pickhammer.ogg'; Path: ptSounds; id: nil; lastChan: 0) // sndPickhammer
+                                       (FileName:    'pickhammer.ogg'; Path: ptSounds; id: nil; lastChan: 0),// sndPickhammer
+                                       (FileName:           'gun.ogg'; Path: ptSounds; id: nil; lastChan: 0) // sndGun
                                        );
 
       Ammoz: array [TAmmoType] of record
--- a/share/hedgewars/Data/Sounds/CMakeLists.txt	Sat Jul 14 11:46:54 2007 +0000
+++ b/share/hedgewars/Data/Sounds/CMakeLists.txt	Sun Jul 15 13:35:32 2007 +0000
@@ -2,6 +2,7 @@
 	explosion.ogg
 	graveimpact.ogg
 	grenadeimpact.ogg
+	gun.ogg
 	minetick.ogg
 	pickhammer.ogg
 	shotgunfire.ogg
Binary file share/hedgewars/Data/Sounds/gun.ogg has changed