anchor.diff:  
       procedure AfterMissionInit();
       procedure UpdateState(aTick: Cardinal);
  -    procedure ScanLocResources(out aGoldMineCnt, aIronMineCnt, aFieldCnt, aBuildCnt: Integer);
       procedure OwnerUpdate(aPlayer: TKMHandIndex);
  +    procedure ScanLoc();
   
       function CanPlaceHouse(aLoc: TKMPoint; aHT: TKMHouseType; aIgnoreTrees: Boolean = False): Boolean;
       function CanAddHousePlan(aLoc: TKMPoint; aHT: TKMHouseType; aIgnoreAvoidBuilding: Boolean = False; aIgnoreTrees: Boolean = False; aIgnoreLocks: Boolean = True): Boolean;
   
  +    function FindSeparateMineLocs(aAllMines: Boolean; aMineType: TKMHouseType): TKMPointArray;
       function GetMineLocs(aHT: TKMHouseType): TKMPointTagList;
       function GetStoneLocs(): TKMPointTagList;
       procedure GetForests(var aForests: TKMPointTagList);
  +    function GetCityCenterPolygons(aMultiplePoints: Boolean = False): TKMWordArray;
       function GetCityCenterPoints(aMultiplePoints: Boolean = False): TKMPointArray;
   
       function GetClosestUnitAroundHouse(aHT: TKMHouseType; aLoc: TKMPoint; aInitPoint: TKMPoint): TKMUnit;
  
positive.code:   MIN_SCAN_DIST_FROM_HOUSE = 2; // Houses must have at least 1 tile of space between them
  
  var
    GA_EYE_GetForests_SPRndOwnLimMin : Single = 50.40101;
    GA_EYE_GetForests_SPRndOwnLimMax : Single = 239.6274;
    GA_EYE_GetForests_AddRndPosition : Single = 18.87446;
    GA_EYE_GetForests_RndCount       : Single = 8.2571;
    GA_EYE_GetForests_RndLimit       : Single = 0.841865;
    GA_EYE_GetForests_InflLimit      : Single = 204.4068;
    GA_EYE_GetForests_MinTrees       : Single = 3.1580;
    GA_EYE_GetForests_Radius         : Single = 5.2813;
    GA_EYE_GetForests_MinRndSoil     : Single = 16.66946; //0<->25
  
  
  type
  
negative.code:   for Y := 1 to fMapY - 1 do
      for X := 1 to fMapX - 1 do
        gRenderAux.Quad(X, Y, (Routes[Y,X] shl 24) OR COLOR_RED); //}
    //{ Stone mining tiles
    for I := 0 to fStoneMiningTiles.Count - 1 do
      gRenderAux.Quad(fStoneMiningTiles.Items[I].X, fStoneMiningTiles.Items[I].Y, $99000000 OR COLOR_RED); //}
  end;
  
  
  