anchor.diff:  
     SetLength(aBestLocs, BEST_PLANS_CNT);
     for I := 0 to BEST_PLANS_CNT - 1 do
  -    BestBidArr[I] := INIT_BEST_BID;
  +    BestGainArr[I] := INIT_BEST_GAIN;
   
     HouseCnt := 0;
     for HT in HOUSE_DEPENDENCE[aHT] do
  
positive.code:   // Coal mine planner
    function FindPlaceForCoalMine(): Boolean;
    const
      INIT_BID = -10000;
    var
      Output: Boolean;
      I, BestIdx: Integer;
      Bid, BestBid: Single;
      Locs: TKMPointTagList;
    begin
      Output := False;
  
negative.code:         BestIdx := Idx;
        end;
      end;
    if (BestBid < MAX_BID) then
    begin
      fPlannedHouses[aHT].Plans[BestIdx].House.DemolishHouse(fOwner);
      RemovePlan(aHT, BestIdx);
  