anchor.diff:    COLOR_YELLOW = $00FFFF;
     COLOR_BLUE = $FF0000;
   var
  -  I, K, Idx, Threat: Integer;
  +  I, K, Idx, Threat, AllianceIdx: Integer;
     Col: Cardinal;
     Loc, Pos: TKMPoint;
     GT: TKMGroupType;
  
positive.code:     fFirstLineCnt: Word;
      fPositions: TKMList;
  
      fAttack: TKMArmyAttack;
  
      function GetCount: Integer; inline;
      function GetPosition(aIndex: Integer): TKMDefencePosition; inline;
      function GetGroupsCount(): Word;
    public
      TroopFormations: array [TKMGroupType] of TKMFormation; //Defines how defending troops will be formatted. 0 means leave unchanged.
  
      constructor Create(aOwner: TKMHandID; aAttack: TKMArmyAttack);
      destructor Destroy; override;
      procedure Save(SaveStream: TKMemoryStream);
      procedure Load(LoadStream: TKMemoryStream);
  
negative.code: 
  
  { TKMArmyDefence }
  constructor TKMArmyDefence.Create(aOwner: TKMHandID);
  var
    GT: TKMGroupType;
  begin
  