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

  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