anchor.diff:  end;
   
   
  -function TKMHousesCollection.FindHouse(aType: TKMHouseType; X, Y: word; const aIndex: Byte = 1; aOnlyCompleted: Boolean = True): TKMHouse;
  +function TKMHousesCollection.FindHouse(aType: TKMHouseType; X, Y: Word; const aIndex: Byte = 1; aOnlyCompleted: Boolean = True): TKMHouse;
   var
     HT: THouseTypeSet;
   begin
  
positive.code: end;
  
  
  function TKMHousesCollection.AddToCollection(aHouseType: TKMHouseType; PosX,PosY: Integer; aOwner: TKMHandID; aHBS: TKMHouseBuildState): TKMHouse;
  var
    uid: Cardinal;
  begin
  
negative.code: //Find closest house to given position
  //or
  //Find house by index (1st, 2nd)
  function TKMHousesCollection.FindHouse(const aTypes: THouseTypeSet; X, Y: Word; const aIndex: Byte = 1; aOnlyCompleted: Boolean = True): TKMHouse;
  var
    I, ID: Integer;
    usePosition: Boolean;
  