anchor.diff:    Loc: TKMPoint;
     HPlan: TKMHousePlan;
   begin
  +  Result := cs_CannotPlaceHouse;
     Output := False;
     FieldList := TKMPointList.Create;
     try
  
positive.code:   Locs := TKMPointTagList.Create();
    try
      // Create basic connection to houses which are part of specific distribution network
      for I := Low(HOUSE_CONNECTION[BaseHT]) to High(HOUSE_CONNECTION[BaseHT]) do
      begin
        HT := HOUSE_CONNECTION[BaseHT,I];
        if (HT = ht_None) then
          break;
  
  
negative.code:       if (FieldList.Count = 0) then
        begin
          Active := False;
          with fPlanner.PlannedHouses[aNode.HouseType] do
            for I := 0 to Count - 1 do
              if KMSamePoint(Plans[I].Loc, aNode.HouseLoc) then
                Plans[I].RemoveTreeInPlanProcedure := False;
          Exit;
        end;
        RequiredWorkers := FieldList.Count;
  