//+------------------------------------------------------------------+
//|                                                    XO_EA_FTP.mq4 |
//|                                                          Kalenzo |
//|                                      bartlomiej.gorski@gmail.com |
//+------------------------------------------------------------------+
#property copyright "Kalenzo"
#property link      "bartlomiej.gorski@gmail.com"
#property indicator_chart_window

extern int barToCheck = 1;
extern int cci = 34;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
  
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
  
  
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start(){
   static int dir = 0;
   static int mode = 0;

//----
   
   
   if(Bars>mode){
      double xo60g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",60,5,0,barToCheck);//green 60
      double xo60r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",60,5,1,barToCheck);//red 60

      double xo30g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",30,6,0,barToCheck);//green 30
      double xo30r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",30,6,1,barToCheck);//red 30

      double xo15g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",15,5,0,barToCheck);//green 15
      double xo15r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",15,5,1,barToCheck);//red 15

      double xo5g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",5,5,0,barToCheck);//green 5
      double xo5r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",5,5,1,barToCheck);//red 5

      double pxo60g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",60,5,0,barToCheck+1);//green 60
      double pxo60r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",60,5,1,barToCheck+1);//red 60

      double pxo30g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",30,6,0,barToCheck+1);//green 30
      double pxo30r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",30,6,1,barToCheck+1);//red 30

      double pxo15g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",15,5,0,barToCheck+1);//green 15
      double pxo15r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",15,5,1,barToCheck+1);//red 15

      double pxo5g = iCustom(Symbol(),0,"ZZ  MTF  XO  A",5,5,0,barToCheck+1);//green 5
      double pxo5r = iCustom(Symbol(),0,"ZZ  MTF  XO  A",5,5,1,barToCheck+1);//red 5

   
    
   
      //green open signal
      if(xo60g != 0 && xo30g != 0 && xo15g != 0 && xo5g != 0 && (pxo60g == 0 || pxo30g == 0 || pxo15g == 0 || pxo5g == 0) ){
         //Alert(Symbol()+" "+Period()+" XO Long ",Bid); 
         mode = Bars;
         dir = 1;
         }//red open signal
      else if(xo60r != 0 && xo30r != 0 && xo15r != 0 && xo5r != 0 && (pxo60r == 0 || pxo30r == 0 || pxo15r == 0 || pxo5r == 0) ){
         //Alert(Symbol()+" "+Period()+" XO Short ",Bid); 
         mode = Bars;
         dir = -1;
         }
      }   
   if(dir!=0){
      static int ltime = 0;
      if(ltime!=Bars){
         double cci0 = iCCI(NULL,0,cci,PRICE_CLOSE,barToCheck);
         double cci1 = iCCI(NULL,0,cci,PRICE_CLOSE,barToCheck+1);
         if(dir==1 && cci0>0 && cci1<0){
            ltime=Bars;
            Alert(Symbol()+" "+Period()+" XO Long ",Bid); 
            }
         else if(dir==-1 && cci0<0 && cci1>0){
            ltime=Bars;
            Alert(Symbol()+" "+Period()+" XO Short ",Bid); 
            } 
         }
      }
//----
   return(0);
  }
//+------------------------------------------------------------------+