//+------------------------------------------------------------------+
//|                                                        Stoha.mq4 |
//|                                              Copyright 2024, AM2 |
//|                                     https://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2024, AM2"
#property link      "https://www.forexsystems.biz"
#property version   "1.00"
#property strict
#property indicator_chart_window

#property indicator_buffers 3

input int bars=333;
input int level=22;
input int delta=111;

double up[],dn[],sec[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//--- indicator buffers mapping
   SetIndexBuffer(0,up);
   SetIndexStyle(0,DRAW_ARROW,0,2,Aqua);
   SetIndexArrow(0,233);

   SetIndexBuffer(1,dn);
   SetIndexStyle(1,DRAW_ARROW,0,2,Tomato);
   SetIndexArrow(1,234);

   SetIndexBuffer(2,sec);
   SetIndexStyle(2,DRAW_SECTION,0,2,Gold);
//---
   return(INIT_SUCCEEDED);
  }

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
double Next(int k)
  {
   double p=0;

   for(int i=k; i<bars; i++)
     {
      if(sec[i]!=EMPTY_VALUE)
         p=Close[i];
      break;
     }
   return(p);
  }
//+------------------------------------------------------------------+
//| 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[])
  {
//---
   for(int i=0; i<bars; i++)
     {
      double sto=iStochastic(NULL,0,5,3,3,0,0,0,i);
      double sto2=iStochastic(NULL,0,5,3,3,0,0,0,i+1);

      if(sto>100-level && sto2<100-level)
         dn[i]=high[i];

      if(sto<level && sto2>level)
         up[i]=low[i];

      if(((sto>100-level && sto2<100-level) || (sto<level && sto2>level)) && close[i]-Next(i)>delta*_Point)
         sec[i]=close[i];
     }

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