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

input int count=3;
input bool mail=1;
input bool alert=1;

datetime t=0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Создание объекта FIBO                                            |
//+------------------------------------------------------------------+
void PutFibo(string name, datetime t1=0, double pr1=0, datetime t2=0, double pr2=0)
  {
   ObjectDelete(name);
//--- создадим "Уровни Фибоначчи" по заданным координатам
   ObjectCreate(0,name,OBJ_FIBO,0,t1,pr1,t2,pr2);
//--- установим цвет
   ObjectSetInteger(0,name,OBJPROP_COLOR,Red);
//--- установим толщину линии
   ObjectSetInteger(0,name,OBJPROP_WIDTH,1);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Bulls()
  {
   int b=0;

   for(int i=1; i<111; i++)
     {
      if(Close[i]-Open[i]>0)
        {
         b++;
        }
      if(Close[i]-Open[i]<0)
        {
         break;
        }
     }
   return(b);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int Bears()
  {
   int s=0;

   for(int i=1; i<111; i++)
     {
      if(Close[i]-Open[i]<0)
        {
         s++;
        }
      if(Close[i]-Open[i]>0)
        {
         break;
        }
     }
   return(s);
  }
//+------------------------------------------------------------------+
//| 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[])
  {
//---
   if(t!=time[0])
     {
      if(Bulls()>=count)
        {
         PutFibo("fibo",time[1],high[1],time[Bulls()],low[Bulls()]);

         if(mail)
            SendMail("Signal",string(Bulls()) + " быковатых свечи родимый! ");
         if(alert)
            Alert(string(Bulls()) + " быковатых свечи родимый! ");
        }

      if(Bears()>=count)
        {
         PutFibo("fibo",time[1],low[1],time[Bears()],high[Bears()]);

         if(mail)
            SendMail("Signal",string(Bears()) + " мишкиных свечи родимый! ");
         if(alert)
            Alert(string(Bears()) + " мишкиных свечи родимый! ");
        }
      t=time[0];
     }

   Comment("\n Bulls: ",Bulls(),
           "\n Bears: ",Bears());

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