anchor.diff:      procedure ExpandPolygon(aIdx: Word; aCanBeExpanded: Boolean);
       procedure Flood(var aEnemy: TKMAllianceAsset); reintroduce;
     public
  -    function FindClusters(var aClusters: TKMCombatClusters; var aAllianceInfo: TKMAllianceAsset; var aClusterMapping: TKMByteArray; var aQueueArray: TPolygonsQueueArr): Word;
  +    function FindClusters(var aClusters: TKMCombatClusters; var aAllianceInfo: TKMAllianceAsset; var aClusterMapping: TKMWordArray; var aQueueArray: TPolygonsQueueArr): Word;
     end;
   
   
  
positive.code:     fOwner: TKMHandID;
      fOwners: TKMHandIDArray;
      fPolygonsCnt, fCntAllyPoly, fCntEnemyPoly: Word;
      fClusterMapping: TKMByteArray;
      fVectorField: TKMVectorField;
      fFindClusters: TKMFindClusters;
      fClusters: TKMCombatClusters;
  
negative.code: end;
  
  
  function TKMFindClusters.FindClusters(var aClusters: TKMCombatClusters; var aAllianceInfo: TKMAllianceAsset; var aClusterMapping: TKMWordArray; var aQueueArray: TPolygonsQueueArr): Word;
  var
    K,L,Cnt: Integer;
  begin
  