anchor.diff:  {$I KaM_Remake.inc}
   interface
   uses
  -  Classes, Graphics, KromUtils, Math, SysUtils,
  +  Classes, Graphics, KromUtils, Math, SysUtils, Contnrs,
     KM_Defaults, KM_Points, KM_CommonClasses, KM_CommonTypes, KM_CommonUtils,
     KM_ResHouses, KM_Houses, KM_ResWares, KM_Units,
     KM_AIArmyEvaluation, KM_AIInfluences, KM_FloodFill, KM_NavMeshFloodFill;
  
positive.code:     MaxCnt, MaxDist: Word;
    end;
  
  
    TKMBuildInfoArray = array of TKMBuildInfo;
  
    // This class transforms all house placing requirements into 1 array to avoid overlapping conditions
    // Placing new house is then question of internal house tiles
  
negative.code:   X,Y: Integer;
  begin
    Result := True;
    for X := Max(aLoc.X-4, 1) to Min(aLoc.X+3+Byte(aHT = htGoldMine), fMapX-1) do
      for Y := Max(aLoc.Y-8, 1) to aLoc.Y do
        if   (aHT = htGoldMine) AND gTerrain.TileHasGold(X, Y)
          OR (aHT = htIronMine) AND gTerrain.TileHasIron(X, Y) then
  