anchor.diff:  // Create protected radius = array with smaller chance to spawn obstacle near aLocs
     if RMGSettings.Locs.Resource.Active then
     begin
  -    ProbabilityReducer := (11 - RMGSettings.Locs.ProtectedRadius) * 0.02;
  +    ProbabilityReducer := sqrt(11 - RMGSettings.Locs.ProtectedRadius) * 0.05;
  +    ProbabilityOffset := RMGSettings.Locs.ProtectedRadius * 1.5;
       MaxCnt := Round(1 / ProbabilityReducer);
       if RMGSettings.Locs.Resource.ConnectLocs then
         ConnectLocs(aLocs);
  
positive.code:       for Y := Max(  Low(P), aLocs[I].Y - MaxCnt  ) to Min(  High(P), aLocs[I].Y + MaxCnt  ) do
          for X := Max(  Low(P[Y]), aLocs[I].X - MaxCnt  ) to Min(  High(P[Y]), aLocs[I].X + MaxCnt  ) do
          begin
            Probability := KMLengthDiag(X,Y,aLocs[I]) * ProbabilityReducer;
            if (P[Y,X] > Probability) then
              P[Y,X] := Probability;
          end;
  
negative.code: 
    var
      X,Y,I, MaxCnt: Integer;
      Factor,Probability, ProbabilityReducer, ProbabilityOffset: Single;
      MinP, MaxP: TKMPoint;
      Obstacle: TObstacleType;
      ObstacleSeeds: TKMPointArray;
  