equal
deleted
inserted
replaced
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 |