//+------------------------------------------------------------------+
//|                                                       Revers.mq4 |
//|                      Copyright © 2009, MetaQuotes Software Corp. |
//|                                         http://www.carbonclub.ru |
//+------------------------------------------------------------------+
 
 
extern double TakeProfit = 5;       // ТЭЙКПРОФИТ
extern double Lots = 0.02;          // Сумма ставки
extern double StopLoss = 70;        // СТОПЛОСС
extern double OrderLimitPrice = 5;  // Программный СТОПЛОСС
extern int    StartHour = 23;       // Время начала работы 
extern int    EndHour = 5;          // Окончание работы  
extern int    MM = 2;               // Множитель ставки
extern int    MagicNumber = 111;    // Magic number
extern int    MaxLot = 45;          // Максимальная сумма лота для отбивки
 
int count=0;                        // Глобальная перемен.
bool BoSpos=0;                      // Флаг на покупку длиной или короткой позиции.
int TicketOrder;                    // Номер текущего убыточного ордера
string Symb;                        // Наименование котировки. USDEUR           
int Lpos,LposR,Count2;              // Последняя убыточная ставка. На SELL or BUY
int
 
   z=0,                             // счетчик циклов  
   
   Clost,
   total,                           // Общее кол-во ордеров
   POrder,                          // Номер текушего открытого ордера
   TOrder,                          // Номер  отложенного ордера
   Total,                           // Количество ордеров в окне 
   Tip=-1,                          // Тип выбран. ордера (B=0,S=1)
   Ticket,                          // Номер ордера
   ticket;
   double
 
 //  Lots,                          // Ставка
   LPCOrder,                        // Объём закрытия последнего убыточного ордера
   MA_1_t,                          // Значен. МА_1 текущее
   MA_2_t,                          // Значен. МА_2 текущее 
   Lot,                             // Колич. лотов в выбран.ордере
   Lts,                             // Колич. лотов в открыв.ордере
   Min_Lot,                         // Минимальное количество лотов
   Step,                            // Шаг изменения размера лота
   Free,                            // Текущие свободные средства
   One_Lot,                         // Стоимость одного лота
   PS_Lot,                          // Последняя стоимость пройгрышного лота
   Price,                           // Цена выбранного ордера
   SL,                              // SL выбранного ордера 
   TP;                              // TP выбранного ордера
   bool
   Work,
   Ans=false,                       // Ответ сервера после закрытия
   Cls_B=false,                     // Критерий для закрытия  Buy
   Cls_S=false,                     // Критерий для закрытия  Sell
   Opn_B=false,                     // Критерий для открытия  Buy
   Opn_S=false;                     // Критерий для открытия  Sell
   
 
 
 
 
//--------------------------------------------------------------------
int init()                                      // Спец. ф-ия init()
  {
   Symb=Symbol();
                                 // Название фин.инстр.
   return;    
  }
//--------------------------------------------------------------------
 
// -------------------------------------------------
// expert deinitialization function                                 
// -------------------------------------------------
int deinit()
  {
   return(0);
  }
//--------------------------------------------------------------------  
 
 
 
// -------------------------------------------------
// Меняет позицию на противоположную
// -------------------------------------------------
int LastPosChg(int Lpos)
  {
   if (Lpos == OP_BUY)
     {Lpos=OP_SELL;
     }
   else
     {Lpos=OP_BUY;
     }
   return(Lpos);  
  }
////////////////////////////////////////////////////
 
 
//+------------------------------------------------------------------+
//| не превысили ли мы временной интервал                            |
//+------------------------------------------------------------------+
bool CheckTimeLimit(int b, int e)
{
   bool isEnd=false;
   
      if (b<e)
     if (TimeHour(TimeCurrent())<b || TimeHour(TimeCurrent())>=e)
       {
        isEnd=true;
       }
     if (OrdersTotal()>0 || Work==true)
       {
        
        isEnd=false;
       }
     if (OrdersTotal()==0)
       {
           if (OrderSelect(TicketOrder, SELECT_BY_POS, MODE_HISTORY)==true)    // Берём 1-ый ордер 
             {
              if (OrderProfit()>0)                        // Проверка на открытые ордера 
                {
                 isEnd=true;
                }
              else isEnd=false;   
              }  
       }
     if (b>e)
       {
        isEnd=true;
         if (TimeHour(TimeCurrent())>=b)
           {isEnd=false;}
         if (TimeHour(TimeCurrent())<e)
           {isEnd=false;}  
       }
     
   return (isEnd);   
}  
////////////////////////////////////////////////////////
 
 
 
