anchor.diff:  
     //Target has to be walkable within Distance
     TestRadius := False;
  +  DistanceSqr := Sqr(aDistance);
     for i:=max(round(LocB.Y-aDistance),1) to min(round(LocB.Y+aDistance),fMapY-1) do
     for k:=max(round(LocB.X-aDistance),1) to min(round(LocB.X+aDistance),fMapX-1) do
  -  if KMLength(LocB,KMPoint(k,i)) <= aDistance then
  +  if KMLengthSqr(LocB,KMPoint(k,i)) <= DistanceSqr then
       TestRadius := TestRadius or CheckPassability(KMPoint(k,i),aPass);
     Result := Result and TestRadius;
   
  
positive.code:   TestRadius := False;
    for i:=max(round(LocB.Y-aDistance),1) to min(round(LocB.Y+aDistance),fMapY-1) do
    for k:=max(round(LocB.X-aDistance),1) to min(round(LocB.X+aDistance),fMapX-1) do
    if KMLength(LocB,KMPoint(k,i)) <= aDistance then
      TestRadius := TestRadius or (Land[LocA.Y,LocA.X].WalkConnect[WC] = Land[i,k].WalkConnect[WC]);
    Result := Result and TestRadius;
  end;
  
negative.code: 
  //Test wherever it is possible to make the route without actually making it to save performance
  function TKMTerrain.Route_CanBeMade(LocA, LocB: TKMPoint; aPass: TKMTerrainPassability; aDistance: Single): Boolean;
  var
    TestRadius: Boolean;
    i,k: integer;
    DistanceSqr: Single;
    WC: TWalkConnect;
  begin
    Result := True;
  
  