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:   end;
  
  
    TKMFFInitPlace = class(TNavMeshFloodFill)
    private
    protected
      fPolygonArr: TKMByteArray;
      function CanBeExpanded(const aIdx: Word): Boolean; override;
      procedure MarkAsVisited(const aIdx, aDistance: Word; const aPoint: TKMPoint); override;
    public
      function FillPolygons(const aMaxIdx: Word; aInitIdxArray: TKMWordArray; var aPolygonArr: TKMByteArray): Boolean; reintroduce;
    end;
  
  
  
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
  