anchor.diff:      property Ownership[aPlayer:Byte; Y,X: Word]: Byte read GetOwnership write SetOwnership;
       //Tension: array of array of array of SmallInt;
   
  -    procedure AddAvoidBuilding(X,Y: Word; aRad: Single);
  +    procedure AddAvoidBuilding(X,Y: Word; aRad: Single; aValue: Byte = 255);
       procedure RemAvoidBuilding(aArea: TKMRect);
       function GetBestOwner(X, Y: Word): TKMHandIndex;
       procedure Init;
  
positive.code: 
  { TKMInfluenceMaps }
  //Make the area around to be avoided by common houses
  procedure TKMInfluences.AddAvoidBuilding(X,Y: Word; aRad: Single);
  var I,K: Integer;
  begin
    for I := Max(Y - Ceil(aRad), 1) to Min(Y + Ceil(aRad), fMapY - 1) do
    for K := Max(X - Ceil(aRad), 1) to Min(X + Ceil(aRad), fMapX - 1) do
      if Sqr(X-K) + Sqr(Y-I) <= Sqr(aRAD) then
        AvoidBuilding[I,K] := 255;
  end;
  
  
  
negative.code: end;
  
  
  end.
  