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: end;
  
  
  //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;
  
  
  
negative.code:   NewGroup.fOrderLoc := KMPointDir(NewLeader.GetPosition, fOrderLoc.Dir);
  
    //Tell both groups to reposition
    OrderRepeat;
    NewGroup.OrderRepeat(Self);
  
    Result := NewGroup; //Return the new group in case somebody is interested in it
  end;
  