anchor.diff:  
       procedure MarkAsExhausted(aHT: TKMHouseType; aLoc: TKMPoint);
   
  +    procedure RemoveHouseType(aHT: TKMHouseType);
       procedure RemovePlan(aHT: TKMHouseType; aLoc: TKMPoint); overload;
       procedure RemovePlan(aHT: TKMHouseType; aIdx: Integer); overload;
   
  
positive.code: end;
  
  
  procedure TKMCityPlanner.RemovePlan(aHT: TKMHouseType; aLoc: TKMPoint);
  var
    I: Integer;
  
negative.code:   GA_PLANNER_FindPlaceForHouse_EvalArea               : Single = 128.3957005;
    GA_PLANNER_PlaceWoodcutter_DistFromForest           : Single = 66.28614068;
  
    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;
  