int start()                                     // Спец. ф-ия start()
  {
   //-------------------------------------
   // verify state
   //-------------------------------------
   if(!IsTradeAllowed()) return(0);
   if(!IsConnected()) return(0);
   if(IsStopped()) return(0);
   if(IsTradeContextBusy()) 
     {
      Print("Trade context is busy!");
      return(0);
     } 
 
   if (CheckTimeLimit(StartHour, EndHour)==true )
     {
       Comment("Еще пока не время работы эксперта" ); 
       z = 0;
       return;
     }
   else
     {
       Comment("Эксперт работает"+ "\n" + 
               "Work = ", Work);
     }
 
//  ------  Определение движения курса -----
double open  = Open[2];                // Узнаём цену открытия 3-го бара.
double close = Close[1];               // Узанём цену закрытия 2-го бара.
if(close>=open) BoSpos=0;
           else BoSpos=1; 
 
// Определяем и присваиваем значение переменной. ордер на BUY or SELL
if (BoSpos == 0) Lpos = OP_BUY;        // Переменой присваиваем значение на BUY
if (BoSpos == 1) Lpos = OP_SELL;       // Переменой присваиваем значение на SELL
  
 
/////////////////////////////////// N  |Анализ ордеров|  /////////////////////////////////////////////
   total=OrdersTotal();
   Print("Общее количество открытых ордеров в терминале = ",total);
   //--------------------------------------------------------------- 4 --
     
    if (total!=0) 
     
     { Total=0;
      int SameOrder=0;                                  // Количество ордеров
      for(int i=0; i<=OrdersTotal(); i++)          // Цикл перебора ордер
      {
       // Print("Начался ",i,"-ый цикл подсчёта ордеров ");
      if (OrderSelect(i,SELECT_BY_POS)==true)   // Если есть следующий
        { 
        // Print("Ордер N ",i," Есть в наличии ");                                    
         if (Symb==OrderSymbol())
           {
           // Print("Ордер N ",i," Совпадение символа пары");
            if (MagicNumber==OrderMagicNumber()) 
              {
              // Print("Ордер N ",i," Совпадение Magic Number");
               SameOrder=SameOrder+1;
              // Print("Счётчик итого : +",SameOrder);
              }
            else 
            {
            // Print("Не Наш ордер.");
            }
           }
         else
         {
         // Print("Совпадений нет. Продолжаем поиск... ");
         }
        }
        else
        {
       // Print("Ордеров больше нет");  
        }
      }
     if (SameOrder>=1) {total=1; Print("Есть совпадения, больше советнику нельзя открывать ордера по данной паре, total =",total); }
     else {total=0; Print("Счётчик пуст, совпадений нет total =",total);} 
     
     }
//--------------------------------------------------------------- 5 -- 
 
 
  
if(total<1)                            // Если ли открытые ордера?
  {                                                         
   if(AccountFreeMargin()<(1000*Lots)) // Есть ли деньги на счету
     {
      Print("We have no money. Free Margin = ", AccountFreeMargin());
      return(0);  
     }
    
 
        
// Проверка на (BUY) позицию
   if(BoSpos == 0)
     { 
      if(Work == true) 
        {
         PS_Lot=Price*MM; 
         Lpos=LastPosChg(LposR);
         if (PS_Lot>=MaxLot) {Work=false; return(0);}
         TicketOrder=OrderSend(Symbol(),Lpos,PS_Lot,Ask,3,Bid-StopLoss*Point,Ask+TakeProfit*Point," =1= Order Profit BUY ",MagicNumber,0,Green);   
         Print("PS_Lot for BUY order  = ", PS_Lot);
         Print("COUNT = ",Clost);
         if (TicketOrder>0){Work=false;}
        }
      else
        {
         Clost=0;
         TicketOrder=OrderSend(Symbol(),Lpos,Lots,Ask,3,Bid-StopLoss*Point,Ask+TakeProfit*Point,"Standart Order BUY",MagicNumber,0,Green);
         Work=false;
        }
      }
      
// Проверка на  (SELL) позицию
      if (BoSpos == 1)
        { 
         if (Work == true)
           {
            PS_Lot=Price*MM; 
            if (PS_Lot>=MaxLot) {Work=false; return(0);}
            TicketOrder=OrderSend(Symbol(),Lpos,PS_Lot,Bid,3,Ask+StopLoss*Point,Bid-TakeProfit*Point,"=1= Order Profit SELL",MagicNumber,0,Red);
            Print("PS_Lot for SELL order  = ", PS_Lot);
            Print("COUNT = ",Clost);
            if (TicketOrder>0){Work=false;}
           }       
         else
           {
            Clost=0;
            TicketOrder=OrderSend(Symbol(),Lpos,Lots,Bid,3,Ask+StopLoss*Point,Bid-TakeProfit*Point,"Standart Order SELL",MagicNumber,0,Red);
            Work=false;
           }
        }
     }
       
    
      
        
   // it is important to enter the market correctly, 
   // but it is more important to exit it correctly...   
   
   for(count=0;count<total;count++)                       // Цикл. Перебираем ордера
      {OrderSelect(count, SELECT_BY_POS, MODE_TRADES);    // Берём 1-ый ордер 
      if(OrderType()<=OP_SELL &&                          // Проверка на открытые ордера 
         OrderSymbol()==Symb && MagicNumber==OrderMagicNumber())                        // Проверка совпадния символа пары
        {
         if(OrderType()==OP_BUY)                         // Проверка на  длинную позицию
           {
            TP=OrderProfit();
            // Проверка условия на закрытие ордера
            double AskNow=Ask;
          
            if ( AskNow<(OrderOpenPrice()-OrderLimitPrice*Point )  || ( OrderOpenPrice()-OrderLimitPrice*Point)==AskNow )  
              {
               Count2=OrderClose(OrderTicket(),OrderLots(),Ask,3,Violet);       // Закрываем ордер
               Print("Потери составляют : ",TP); // Если профит меньше 0. Сообщение.
               Price=OrderLots();                // Берём значение текущей цены
               LposR=OrderType();                // Значение последней пройгрышной позиции BUY or SELL
               Work=true;                        // Раз профит меньше 0 тогда заводим ставку в цикл. Пока не сыграет профит.
               TicketOrder=OrderTicket();        // Запоминаем порядковый номер ордера 
               Print("Ticket убыточного ордера в цикле закрытия ордеров : ",TicketOrder);
               if(Count2>0)
                 {
                  if(OrderSelect(count,SELECT_BY_POS,MODE_TRADES))
                    { 
                     Print("BUY order closed : ",OrderClosePrice());
                    }
                 }
               Clost++;
               }    
               
                                                            
            }  
            // check for trailing stop
         /*    if(TrailingStop>0)  
              {                 
               if(Bid-OrderOpenPrice()>Point*TrailingStop)
                 {
                  if(OrderStopLoss()<Bid-Point*TrailingStop)
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Bid-Point*TrailingStop,OrderTakeProfit(),0,Green);
                     return(0);
                    }
                 }
              }
         */ 
           
         else                                                                // go to short position
            {// Проверка условия на закрытие ордера
             double BidNow=Bid;
             if ( BidNow==(OrderOpenPrice()+OrderLimitPrice*Point) || BidNow>(OrderOpenPrice()+OrderLimitPrice*Point) )                    // should it be closed?*/
               {
                Count2=OrderClose(OrderTicket(),OrderLots(),Bid,3,Violet); // close position
                Price=OrderLots();                                    // Берём значение текущей цены
                LposR=OrderType();                                    // Значение последней пройгрышной позиции BUY or SELL
                Work=true;                                            // Раз профит меньше 0 тогда заводим ставку в цикл. Пока не сыграет профит.
                TicketOrder=OrderTicket();                            // Запоминаем порядковый номер ордера 
                Print("Ticket убыточного ордера в цикле закрытия ордеров : ",TicketOrder);
                if(Count2>0)
                  {
                   if(OrderSelect(count,SELECT_BY_POS,MODE_TRADES))
                     {
                     Print("SELL order closed : ",OrderClosePrice());
                     }                 
                  }
                 
                Clost++;     
                }
            // check for trailing stop
        /*    if(TrailingStop>0)  
              {                 
               if((OrderOpenPrice()-Ask)>(Point*TrailingStop))
                 {
                  if((OrderStopLoss()>(Ask+Point*TrailingStop)) || (OrderStopLoss()==0))
                    {
                     OrderModify(OrderTicket(),OrderOpenPrice(),Ask+Point*TrailingStop,OrderTakeProfit(),0,Red);
                     return(0);
                    }
                 }
         */  }
           }    
        }      
    
return(0);
}
// the end.