anchor.diff:    GA_PLANNER_FindPlaceForHouse_EvalArea               : Single = 128.3957005;
     GA_PLANNER_PlaceWoodcutter_DistFromForest           : Single = 66.28614068;
   
  -  GA_PLANNER_FindPlaceForWoodcutter_TreeCnt           : Single = 91.24905765;
  -  GA_PLANNER_FindPlaceForWoodcutter_PolyRoute         : Single = 7.225309313;
  -  GA_PLANNER_FindPlaceForWoodcutter_EvalArea          : Single = 15.88302255;
  -  GA_PLANNER_FindPlaceForWoodcutter_ExistForest       : Single = 112.1442005;
  -  GA_PLANNER_FindPlaceForWoodcutter_DistCrit          : Single = 46.19561732;
  -  GA_PLANNER_FindPlaceForWoodcutter_Radius            : Single = 4.059596062;
  -  GA_PLANNER_FindPlaceForWoodcutter_AddAB             : Single = 76.02567672;
  -
  -
  -  GA_PATHFINDING_BasePrice    : Word = 0;
  +  GA_PLANNER_FindPlaceForWoodcutter_TreeCnt           : Single = 108.1650317;
  +  GA_PLANNER_FindPlaceForWoodcutter_PolyRoute         : Single = 23.14184606;
  +  GA_PLANNER_FindPlaceForWoodcutter_EvalArea          : Single = 22.13742584;
  +  GA_PLANNER_FindPlaceForWoodcutter_ExistForest       : Single = 104.5395549;
  +  GA_PLANNER_FindPlaceForWoodcutter_DistCrit          : Single = 13.23579103;
  +  GA_PLANNER_FindPlaceForWoodcutter_Radius            : Single = 4.190876186;
  +  GA_PLANNER_FindPlaceForWoodcutter_AddAB             : Single = 113.4269953;
  +
  +
  +  GA_PATHFINDING_BasePrice    : Word = 2;
     GA_PATHFINDING_HouseOutside : Word = 1;
     GA_PATHFINDING_Field        : Word = 5;
     GA_PATHFINDING_noBuildArea  : Word = 1;
  
positive.code:           for I := 0 to BuildFF.Locs.Count - 1 do
            begin
              Loc := BuildFF.Locs.Items[I];
              Bid := 10000
                     - BuildFF.Distance[Loc] * 100 // Snap crit is agresive
                     + SnapCrit(aHT, Loc);
              if (Bid > BestBid) then
              begin
  
negative.code: 
      procedure MarkAsExhausted(aHT: TKMHouseType; aLoc: TKMPoint);
  
      procedure RemoveHouseType(aHT: TKMHouseType);
      procedure RemovePlan(aHT: TKMHouseType; aLoc: TKMPoint); overload;
      procedure RemovePlan(aHT: TKMHouseType; aIdx: Integer); overload;
  
  