//+------------------------------------------------------------------+
//|                                                          Oxy.mq4 |
//|                                            Copyright © 2014, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+

#property copyright "Copyright © 2014, AM2"
#property link      "http://www.forexsystems.biz"
#property description "Slope Directional Line expert advisor"


//--- Inputs
extern int StopLoss     = 500; // стоп лосс ордера
extern int TakeProfit   = 500; // тейк профит ордера
extern int CountCandle  = 7;   // тейк профит ордера
extern int Delta        = 100; // расстояние AB
extern double Lots      = 0.1; // объем позиции

//----
extern int period       = 90;  // период средней Slope Directional Line
extern int method       = 2;   // метод средней(SMA=0,EMA=1,SMMA=2,LWMA=3)
extern int price        = 0;   // цена по которой строится средняя
//----
extern int MAGIC        = 333; // магик
//+------------------------------------------------------------------+
//| Check for open order conditions                                  |
//+------------------------------------------------------------------+
void OpenPos()
  {
   int    res,pos;
//--- get Moving Average 
   double SlopeBlue=iCustom(Symbol(),0,"Slope",period,method,price,1,1);
   double SlopeRed=iCustom(Symbol(),0,"Slope",period,method,price,0,1);
   double SlopeBlueShift=iCustom(Symbol(),0,"Slope",period,method,price,1,CountCandle);
   double SlopeRedShift=iCustom(Symbol(),0,"Slope",period,method,price,0,CountCandle);
   double up=iHigh(Symbol(),0,iHighest(NULL,0,MODE_HIGH,CountCandle,1));
   double dn=iLow(Symbol(),0,iLowest(NULL,0,MODE_LOW,CountCandle,1));
   Comment("\nSlope Blue ",SlopeBlue,"\nSlope Red ",SlopeRed);   
      
   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) pos++;
          if(OrderType()==OP_SELL)pos++;
         }
       }  
     }         

    
   //--- sell conditions
   if(SlopeBlueShift==SlopeRedShift)                //линия синяя CountCandle свечей назад
     if(Close[0]<SlopeBlueShift)                    //цена ниже синей линии CountCandle свечей назад 
       if(Close[CountCandle]>SlopeBlueShift)        //цена CountCandle свечей назад была выше синей линии
         if(Bid-dn>=Delta*Point                     //цена касается линии
            && OrdersTotal()<1)
             {
              res=OrderSend(Symbol(),OP_SELLSTOP,Lots,dn,3,dn+StopLoss*Point,dn-TakeProfit*Point,"",MAGIC,0,Red);
              return;
             }
      //--- buy conditions
   if(SlopeBlueShift!=SlopeRedShift)                //линия красная CountCandle свечей назад  
      if(Close[0]>SlopeRedShift)                    //цена выше красной линии CountCandle свечей назад 
         if(Close[CountCandle]<SlopeRedShift)       //цена CountCandle свечей назад была ниже красной линии
           if(up-Ask>=Delta*Point                   //цена касается линии
              && OrdersTotal()<1)
               {
                res=OrderSend(Symbol(),OP_BUYSTOP,Lots,up,3,up-StopLoss*Point,up+TakeProfit*Point,"",MAGIC,0,Blue);      
                return;
               }
         
  }
//+------------------------------------------------------------------+
void DelOrder()
  {
   bool del; 
   for (int i=OrdersTotal()-1; i>=0; i--) 
    {
     if (OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==false) break; 
     if (OrderType()==OP_BUYSTOP)  del=OrderDelete(OrderTicket()); 
     if (OrderType()==OP_SELLSTOP) del=OrderDelete(OrderTicket());       
    }    
  }
//+------------------------------------------------------------------+
bool NewBar()
  {
   static datetime lastbar = 0;
   datetime curbar = Time[0];
   if(lastbar!=curbar)
   {
      lastbar=curbar;
      return (true);
   }
   else
   {
      return(false);
   }
  }
//+------------------------------------------------------------------+
//| OnTick function                                                  |
//+------------------------------------------------------------------+
void OnTick()
  {
   double SlopeBlue=iCustom(Symbol(),0,"Slope",period,method,price,1,1);
   double SlopeRed=iCustom(Symbol(),0,"Slope",period,method,price,0,1);  
//--- check for history and trading
   if(Bars<100 || IsTradeAllowed()==false)
      return;
   if(NewBar()==true)
    {
     if(Close[1]<SlopeBlue)DelOrder();
        
     OpenPos();
    }
//---
  }
//+------------------------------------------------------------------+