2675     if (Gear^.Timer = 0)

  2675     if (Gear^.Timer = 0)

  2676        or (t^.Count <> 0)

  2676        or (t^.Count <> 0)

  2677        or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY))

  2677        or (not TestCollisionYWithGear(Gear, hwSign(Gear^.dY))

  2678        and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))

  2678        and not TestCollisionXWithGear(Gear, hwSign(Gear^.dX)))

  2679 // CheckLandValue returns true if the type isn't matched

  2679 // CheckLandValue returns true if the type isn't matched

  2681     begin

  2681     begin

  2682         //out of time or exited ground

  2682         //out of time or exited ground

  2683         StopSound(Gear^.SoundChannel);

  2683         StopSound(Gear^.SoundChannel);

  2684         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

  2684         doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);

  2685         DeleteGear(Gear);

  2685         DeleteGear(Gear);