# HG changeset patch
# User alfadur
# Date 1523644535 -7200
# Node ID 15d804dcd7362a0766bccc83a9f7ae99feff0007
# Parent  b77a9380dd0fa7abd39f2d87eee62de33d865ce5
Stop minigun sound when gtMinigun is destroyed

diff -r b77a9380dd0f -r 15d804dcd736 hedgewars/uGearsHandlersMess.pas
--- 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);