hedgewars/uGearsHandlersMess.pas
changeset 11524 aab4767d9a50
parent 11480 1d478892cf1c
child 11528 50636bc6d145
equal deleted inserted replaced
11523:02a13be714d2 11524:aab4767d9a50
  3716     if (HHGear <> nil) and ((HHGear^.Message and gmLJump) <> 0) and ((Gear^.State and gsttmpFlag) = 0) then
  3716     if (HHGear <> nil) and ((HHGear^.Message and gmLJump) <> 0) and ((Gear^.State and gsttmpFlag) = 0) then
  3717         begin
  3717         begin
  3718         Gear^.State := Gear^.State or gsttmpFlag;
  3718         Gear^.State := Gear^.State or gsttmpFlag;
  3719         PauseMusic;
  3719         PauseMusic;
  3720         playSound(sndRideOfTheValkyries);
  3720         playSound(sndRideOfTheValkyries);
       
  3721         inCinematicMode:= true;
  3721         end;
  3722         end;
  3722 
  3723 
  3723     // pickup bonuses
  3724     // pickup bonuses
  3724     t := CheckGearNear(Gear, gtCase, 36, 36);
  3725     t := CheckGearNear(Gear, gtCase, 36, 36);
  3725     if (t <> nil) and (HHGear <> nil) then
  3726     if (t <> nil) and (HHGear <> nil) then
  3727 
  3728 
  3728     CheckCollision(Gear);
  3729     CheckCollision(Gear);
  3729 
  3730 
  3730     if ((Gear^.State and gstCollision) <> 0) or CheckGearDrowning(Gear) then
  3731     if ((Gear^.State and gstCollision) <> 0) or CheckGearDrowning(Gear) then
  3731         begin
  3732         begin
       
  3733         inCinematicMode:= false;
  3732         StopSoundChan(Gear^.SoundChannel);
  3734         StopSoundChan(Gear^.SoundChannel);
  3733         StopSound(sndRideOfTheValkyries);
  3735         StopSound(sndRideOfTheValkyries);
  3734         ResumeMusic;
  3736         ResumeMusic;
  3735 
  3737 
  3736         if ((Gear^.State and gstCollision) <> 0) then
  3738         if ((Gear^.State and gstCollision) <> 0) then