anchor.diff:    // Get closest mine
     function FindPlaceForMine(aMine: TKMHouseType): Boolean;
     const
  -    BEST_BID = -10000;
  +    BEST_GAIN = -10000;
     var
       Output, Check: Boolean;
       I, K, BestIdx: Integer;
  -    Bid, BestBid: Single;
  +    Gain, BestGain: Single;
       Loc: TKMPoint;
       Locs: TKMPointTagList;
       BuildFF: TKMBuildFF;
  
positive.code: 
      procedure AddPlan(aHT: TKMHouseType; aLoc: TKMPoint); overload;
      procedure AddPlan(aHT: TKMHouseType; aLoc: TKMPoint; aSpecPoint: TKMPoint; aChopOnly: Boolean = False); overload;
      function GetPlan(aHT: TKMHouseType; out aLoc: TKMPoint; out aIdx: Integer): Boolean;
  
      function ObstaclesInHousePlan(aHT: TKMHouseType; aLoc: TKMPoint): Single;
      function FieldCrit(aHT: TKMHouseType; aLoc: TKMPoint): Single;
  
negative.code: 
    SetLength(aBestLocs, BEST_PLANS_CNT);
    for I := 0 to BEST_PLANS_CNT - 1 do
      BestGainArr[I] := INIT_BEST_GAIN;
  
    HouseCnt := 0;
    for HT in HOUSE_DEPENDENCE[aHT] do
  