Trend_way_Pending

//+------------------------------------------------------------------+
//|                                            Trend_way_Pending.mq4 |
//|                                                Apostol-Aristotel |
//|                                  http://www.apostol-aristotel.ru |
//+------------------------------------------------------------------+
#property copyright "Apostol-Aristotel"
#property link      "http://www.apostol-aristotel.ru"
extern int TakeProfit=30;
extern int StopLoss=30;
extern int padding=50;
extern int Pending=1;
extern int Magic=678; // Magic òîëüêî äëÿ îòëîæåííûõ îðäåðîâ
int ticketB, ticketS, modify, Sell_Orders, Buy_Orders, Pending_Orders, sl; // Modify-áûë ëè îðäåð ìîäèôèöèðîâàí, 1 - äà, 0 - íåò. ticetB - òèêåò äëÿ îòëåæåííûõ îðäåðîâ íà ïîêóïêó, ticketS - íà ïðîäàæó.
 // sl - óðîâåíü òðåéëèíãà, îïðåäåëÿåòñÿ àâòîì. è = ìèí. ñòîïëîññó
extern double Lots;

//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----
    if(OrdersTotal()==0)
     {
      Sell_Orders=0;
      Buy_Orders=0;
      Pending_Orders=0;
      Lots=0;
      modify=0;
     }
    for (int i=1; i<=OrdersTotal(); i++)       //Öèêë ïî âñåì îðäåðàì,..
     {                                         //îòðàæ¸ííûì â òåðìèíàëå
      if(OrderSelect(i-1,SELECT_BY_POS)==true) // âûáèðàåì îðäåð
        {
         sl=MarketInfo(Symbol(),MODE_STOPLEVEL);   // Îïðåäåëÿåì ìèíèìàëüíûé ñòîï ëîññ                                     
         if(OrderType()==OP_BUY)
          {
           if(modify==0)
            {
             OrderModify(OrderTicket(),0,OrderOpenPrice()-Point*StopLoss,OrderOpenPrice()+Point*TakeProfit,0,Blue); // Ìîäèôèöèðóåì (èçìåíÿåì òï è ñë) îðäåð íà ïîêóïêó îòíîñèòåëüíî öåíû îòêðûòèÿ
             modify++;
             Buy_Orders++;
             Lots=OrderLots();
            }
           if(Bid>sl*Point+OrderOpenPrice())                              // Åñëè äîñòèãíóò óðîâåíü áåçóáûòêà
            OrderModify(OrderTicket(),0,Bid-Point*sl,OrderTakeProfit(),0,Blue); // Ìîäèôèöèðóåì îðäåð
           if(OrderTakeProfit()==Bid || OrderStopLoss()>OrderOpenPrice())                    // Åñëè ó îðäåðà òï èëè ñðàáîòàë òðåéëèíã
            {
             if(OP_SELLSTOP==1)                                        // Åñëè åñòü îòëîæåííèêè íà ïðîäàæó
              OrderDelete(ticketS);                                    // Óäàëÿåì åãî
            }
          }
         if(OrderType()==OP_SELL)
          {
           if(modify==0)
            {
             OrderModify(OrderTicket(),0,OrderOpenPrice()+Point*StopLoss,OrderOpenPrice()-Point*TakeProfit,0,Blue); // Ìîäèôèöèðóåì (èçìåíÿåì òï è ñë) îðäåð íà ïðîäàæó îòíîñèòåëüíî öåíû îòêðûòèÿ
             modify++;
             Sell_Orders++;
             Lots=OrderLots();
            }
           if(Ask<OrderOpenPrice()-sl*Point)                               // Åñëè äîñòèãíóò óðîâåíü áåçóáûòêà
             OrderModify(OrderTicket(),0,Ask+Point*sl,OrderTakeProfit(),0,Blue); // Ìîäèôèöèðóåì îðäåð
           if(OrderTakeProfit()==Ask || OrderStopLoss()<OrderOpenPrice())                    // Åñëè òï ó îðäåðà íà ïðîäàæó èëè ñðàáîòàë òðåéëèíã
            {
             if(OP_BUYSTOP==1)                                             // Åñëè åñòü îòëîæåííèêè íà ïîêóïêó
              OrderDelete(ticketB);                                      // Óäàëÿåì åãî
            }
          }
         if((OrderType()==OP_BUYSTOP || OrderType()==OP_SELLSTOP) && OrderMagicNumber()==Magic && Pending_Orders<2  && Pending==1) // Åñëè îðäåð îòëîæåííûâé è ñåé÷àñ òîëüêî 1 îðäåð îòëîæåí
           Pending_Orders++;
        }
     } 

     if(Pending_Orders==0 && Pending==1) // Åñëè îòëîæåííûõ îðäåðîâ íåò è îòëîæåííèêè âêëþ÷åíû
      {
       if(Sell_Orders==1) // Åñëè åñòü îðäåð íà ïðîäàæó
        {
         ticketB++;
         OrderSend(Symbol(),OP_BUYSTOP,2*Lots,Ask+padding*Point,3,Bid-2*StopLoss*Point+padding*Point,Bid+0.5*TakeProfit*Point+padding*Point,"My order #"+ticketB,Magic,0,Green); //Ñòàâèì îòëîæåííûé íà ïîêóïêó
        }
       if(Buy_Orders==1)  // Åñëè åñòü îðäåð íà ïîêóïêó
        {
         ticketS++;
         OrderSend(Symbol(),OP_SELLSTOP,2*Lots,Bid-padding*Point,3,Ask+2*StopLoss*Point-padding*Point,Ask-0.5*TakeProfit*Point-padding*Point,"My order #"+ticketS,Magic,0,Green); //Ñòàâèì îòëîæåííûé íà ïðîäàæó
        }
      }
      
      if(OrderType()==OP_BUYSTOP && Pending==1) // Åñëè îòëîæåííûé îðäåð íà ïîêóïêó
       {
        if(OrderSelect(ticketB, SELECT_BY_TICKET)==true)  // Åñëè åãî óäàëîñü âûáðàòü
         {
          if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic && Bid-Point*sl>OrderOpenPrice()) // Åñëè ñèìâîë ãðàôèêà = ñèìâîëó ñäåëêè, åñëè ìàãè÷åñêèé íîìåð ñîâïàäàåò, è äîñòèãíóò óð. áåçóáûòêà
           if(Bid-Point*sl>OrderStopLoss()) OrderModify(OrderTicket(),0,Bid-Point*sl,OrderTakeProfit(),0,Blue); // Åñëè óðîâåíü íàñòîÿùåãî ñòîïà áîëüøå óñòàíîâëåííîãî, òî äâèãàåì ñòîï
         }
       }
       if(OrderType()==OP_SELLSTOP  && Pending==1)// Åñëè îòëîæåííûé îðäåð íà ïðîäàæó
       {
        if(OrderSelect(ticketS, SELECT_BY_TICKET)==true)  // Åñëè åãî óäàëîñü âûáðàòü
         {
          if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic && Ask+Point*sl<OrderOpenPrice()) // Åñëè ñèìâîë ãðàôèêà = ñèìâîëó ñäåëêè, åñëè ìàãè÷åñêèé íîìåð ñîâïàäàåò, è äîñòèãíóò óð. áåçóáûòêà
           if(Bid-Point*sl>OrderStopLoss()) OrderModify(OrderTicket(),0,Ask+Point*sl,OrderTakeProfit(),0,Blue); // Åñëè óðîâåíü íàñòîÿùåãî ñòîïà áîëüøå óñòàíîâëåííîãî, òî äâèãàåì ñòîï
         }
       }
//----
   return(0);
  }
//+------------------------------------------------------------------+