anchor.diff:      procedure SetTargetHouse(aHouse: TKMHouse);
       procedure SetTargetUnit(aUnit: TKMUnit);
     public
  -    constructor Create(aGroup: TKMUnitGroup);
  +    constructor Create(aGroup: TKMUnitGroup; aPlayer: TKMHandIndex);
       constructor Load(LoadStream: TKMemoryStream);
       destructor Destroy; override;
       procedure Save(SaveStream: TKMemoryStream);
  
positive.code:     property IsReady: Boolean read fIsReady;
      property FinalPosition: TKMPointDir read fFinalPosition write fFinalPosition;
      property Position: TKMPoint read GetGroupPosition;
      property TargetHouse: TKMHouse read fTargetHouse write SetTargetHouse;
      property TargetUnit: TKMUnit read fTargetUnit write SetTargetUnit;
      property PointPath: TKMPointArray read fDEBUGPointPath write fDEBUGPointPath;
  
  
  
      procedure UpdateState(aTick: Cardinal);
    end;
  
    TAICompany = class
    private
      fOwner: TKMHandIndex;
      fPosition: TKMPoint;
      fTargetHouse: TKMHouse;
      fTargetUnit: TKMUnit;
      fSquads: TKMSquadArray;
  
negative.code: begin
    inherited Create;
    LoadStream.ReadAssert('Squad');
    LoadStream.Read(fOwner);
    LoadStream.Read(fIsReady);
    LoadStream.Read(fFinalPosition);
    LoadStream.Read(fTimeLimit, SizeOf(fTimeLimit));
  