anchor.diff:    for I := 0 to Count - 1 do
       if not aHungryOnly or (Members[I].Condition <= UNIT_MIN_CONDITION) then
         Members[I].OrderFood;
  -
  -  OrderHalt(False);
   end;
   
   
  
positive.code:   NewGroup.fOrderLoc := KMPointDir(NewLeader.GetPosition, fOrderLoc.Dir);
  
    //Tell both groups to reposition
    OrderHalt(False);
    NewGroup.OrderHalt(False);
  
    Result := NewGroup; //Return the new group in case somebody is interested in it
  end;
  
negative.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);
  