anchor.diff:  
     //Tell both groups to reposition
     OrderRepeat;
  -  NewGroup.OrderRepeat(Self);
  +  NewGroup.CopyOrderFrom(Self);
   
     Result := NewGroup; //Return the new group in case somebody is interested in it
   end;
  
positive.code:     procedure OrderHalt(aClearOffenders: Boolean);
      procedure OrderLinkTo(aTargetGroup: TKMUnitGroup; aClearOffenders: Boolean);
      procedure OrderNone;
      procedure OrderRepeat; overload;
      procedure OrderRepeat(aGroup: TKMUnitGroup); overload;
      function OrderSplit(aClearOffenders: Boolean; aSplitSingle: Boolean = False): TKMUnitGroup;
      function OrderSplitUnit(aUnit: TKMUnit; aClearOffenders: Boolean): TKMUnitGroup;
      procedure OrderSplitLinkTo(aGroup: TKMUnitGroup; aCount: Word; aClearOffenders: Boolean);
  
negative.code: //Repeat last order e.g. if new members have joined
  procedure TKMUnitGroup.OrderRepeat;
  begin
    case fOrder of
      goNone:         OrderHalt(False);
      goWalkTo:       OrderWalk(fOrderLoc.Loc, False);
      goAttackHouse:  if OrderTargetHouse <> nil then OrderAttackHouse(OrderTargetHouse, False);
      goAttackUnit:   if OrderTargetUnit <> nil then OrderAttackUnit(OrderTargetUnit, False);
      goStorm:        ;
    end;
  end;
  
  
  