--- 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