anchor.diff:  interface
   uses
     Classes, KromUtils, Math, SysUtils,
  -  KM_CommonClasses, KM_Defaults, KM_Points,
  +  KM_CommonClasses, KM_CommonTypes, KM_Defaults, KM_Points,
     KM_Houses, KM_Units, KM_Units_Warrior,
     KM_UnitGroups, KM_AISetup,
     KM_HandStats, KM_ArmyAttack, KM_ArmyDefence,
  
positive.code: 
  
  procedure TKMArmyManagement.CheckAttack();
    // Order multiple companies
    procedure OrderAttack(aTargetPoint: TKMPoint; aAvailableGroups: TKMUnitGroupArray);
    const
      MAX_GROUPS_IN_COMPANY = 9;
    var
  
negative.code:     procedure CheckNewThreat(aHouse: TKMHouse; aAttacker: TKMUnitWarrior); overload;
      procedure CheckNewThreat(aUnit: TKMUnit; aAttacker: TKMUnit); overload;
  
      procedure Paint();
    end;
  
  