anchor.diff:        G := fIDCache.GetGroup(aGroupID);
         U := fIDCache.GetUnit(aUnitID);
         if (G <> nil)
  +      and G.CanTakeOrders
         and (U <> nil)
         and (U is TKMUnitWarrior)
         and (G.HasMember(TKMUnitWarrior(U))) then
  
positive.code:       and (TKMDirection(aDirection + 1) in [dirN..dirNW]) then
      begin
        G := fIDCache.GetGroup(aGroupID);
        if (G <> nil) and G.CanWalkTo(KMPoint(X,Y), 0) then
          G.OrderWalk(KMPoint(X,Y), True, wtokScript, TKMDirection(aDirection+1));
      end
      else
  
negative.code:     if (aGroupID > 0) then
      begin
        G := fIDCache.GetGroup(aGroupID);
        if (G <> nil) and G.CanTakeOrders then
        begin
          G2 := G.OrderSplit;
          if G2 <> nil then
  