//+------------------------------------------------------------------------+
//+ Cтратегия ориентирована на вливание в хороший движняк.                 +
//+ Открываем каждые несколько секунд отложенные стоп-ордера в обе стороны +
//+ с учётом пробоя заданного уровня в течение отведённого времени.        +
//+ Самый старый ордер закрывается, вместо него открывается новый...       +
//+ Если ордер сработал остальные закрываются.                             +
//+------------------------------------------------------------------------+
#define MAGIC  20101012

extern double Lots               = 0.01;
extern bool   UseRisk            = true;
extern double MaximumRisk        = 0.1;
extern double DecreaseFactor     = 3;
extern double Proboy             = 300;
extern double StopLoss           = 300; 
extern double TakeProfit         = 300; 
extern double TrailingStop       = 100;
extern int    OrdersTime         = 20;  // общий промежуток времени выставления ряда стоп-ордеров
extern int    SleepTime          = 5;   // через сколько секунд добавлять новый ордер
extern int    StartHour          = 10;  // время (час) начала внутридневной торговли
extern int    EndHour            = 22;  // время (час) окончания внутридневной торговли

datetime t;
bool flag=false;
int arr[300,2];
int order = 0;
int MaxOrders = 0;

void init()
{
  MaxOrders = MathRound(OrdersTime / SleepTime);
  Print("MaxOrders = ",MaxOrders);
  for (int i=0; i<300; i++)
  {
    arr[i,0]=0;
    arr[i,1]=0;
  }
}
//+------------------------------------------------------------------+
//| считаем количество отложенных стоп ордеров                       |
//+------------------------------------------------------------------+
int CalculateCurrentOrders1(string symbol)
{
   int buys=0,sells=0;
//----
   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC)
        {
         if(OrderType()==OP_BUYSTOP)  buys++;
         if(OrderType()==OP_SELLSTOP) sells++;
        }
     }
//---- return orders volume
   return(buys+sells);   
}

//+------------------------------------------------------------------+
//| считаем количество открытых ордеров                              |
//+------------------------------------------------------------------+
int CalculateCurrentOrders2(string symbol)
{
   int buys=0,sells=0;
//----
   for(int i=0;i<OrdersTotal();i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
      if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC)
        {
         if(OrderType()==OP_BUY)  buys++;
         if(OrderType()==OP_SELL) sells++;
        }
     }
//---- return orders volume
   if(buys>0) return(buys);
   else       return(-sells);
}

//+------------------------------------------------------------------+
//| считаем размер лота                                              |
//+------------------------------------------------------------------+
double LotsOptimized()
{
   double lot=Lots;
   int    orders=HistoryTotal();     // history orders total
   int    losses=0;                  // number of losses orders without a break

   if (!UseRisk)
     return(Lots);

//---- select lot size
   lot=NormalizeDouble(AccountFreeMargin()*MaximumRisk/1000.0,2);
//---- calcuulate number of losses orders without a break
   if(DecreaseFactor>0)
   {
     for(int i=orders-1;i>=0;i--)
     {
       if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)==false) { Print("Error in history!"); break; }
       if(OrderSymbol()!=Symbol() || OrderType()>OP_SELL) continue;
       //----
       if(OrderProfit()>0) break;
       if(OrderProfit()<0) losses++;
     }
     if(losses>1) lot=NormalizeDouble(lot-lot*losses/DecreaseFactor,2);
   }
//---- return lot size
   if(lot<0.01) lot=0.01;
   return(lot);
}

//+------------------------------------------------------------------+
//| выставляем отложенные стоп-ордера                                |
//+------------------------------------------------------------------+
void StartOpen()
{
  if((TimeLocal()-t)<SleepTime) return(0);
  
  order++;
  arr[order,0]=OrderSend(Symbol(),OP_SELLSTOP,LotsOptimized(),Bid-Proboy*Point,10,Ask-Proboy*Point+StopLoss*Point,Bid-Proboy*Point-TakeProfit*Point,"",MAGIC,0,Red);
  arr[order,1]=OrderSend(Symbol(),OP_BUYSTOP,LotsOptimized(),Ask+Proboy*Point,10,Bid+Proboy*Point-StopLoss*Point,Ask+Proboy*Point+TakeProfit*Point,"",MAGIC,0,Blue); 
  
  flag = false;
  t = TimeLocal();
  return(0);
}
     
void WorkOpen()
{ 
  arr[order,0]=OrderSend(Symbol(),OP_SELLSTOP,LotsOptimized(),Bid-Proboy*Point,10,Ask-Proboy*Point+StopLoss*Point,Bid-Proboy*Point-TakeProfit*Point,"",MAGIC,0,Red);
  arr[order,1]=OrderSend(Symbol(),OP_BUYSTOP,LotsOptimized(),Ask+Proboy*Point,10,Bid+Proboy*Point-StopLoss*Point,Ask+Proboy*Point+TakeProfit*Point,"",MAGIC,0,Blue); 
  return(0);
}     

