hedgewars/uGearsHandlersMess.pas
changeset 13980 350adfa0e896
parent 13979 4d0c80f7aa32
child 13983 3ae88a9f9dca
--- a/hedgewars/uGearsHandlersMess.pas	Thu Oct 25 23:46:31 2018 +0200
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Oct 26 03:59:20 2018 +0200
@@ -4174,8 +4174,7 @@
     if (HHGear <> nil) and ((HHGear^.Message and gmLJump) <> 0) and ((Gear^.State and gsttmpFlag) = 0) then
         begin
         Gear^.State := Gear^.State or gsttmpFlag;
-        PauseMusic;
-        playSound(sndRideOfTheValkyries);
+        PlayMusicSound(sndRideOfTheValkyries);
         inCinematicMode:= true;
         end;
 
@@ -4190,8 +4189,7 @@
         begin
         inCinematicMode:= false;
         StopSoundChan(Gear^.SoundChannel);
-        StopSound(sndRideOfTheValkyries);
-        ResumeMusic;
+        StopMusicSound(sndRideOfTheValkyries);
 
         if ((Gear^.State and gstCollision) <> 0) then
             begin