anchor.diff:      Exit;
   
     // Make sure that we dont put new house into another plan (just entrance is enought because houses have similar size)
  -  if gHands[fOwner].BuildList.HousePlanList.HasPlan(KMPoint(aLoc.X,aLoc.Y)) then
  -    Exit;
  +  //if gHands[fOwner].BuildList.HousePlanList.HasPlan(KMPoint(aLoc.X,aLoc.Y)) then
  +  //  Exit;
   
     // Scan tiles inside house plan
     for I := Low(fHousesMapping[aHT].Tiles) to High(fHousesMapping[aHT].Tiles) do
  
positive.code: end;
  
  
  function TKMEye.GetClosestTrees(aLoc: TKMPoint): TKMPointTagList;
  begin
    Result := nil;
  end;
  
  
  function TKMEye.GetCoalLocs(): TKMPointTagList;
  var
    I,K,Own: Integer;
    Loc: TKMPoint;
    Output: TKMPointTagList;
  begin
    Output := TKMPointTagList.Create();
    for I := 0 to fCoalMiningTiles.Count - 1 do
    begin
      Loc := fCoalMiningTiles.Items[I];
      Own := gAIFields.Influences.Ownership[fOwner, Loc.Y, Loc.X];
  
negative.code: end;
  
  
  function TKMEye.GetMineLocs(aHT: THouseType): TKMPointTagList;
  var
    I: Integer;
    Mines: TKMPointList;
    Output: TKMPointTagList;
  begin
    Output := TKMPointTagList.Create();
    case aHT of
      ht_GoldMine: Mines := fGoldMines;
      ht_IronMine: Mines := fIronMines;
  