//+------------------------------------------------------------------+
//| удаляем первый (левый) отложенный стоп-ордер
//+------------------------------------------------------------------+
void DeleteFirstOrder()
{
  int res;
  if(OrderSelect(arr[1,0],SELECT_BY_TICKET,MODE_TRADES))
    if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC)
    {
      if(OrderType()==OP_SELLSTOP)
        res=OrderDelete(OrderTicket());
      if(OrderType()==OP_BUYSTOP)
        res=OrderDelete(OrderTicket());
    }   
  if(OrderSelect(arr[1,1],SELECT_BY_TICKET,MODE_TRADES))
    if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC)
    {
      if(OrderType()==OP_SELLSTOP)
        res=OrderDelete(OrderTicket());
      if(OrderType()==OP_BUYSTOP)
        res=OrderDelete(OrderTicket());
    }
  for (int i=1; i<=MaxOrders-1; i++)
  {
    arr[i,0]=arr[i+1,0];
    arr[i,1]=arr[i+1,1];
  }
  arr[MaxOrders,0]=0;
  arr[MaxOrders,1]=0;
}

//+------------------------------------------------------------------+
//| модифицируем стоп-ордера - держимся на расстоянии от цены        |
//+------------------------------------------------------------------+
void StartModify()
{
   // модифицируем с заданным интервалом времени
   if((TimeLocal()-t)<SleepTime) return(0);
   Print("-------------------------------------------------------------");
   DeleteFirstOrder();
   WorkOpen();
   t = TimeLocal();
}

//+------------------------------------------------------------------+
//| удаляем отложенные стоп-ордера                                   |
//+------------------------------------------------------------------+
void DeleteStopOrders()
{
  int res;
  for(int i=0;i<OrdersTotal();i++)
  {
    if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break;
    if(OrderSymbol()==Symbol() && OrderMagicNumber()==MAGIC)
    {
      if(OrderType()==OP_SELLSTOP)
        res=OrderDelete(OrderTicket());
      if(OrderType()==OP_BUYSTOP)
        res=OrderDelete(OrderTicket());
  
      if(OrderType()==OP_BUY)
        Print("* * * BUY * * *");
      if(OrderType()==OP_SELL)
        Print("* * * SELL * * *");
    }
  }   

  for (i=1; i<=MaxOrders; i++)
  {
    arr[i,0]=0;
    arr[i,1]=0;    
  }
  order=0;
  flag=true;
}

//+------------------------------------------------------------------+
//| Реализуем трэйлинг-стоп для открытого ордера                     |
//+------------------------------------------------------------------+
void StartTrailing()
{ 
  bool res;
  for(int i=0;i<OrdersTotal();i++)
  {
    if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false)        break;
    if(OrderMagicNumber()!=MAGIC || OrderSymbol()!=Symbol()) continue;

    if(OrderType()==OP_BUY)
    {     
      if(TrailingStop>0)
      {
        if(Bid-OrderOpenPrice() > TrailingStop*Point)
        {
          if(OrderStopLoss()<Bid-TrailingStop*Point)
          {
            res=OrderModify(OrderTicket(),OrderOpenPrice(),Bid-TrailingStop*Point,OrderTakeProfit(),0,Blue);
            Print("* * * Модифицирую BUY! = ",res);
            return(0);
          }
        }
      }
    }
    if(OrderType()==OP_SELL)
    {    
      if(TrailingStop>0)
      {
        if(OrderOpenPrice()-Ask > TrailingStop*Point)
        {
          if(OrderStopLoss()>Ask+TrailingStop*Point)
          {
            
            res=OrderModify(OrderTicket(),OrderOpenPrice(),Ask+TrailingStop*Point,OrderTakeProfit(),0,Blue);
            Print("* * * Модифицирую SELL! = ",res);
            return(0);
          }
        }
      }
    }
  }
}

//+------------------------------------------------------------------+
//| Start                                                            |
//+------------------------------------------------------------------+
void start()
{
   if(Bars<100 || IsTradeAllowed()==false) return;
   if(Hour()<StartHour || Hour()>EndHour) return;

   // если сработал отложенный ордер
   if(CalculateCurrentOrders2(Symbol())!=0)
   {
     if(!flag)
       DeleteStopOrders();  // удаляем оставшиеся отложенные ордера
     StartTrailing();     // следим за открытым ордером
     return(0);
   }

     
   // если ещё нет отложенных ордеров
   if(CalculateCurrentOrders1(Symbol())<MaxOrders)
     StartOpen();

   // если есть отложенные ордера
   if(CalculateCurrentOrders1(Symbol())==MaxOrders)
     StartModify();
  
//----
}
//+------------------------------------------------------------------+