hedgewars/uGearsHandlersMess.pas
changeset 13323 15d804dcd736
parent 13321 23ade5604f8d
child 13341 0c3f612edc19
--- a/hedgewars/uGearsHandlersMess.pas	Fri Apr 13 13:03:51 2018 -0400
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Apr 13 20:35:35 2018 +0200
@@ -6724,6 +6724,8 @@
 
     if (Gear^.Timer = 0) or ((HHGear^.State and gstHHDriven) = 0) then
     begin
+        if (HHGear^.State and gstHHDriven) = 0 then
+            StopSound(sndMinigun);
         HHGear^.State := HHGear^.State and (not gstNotKickable);
         ClearHitOrder();
         DeleteGear(Gear);