anchor.diff:    Math, KromUtils,
     KM_Game, KM_Terrain, KM_AIFields,
     KM_UnitsCollection,
  -  KM_Resource, KM_ResHouses, KM_ResUnits,
  +  KM_Resource, KM_ResUnits,
     KM_Log, KM_CommonUtils;
   
   
  
positive.code:   for I := 0 to fCount - 1 do
    if (aIndex <> I) and (Hands[aIndex].Alliances[I] = aAlliance) then
    begin
      H := fHandsList[I].Houses.FindHouse(ht_Any, aLoc.X, aLoc.Y, 1, aOnlyCompleted);
      if (H <> nil) and ((Result = nil) or (H.GetDistance(aLoc) < Result.GetDistance(aLoc))) then
        Result := H;
    end;
  end;
  
  
  
negative.code: 
  //Check opponents for closest House with given Alliance setting
  //Note: we check by house cells, not by entrance
  function TKMHandsCollection.GetClosestHouse(aLoc: TKMPoint; aIndex: TKMHandIndex; aAlliance: TAllianceType; aTypes: THouseTypeSet = [HOUSE_MIN..HOUSE_MAX]; aOnlyCompleted: Boolean = True): TKMHouse;
  var
    I: Integer;
    H: TKMHouse;
  