//+------------------------------------------------------------------+
//|                                                      Strelka.mq4 |
//|                                              Copyright 2017, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict
#property indicator_chart_window 

input int RSIPeriod=14;
input int RSILevel=45;
input int CCI1Period=15;
input int CCI2Period=10;
input int CCI3Period=5;
input bool mail=1;
input bool push=1;
input bool alert=1;

datetime t=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping
   Comment("");
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutArrow(string name,int code,double p,datetime time,color clr)
  {
//--- создадим стрелку
   ObjectCreate(0,name,OBJ_ARROW,0,time,p);
//--- установим код стрелки
   ObjectSetInteger(0,name,OBJPROP_ARROWCODE,code);
//--- установим способ привязки
   ObjectSetInteger(0,name,OBJPROP_ANCHOR,ANCHOR_CENTER);
//--- установим цвет стрелки
   ObjectSetInteger(0,name,OBJPROP_COLOR,clr);
//--- установим размер стрелки
   ObjectSetInteger(0,name,OBJPROP_WIDTH,2);
  }
//+------------------------------------------------------------------+
//|   Цена фрактала                                                  |
//+------------------------------------------------------------------+
double FractalPrice(int num,int mode)
  {
   double f=0;
   int up=0,dn=0,n=0;
   for(int i=2; i<100; i++)
     {
      f=iFractals(NULL,0,MODE_UPPER,i);
      if(f>0 && mode==1)
        {
         n++;
         if(n==num) break;
        }

      f=iFractals(NULL,0,MODE_LOWER,i);
      if(f>0 && mode==2)
        {
         n++;
         if(n==num) break;
        }
     }
   return(f);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int OnCalculate(const int rates_total,
                const int prev_calculated,
                const datetime &time[],
                const double &open[],
                const double &high[],
                const double &low[],
                const double &close[],
                const long &tick_volume[],
                const long &volume[],
                const int &spread[])
  {
//---
   double rsi=iRSI(NULL,0,RSIPeriod,0,1);
   double cci1=iCCI(NULL,0,CCI1Period,0,1);
   double cci2=iCCI(NULL,0,CCI2Period,0,1);
   double cci31=iCCI(NULL,0,CCI3Period,0,1);
   double cci32=iCCI(NULL,0,CCI3Period,0,2);
   double up=FractalPrice(1,1);
   double dn=FractalPrice(1,2);

   if(t!=time[0])
     {
      if(cci1>0 && cci2>0 && cci31>0 && cci32<0 && rsi>100-RSILevel && close[1]>up)
        {
         PutArrow((string)time[1],233,high[1],time[1],Blue);
         if(alert) Alert(_Symbol+" Buy!!!");
         if(push) SendNotification(_Symbol+" Buy!!!");
         if(mail) SendMail("Signal",_Symbol+" Buy!!!");
        }

      if(cci1<0 && cci2<0  && cci31<0 && cci32>0 && rsi<RSILevel && close[1]<dn)
        {
         PutArrow((string)time[1],234,low[1],time[1],Red);
         if(alert) Alert(_Symbol+" Sell!!!");
         if(push) SendNotification(_Symbol+" Sell!!!");
         if(mail) SendMail("Signal",_Symbol+" Sell!!!");
        }
      t=time[0];
     }

//--- return value of prev_calculated for next call
   return(rates_total);
  }
//+------------------------------------------------------------------+