hedgewars/uGearsHandlersMess.pas
changeset 15234 186c3f272187
parent 15233 b189d6a2ecda
child 15235 66dcb7728e01
equal deleted inserted replaced
15233:b189d6a2ecda 15234:186c3f272187
  3125         else
  3125         else
  3126             AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
  3126             AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtSmokeTrace);
  3127 
  3127 
  3128     // Get rid of gear and cleanup
  3128     // Get rid of gear and cleanup
  3129     if ((WorldEdge = weWrap) and (Gear^.FlightTime >= 4000)) or
  3129     if ((WorldEdge = weWrap) and (Gear^.FlightTime >= 4000)) or
  3130         ((WorldEdge <> weWrap) and ((hwRound(Gear^.X) > (max(LAND_WIDTH,4096)+2048)) or (hwRound(Gear^.X) < -2048) or ((Gear^.Message and gmDestroy) > 0))) then
  3130         ((WorldEdge <> weWrap) and (((hwRound(Gear^.X) - Gear^.Radius > (max(LAND_WIDTH,4096)+2048)) or (hwRound(Gear^.X) + Gear^.Radius < -2048) or ((Gear^.Message and gmDestroy) > 0))) then
  3131         begin
  3131         begin
  3132         // fail-safe: instanly stop sound if it wasn't disabled before
  3132         // fail-safe: instanly stop sound if it wasn't disabled before
  3133         if (Gear^.SoundChannel <> -1) then
  3133         if (Gear^.SoundChannel <> -1) then
  3134             begin
  3134             begin
  3135             StopSoundChan(Gear^.SoundChannel);
  3135             StopSoundChan(Gear^.SoundChannel);