anchor.diff:      Locs: TKMPointTagList;
     begin
       Output := False;
  +    if (fPerfIdx >= 255) then
  +      ClearPerfArr();
  +    fPerfIdx := fPerfIdx + 1;
  +
       Locs := gAIFields.Eye.GetStoneLocs();
       try
         // Calculate criterium = ownership + actual Tag2 (= used by other miners) + owner criterium
  
positive.code:   Count: Word;
    CityCenter: TKMPoint;
    BestBidArr: array[0..BEST_PLANS_CNT-1] of Double;
  
    procedure ClearPerfArr();
    var
      X,Y: Integer;
    begin
      fPerfIdx := 0;
      for Y := 0 to Length(fPerfArr) - 1 do
        for X := 0 to Length(fPerfArr[Y]) - 1 do
          fPerfArr[Y,X] := 0;
    end;
  
    function EvalFreeEntrance(aLoc: TKMPoint): Single;
    const
  
negative.code: 
      fPerfIdx: Byte;
      fPerfArr: TKMByte2Array;
      procedure ClearPerfArr();
  
      procedure AddPlan(aHT: TKMHouseType; aLoc: TKMPoint); overload;
      procedure AddPlan(aHT: TKMHouseType; aLoc: TKMPoint; aSpecPoint: TKMPoint; aChopOnly: Boolean = False); overload;
  