anchor.diff:  
       function  GetGroupPointer: TKMUnitGroup;
       procedure ReleaseGroupPointer;
  -    procedure AddMember(aWarrior: TKMUnitWarrior; aIndex: Integer = -1);
  +    procedure AddMember(aWarrior: TKMUnitWarrior; aIndex: Integer = -1; aOnlyWarrior: Boolean = True);
       function  MemberByUID(aUID: Integer): TKMUnitWarrior;
       function  HitTest(X,Y: Integer): Boolean;
       procedure SelectFlagBearer;
  
positive.code: var
    I: Integer;
  begin
    fOrder := goNone;
    //fOrderLoc remains old
    ClearOrderTarget;
  
  
negative.code:   if IsPositioned(aLoc, NewDir) then
      Exit; //No need to actually walk, all members are at the correct location and direction
  
    SetGroupOrder(goWalkTo);
    HungarianReorderMembers;
  
    for I := 0 to Count - 1 do
  