anchor.diff:      {ht_Mill}           [ ht_Bakery,         ht_Inn,            ht_Mill,           ht_Farm           ],
       {ht_Quary}          [ ht_Store                                                                   ],
       {ht_Sawmill}        [ ht_ArmorWorkshop,  ht_Sawmill,        ht_WeaponWorkshop                    ],
  -    {ht_School}         [ ht_Metallurgists,  ht_Store,          ht_Barracks,       ht_School         ],
  +    {ht_School}         [ ht_Metallurgists,  ht_Store,          ht_School                            ],
       {ht_SiegeWorkshop}  [ ht_IronSmithy,     ht_Sawmill,        ht_Store,          ht_SiegeWorkshop  ],
       {ht_Stables}        [ ht_Farm,           ht_Barracks,       ht_Stables                           ],
       {ht_Store}          [ ht_Inn,            ht_Barracks,       ht_School                            ],
  
positive.code:         Locs.SortByTag();
          BestBid := BEST_BID;
          for I := Locs.Count-1 downto 0 do
            if gAIFields.Eye.CanAddHousePlan(Locs.Items[I], ht_CoalMine, True, False) then
            begin
              Coal := CoalUnderPlan(Locs.Items[I]);
              if (Coal = 0) then
  
negative.code:           for K := Low(HMA[aHT_HMA].Surroundings[Dist,Dir]) to High(HMA[aHT_HMA].Surroundings[Dist,Dir]) do
            begin
              Loc := KMPointAdd(fPlannedHouses[aHT_HMA].Plans[I].Loc, HMA[aHT_HMA].Surroundings[Dist,Dir,K], HMA[aHT].MoveToEntrance[Dir]);
              if not (gTerrain.TileInMapCoords(Loc.X, Loc.Y, 1))
                OR (Dist > 4) AND (gAIFields.Influences.Ownership[fOwner, Loc.Y, Loc.X] < INFLUENCE_LIMIT) then
                continue;
              if gAIFields.Eye.CanAddHousePlan(Loc, aHT, False, not aUnlockProcedure) then
              //if gAIFields.Eye.CanAddHousePlan(Loc, aHT, False, False) then
  