//+------------------------------------------------------------------+
//|                                   HA_ColorChange_Arrows_v1.0.mq4 |
//|                                         Copyright 2020, NickBixy |
//|                           https://www.mql5.com/en/users/nickbixy |
//+------------------------------------------------------------------+

#property copyright "NickBixy"
#property link      "https://www.mql5.com/en/users/nickbixy"
//#property version   "1.00"
#property strict
#property indicator_chart_window
#property indicator_buffers 2

input string ArrowHeader="-----------------Arrows Settings------------------------------------------";//----- Arrows Settings
input int shiftMultiplier=8;//Shift Multipilier Arrows up or down more
input string info="https://docs.mql4.com/constants/objectconstants/wingdings";//Windings font symbols
input color bullishArrowColor=clrLime;//Bullish Arrow Color
input int bullishWinding=233;//Arrow Wingding Character
input int bullishArrowSize=0;//Bullish Arrow Size 0-5
input color bearishArrowColor=clrRed;//Bearish Arrow Color
input int bearishWinding=234;//Arrow Wingding Character
input int bearishArrowSize=0;//Bearish Arrow Size 0-5

double BEARISH[];
double BULLISH[];

int    nShift;//for shifting arrows

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
   IndicatorShortName("HA_Arrows");

//Bearish Set up
   SetIndexLabel(0,"HA_Arrows Bearish");
   SetIndexStyle(0,DRAW_ARROW,STYLE_SOLID,bearishArrowSize,bearishArrowColor);//sell
   SetIndexArrow(0,bearishWinding);
   SetIndexBuffer(0,BEARISH);

//Bullish Set up
   SetIndexLabel(1,"HA_Arrows Bullish");
   SetIndexStyle(1,DRAW_ARROW,STYLE_SOLID,bullishArrowSize,bullishArrowColor);//buy
   SetIndexArrow(1,bullishWinding);
   SetIndexBuffer(1,BULLISH);

   switch(Period())//each timeframe has own nShift value for arrow distance
     {
      case     1:
         nShift = 5;
         break;
      case     5:
         nShift = 7;
         break;
      case    15:
         nShift = 9;
         break;
      case    30:
         nShift = 14;
         break;
      case    60:
         nShift = 19;
         break;
      case   240:
         nShift = 24;
         break;
      case  1440:
         nShift = 84;
         break;
      case 10080:
         nShift = 104;
         break;
      case 43200:
         nShift = 204;
         break;
     }

   nShift=nShift*shiftMultiplier;//shift arrows by multipling
   ArrayInitialize(BEARISH,0.0);
   ArrayInitialize(BULLISH,0.0);

   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void deinit()
  {
   ObjectsDeleteAll(0,"HA_Arrows",0,OBJ_ARROW) ;
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   int limit;
   int counted_bars=IndicatorCounted();
//---- check for possible errors
   if(counted_bars<0)
      return(-1);
//---- the last counted bar will be recounted
   if(counted_bars>0)
      counted_bars--;
   limit=Bars-counted_bars;
//---- main loop
   for(int i=0; i<limit; i++)
     {

      if(HACheck(i)==1)//BUY ARROWS
        {
         BULLISH[i]=Low[i]-nShift*Point;
         BEARISH[i]=0.0;
        }
      else
         if(HACheck(i)==-1)//SELL ARROWS
           {
            BEARISH[i]=High[i]+nShift*Point;
            BULLISH[i]=0.0;
           }
         else//NO ARROWS
           {
            BEARISH[i]=0.0;
            BULLISH[i]=0.0;
           }
     }
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int HACheck(int index)
  {
   int result=0;

   int r1=0;
   int r2=0;

   double CSH1 = iCustom(NULL,0,"Heiken_Ashi",0,index);
   double CBH1 = iCustom(NULL,0,"Heiken_Ashi",1,index);
   double CSH2 = iCustom(NULL,0,"Heiken_Ashi",2,index);
   double CBH2 = iCustom(NULL,0,"Heiken_Ashi",3,index);

   double PSH1 = iCustom(NULL,0,"Heiken_Ashi",0,index+1);
   double PBH1 = iCustom(NULL,0,"Heiken_Ashi",1,index+1);
   double PSH2 = iCustom(NULL,0,"Heiken_Ashi",2,index+1);
   double PBH2 = iCustom(NULL,0,"Heiken_Ashi",3,index+1);

   if(CSH1<CBH1 && CSH2<CBH2)//current check
     {
      r1=1;
     }
   else
      if(CSH1>CBH1 && CSH2>CBH2)
        {
         r1=-1;
        }
      else
        {
         r1=0;
        }

   if(PSH1<PBH1 && PSH2<PBH2)//prev check
     {
      r2=1;
     }
   else
      if(PSH1>PBH1 && PSH2>PBH2)
        {
         r2=-1;
        }
      else
        {
         r2=0;
        }

   if(r1==1 && r2!=1)//get state
     {
      result=1;
     }
   else
      if(r1==-1 && r2!=-1)
        {
         result=-1;
        }
      else
        {
         result=0;
        }
   return result;
  }
//+------------------------------------------------------------------+