hedgewars/uGearsHandlersMess.pas
changeset 13980 350adfa0e896
parent 13979 4d0c80f7aa32
child 13983 3ae88a9f9dca
equal deleted inserted replaced
13979:4d0c80f7aa32 13980:350adfa0e896
  4172         end;
  4172         end;
  4173 
  4173 
  4174     if (HHGear <> nil) and ((HHGear^.Message and gmLJump) <> 0) and ((Gear^.State and gsttmpFlag) = 0) then
  4174     if (HHGear <> nil) and ((HHGear^.Message and gmLJump) <> 0) and ((Gear^.State and gsttmpFlag) = 0) then
  4175         begin
  4175         begin
  4176         Gear^.State := Gear^.State or gsttmpFlag;
  4176         Gear^.State := Gear^.State or gsttmpFlag;
  4177         PauseMusic;
  4177         PlayMusicSound(sndRideOfTheValkyries);
  4178         playSound(sndRideOfTheValkyries);
       
  4179         inCinematicMode:= true;
  4178         inCinematicMode:= true;
  4180         end;
  4179         end;
  4181 
  4180 
  4182     // pickup bonuses
  4181     // pickup bonuses
  4183     t := CheckGearNear(Gear, gtCase, 36, 36);
  4182     t := CheckGearNear(Gear, gtCase, 36, 36);
  4188 
  4187 
  4189     if ((Gear^.State and gstCollision) <> 0) or CheckGearDrowning(Gear) then
  4188     if ((Gear^.State and gstCollision) <> 0) or CheckGearDrowning(Gear) then
  4190         begin
  4189         begin
  4191         inCinematicMode:= false;
  4190         inCinematicMode:= false;
  4192         StopSoundChan(Gear^.SoundChannel);
  4191         StopSoundChan(Gear^.SoundChannel);
  4193         StopSound(sndRideOfTheValkyries);
  4192         StopMusicSound(sndRideOfTheValkyries);
  4194         ResumeMusic;
       
  4195 
  4193 
  4196         if ((Gear^.State and gstCollision) <> 0) then
  4194         if ((Gear^.State and gstCollision) <> 0) then
  4197             begin
  4195             begin
  4198             doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound);
  4196             doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), Gear^.Boom, Gear^.Hedgehog, EXPLAutoSound);
  4199             for i:= 0 to 15 do
  4197             for i:= 0 to 15 do