anchor.diff:      fDefLinesRequired: Boolean;
       fOwner: TKMHandID;
       fBestEvaluation: Single;
  +    fStartPolygons: TKMWordArray;
       fDefInfo: TDefInfoArray;
       fBestDefLines: TKMDefenceLines;
       fDefPosArr: TKMDefencePosArr;
  
positive.code: begin
    fOwner := aOwners[0];
    fDefLinesRequired := aDefLinesRequired;
    BackwardFlood(); // Find best defence line
    if (fBestDefLines.Count = 0) then
      Exit;
    // Find defence positions of each player
  
negative.code:     {$ENDIF}
  
      function CanBeExpanded(const aIdx: Word): Boolean; override;
      procedure BackwardFlood(aOwners: TKMHandIDArray);
      procedure EvaluateDefence(const aIdx: Word);
      function FindDefencePos(aBaseCnt: Word): Boolean;
    public
  