7188     begin

  7188     begin

  7189         if TestCollisionYImpl(x + direction, y + offset, Sentry^.Radius, 1, Sentry^.CollisionMask) <> 0 then

  7189         if TestCollisionYImpl(x + direction, y + offset, Sentry^.Radius, 1, Sentry^.CollisionMask) <> 0 then

  7190             break;

  7190             break;

  7191     end;

  7191     end;

  7192 

  7192 

  7194     begin

  7195     begin

  7195         if not TestOnly then

  7196         if not TestOnly then

  7196         begin

  7197         begin

  7197             Sentry^.X := Sentry^.X + signAs(_1, Sentry^.dX);

  7198             Sentry^.X := Sentry^.X + signAs(_1, Sentry^.dX);

  7198             Sentry^.Y := Sentry^.Y + int2hwFloat(offset);

  7199             Sentry^.Y := Sentry^.Y + int2hwFloat(offset);