anchor.diff:    InitPointsArr[0] := aCenter;
     BuildFF.FindPlaceForHouse(HouseReq, InitPointsArr, True);
   
  -  BestBid := MIN_BID;
  +  BestGain := MIN_GAIN;
     for I := 0 to BuildFF.Locs.Count - 1 do
     begin
       Loc := BuildFF.Locs.Items[I];
  -    Bid := - GA_PLANNER_PlaceWoodcutter_DistFromForest * BuildFF.Distance[Loc]
  +    Gain := - GA_PLANNER_PlaceWoodcutter_DistFromForest * BuildFF.Distance[Loc]
              + DistCrit(htWoodcutters, Loc)
              + SnapCrit(htWoodcutters, Loc);
  -    if (Bid > BestBid) then // No need to check for coal tiles everything
  +    if (Gain > BestGain) then // No need to check for coal tiles everything
       begin
         CoalTiles := 0;
         for K := Low(HMA[htWoodcutters].Tiles) to High(HMA[htWoodcutters].Tiles) do
           CoalTiles := CoalTiles + gTerrain.TileIsCoal(Loc.X + HMA[htWoodcutters].Tiles[K].X, Loc.Y + HMA[htWoodcutters].Tiles[K].Y);
  -      Bid := Bid - CoalTiles * COAL_PENALIZATON;
  -      if (Bid > BestBid) then
  -      begin
  -        BestBid := Bid;
  +      Gain := Gain - CoalTiles * COAL_PENALIZATON;
  +      if (Gain > BestGain) then
  +      begin
  +        BestGain := Gain;
           BestLoc := Loc;
         end;
       end;
     end;
   
  -  if (BestBid <> MIN_BID) then
  +  if (BestGain <> MIN_GAIN) then
     begin
       Output := True;
       // Check whether is cutting point (center of forest) inside of house plan and in this case set it 1 point on left from house entrance
  
positive.code:         BestIdx := Idx;
        end;
      end;
    if (Bid < MAX_BID) then
    begin
      fPlannedHouses[aHT].Plans[BestIdx].House.DemolishHouse(fOwner);
      RemovePlan(aHT, BestIdx);
  
negative.code:           if (BuildFF.VisitIdx = BuildFF.Visited[ Locs.Items[I].Y, Locs.Items[I].X ]) then // Prefer mines in walkable area
              Locs.Tag[I] := 10000 + Locs.Tag[I] - BuildFF.Distance[ Locs.Items[I] ]*10;
          Locs.SortByTag();
          BestGain := BEST_GAIN;
          BestIdx := 0; // For compiler
          for I := Locs.Count-1 downto 0 do
          begin
  