hedgewars/uWorld.pas
changeset 5247 bf6d4bc531d2
parent 5191 c7000a6b397b
child 5294 67278f1cba2c
equal deleted inserted replaced
5244:1b408b965c01 5247:bf6d4bc531d2
  1163 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then
  1163 if (not (CurrentTeam^.ExtDriven and isCursorVisible and not bShowAmmoMenu)) and cHasFocus then
  1164     uCursor.updatePosition();
  1164     uCursor.updatePosition();
  1165 {$ENDIF}
  1165 {$ENDIF}
  1166 
  1166 
  1167 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
  1167 if (not PlacingHogs) and (FollowGear <> nil) and (not isCursorVisible) and (not fastUntilLag) then
  1168     if abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4 then
  1168     if (not autoCameraOn) or (abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y) > 4) then
  1169     begin
  1169     begin
  1170         FollowGear:= nil;
  1170         FollowGear:= nil;
  1171         prevPoint:= CursorPoint;
  1171         prevPoint:= CursorPoint;
  1172         exit
  1172         exit
  1173     end
  1173     end