anchor.diff:    private
     protected
       fClusters: TKMCombatClusters;
  -    fClusterMapping: TKMByteArray;
  +    fClusterMapping: TKMWordArray;
   
       procedure InitQueue(var aEnemy: TKMAllianceAsset); reintroduce;
       function CanBeExpanded(const aIdx: Word): Boolean; override;
  
positive.code:     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;
    end;
  
  
  
negative.code: 
      property Clusters: TKMCombatClusters read fClusters;
      property QueueArray: TPolygonsQueueArr read fQueueArray;
      property ClusterMapping: TKMWordArray read fClusterMapping;
  
      function DetectEnemyPresence(var aOwners: TKMHandIDArray): Boolean;
      procedure DivideForces(aCS: TKMCombatStatus; var aCSA: TKMCombatStatusArray);
  