anchor.diff:          if (ReservationsCntArr[ RESERVATION_FullSet[K] ] > 0) then
           begin
             HT := RESERVATION_FullSet[K];
  +          // Build first house with highest prio
  +          if (K <= GOLD_SHORTAGE_IDX) AND (fPlanner.PlannedHouses[HT].Completed = 0) AND (fPlanner.PlannedHouses[HT].UnderConstruction = 0) then
  +          begin
  +            BestHT := HT;
  +            BestGain := 1;
  +            break;
  +          end;
  +          // Otherwise ignore houses
             Gain := ReservationsCntArr[HT] * 2 + MaxIdx - K;
             if (Gain > BestGain) then
             begin
  
positive.code:     else if fWoodShortage then
      begin
        MaxIdx := WOOD_SHORTAGE_IDX;
        //MinIdx := TRUNK_SHORTAGE_IDX;
        if (fPlanner.PlannedHouses[htSawmill].Completed > 0) then
          MinIdx := WOOD_SHORTAGE_IDX;
      end
      else if fTrunkShortage then
        MaxIdx := TRUNK_SHORTAGE_IDX
  
negative.code:   for HT := Low(fPlanner.PlannedHouses) to High(fPlanner.PlannedHouses) do
      for I := 0 to fPlanner.PlannedHouses[HT].Count - 1 do
        with fPlanner.PlannedHouses[HT].Plans[I] do
        begin
          if not Placed then
          begin
            if HouseReservation then
              aBalanceText := aBalanceText + gRes.Houses[HT].HouseName + ' (Reservation), '
            else if RemoveTreeInPlanProcedure then
              aBalanceText := aBalanceText + gRes.Houses[HT].HouseName + ' (Remove trees), '
            else
              aBalanceText := aBalanceText + gRes.Houses[HT].HouseName + ' (Plan placed), ';
            cnt := cnt + 1;
          end
          else if (House <> nil) AND not (House.IsComplete) then
          begin
            aBalanceText := aBalanceText + gRes.Houses[HT].HouseName + ' (Construction), ';
            cnt := cnt + 1;
          end;
          if (cnt > 5) then
          begin
            cnt := 0;
            aBalanceText := aBalanceText + '|';
          end;
        end;
  
  
    cnt := 0;
    for I := Low(fBuildNodes) to High(fBuildNodes) do
  