anchor.diff:    if not CanTakeOrders then Exit;
     if aClearOffenders and CanTakeOrders then ClearOffenders;
   
  -  fOrder := goStorm;
  +  SetGroupOrder(goStorm);
     fOrderLoc := KMPointDir(0, 0, dirNA);
     ClearOrderTarget;
   
  
positive.code:                     TypeToString(fOrderLoc), aSeparator,
                      TargetUnitStr, aSeparator,
                      TargetGroupStr, aSeparator,
                      TargetHouseStr]);
  end;
  
  
  
negative.code:                         end
                          else
                            //Guide Idle and pushed units back to their places
                            if not PushbackLimitReached
                              and (Members[I].IsIdle
                                   or ((Members[I].Action is TKMUnitActionWalkTo) and TKMUnitActionWalkTo(Members[I].Action).WasPushed)) then
                            begin
                              P := GetMemberLoc(I);
                              Members[I].OrderWalk(P.Loc, P.Exact);
                              fMembersPushbackCommandsCnt := Min(fMembersPushbackCommandsCnt + 1, High(Word));
                            end;
                        end;
                      end;
  