e-MovingInWL

//+------------------------------------------------------------------+
//|                                                 e-MovingInWL.mq4 |
//|                                           Êèì Èãîðü Â. aka KimIV |
//|                                              http://www.kimiv.ru |
//| Äâèãàåò ñòîï â áåçóáûòîê                                         |
//+------------------------------------------------------------------+
#property copyright "Êèì Èãîðü Â. aka KimIV"
#property link      "http://www.kimiv.ru"

//------- Âíåøíèå ïàðàìåòðû ------------------------------------------
extern int  LevelWLoss  = 1;       // Óðîâåíü áåçóáûòêà
extern int  LevelProfit = 10;      // Óðîâåíü ïðîôèòà
extern bool ShowComment = True;    // Ïîêàçûâàòü êîììåíòàðèè
extern bool SoundAlert  = True;    // Çâóê

//+------------------------------------------------------------------+
//| Custor expert deinitialization function                          |
//+------------------------------------------------------------------+
void deinit() {
  Comment("");
}

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
void start() {
  bool   fm;
  double pBid, pAsk, pp;
  int    nd;
  string comm = "";

  for (int i=0; i<OrdersTotal(); i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      nd = MarketInfo(OrderSymbol(), MODE_DIGITS);
      pp = MarketInfo(OrderSymbol(), MODE_POINT);
      comm = comm+OrderSymbol()+"  Öåíà: "+DoubleToStr(OrderOpenPrice(),nd)+
             "  SL=" + DoubleToStr(OrderStopLoss(),nd);
      if (OrderType()==OP_BUY) {
        comm = comm + "(" + DoubleToStr((OrderStopLoss()-OrderOpenPrice())/pp,0) + ")\n";
        if (OrderStopLoss()-OrderOpenPrice()<LevelWLoss*pp) {
          pBid = MarketInfo(OrderSymbol(), MODE_BID);
          if (pBid-OrderOpenPrice()>LevelProfit*pp) {
            fm=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()+LevelWLoss*pp,OrderTakeProfit(),CLR_NONE);
          }
        }
      }
      if (OrderType()==OP_SELL) {
        comm = comm + "(" + DoubleToStr((OrderOpenPrice()-OrderStopLoss())/pp,0) + ")\n";
        if (OrderStopLoss()==0 || OrderOpenPrice()-OrderStopLoss()<LevelWLoss*pp) {
          pAsk = MarketInfo(OrderSymbol(), MODE_ASK);
          if (OrderOpenPrice()-pAsk>LevelProfit*pp) {
            fm=OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice()-LevelWLoss*pp,OrderTakeProfit(),CLR_NONE);
          }
        }
      }
      if (fm) {
        if (SoundAlert) PlaySound("alert2");
        break;
      }
    }
  }
  if (ShowComment) Comment(comm);
}
//+------------------------------------------------------------------+