//+------------------------------------------------------------------+
//|                                  Simple_Signal_Arrows_Alerts.mq4 |
//|                                     Copyright 2022, BestTraderEv |
//|                         https://www.forexfactory.com/besttraderev|
//+------------------------------------------------------------------+
#property copyright "Copyright 2022, BestTraderEv"
#property link      "https://www.forexfactory.com/besttraderev"
#property version   "1.00"
#property strict
#property indicator_chart_window
enum enScenario{
WithCandleDirection,
CounterCandleDirection,
};
//---- input parameters
extern enScenario          WhichDirection    = CounterCandleDirection;
extern color               BuyArrowColor     = clrLimeGreen;
extern color               SellArrowColor    = clrRed;
extern int                 ArrowSize         = 3;
extern bool                alertsOn          = false;
extern bool                alertsOnCurrent   = false;
extern bool                alertsMessage     = true;
extern bool                alertsSound       = false;
extern bool                alertsNotify      = false;
extern bool                alertsEmail       = false;
extern string              soundFile         = "alert2.wav";
//---- buffers
string                     OBJ_Prefix        = "SSAA_Arrow";
bool                       juststarted       = true;
string                     message;
int                        arrow_anch;
static string              indicatorName;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
{

   for(int i=0; i<Bars-1; i++)
   {
      ObjectCreate(OBJ_Prefix+"Buy_Signal"+(string)i,OBJ_ARROW,0,0,0,0,0);
      ObjectCreate(OBJ_Prefix+"Sell_Signal"+(string)i,OBJ_ARROW,0,0,0,0,0);
   }
   if(juststarted == true) juststarted();   // clear saved redundant lines
   indicatorName = "Simple_Signal_Arrows_Alerts";
   IndicatorShortName(indicatorName);
   return(0);
}

int deinit()
{  
   for(int i = ObjectsTotal() - 1; i >= 0; i--)
   {
      string label = ObjectName(i);
      if(StringSubstr(label, 0, 10) == "SSAA_Arrow")
      {
         ObjectDelete(0, label);
      }
   }
   return(0);
}
   
//+------------------------------------------------------------------+
int start()
{

   int whichBar = 1; 
   string sWhichBar = " on first closed Bar";
   if(alertsOnCurrent) 
   {
      whichBar = 0;
      sWhichBar = " on current Bar";
   }
   
   int limit;
   int counted_bars=IndicatorCounted();
//---- check for possible errors
   if(counted_bars<0) return(-1);
//---- last counted bar will be recounted
   if(counted_bars>0) counted_bars--;
   limit=Bars-counted_bars;
   for(int i=1; i<limit-1; i++)
   {
      if(WhichDirection==CounterCandleDirection)
      {
         if(Close[i]<Low[i+1])
         {  
            SetArrow(OBJ_Prefix+"Buy_Signal"+(string)i,241,BuyArrowColor,Low[i],Time[i],ANCHOR_TOP,ArrowSize);
            if(alertsOn&&i==whichBar)
            {
               message=_Symbol+Tf_as_string(PERIOD_CURRENT)+" Simple Signal Buy Arrow @ "+TimeToString(TimeLocal(),TIME_DATE|TIME_MINUTES)+sWhichBar;
               AlertOnce(message,whichBar,PERIOD_CURRENT,soundFile);
            }
         }
         if(Close[i]>High[i+1])
         {  
            SetArrow(OBJ_Prefix+"Sell_Signal"+(string)i,242,SellArrowColor,High[i],Time[i],ANCHOR_BOTTOM,ArrowSize);
            if(alertsOn&&i==whichBar)
            {
               message=_Symbol+Tf_as_string(PERIOD_CURRENT)+" Simple Signal Sell Arrow @ "+TimeToString(TimeLocal(),TIME_DATE|TIME_MINUTES)+sWhichBar;
               AlertOnce(message,whichBar,PERIOD_CURRENT,soundFile);
            }
         }
      } 
      if(WhichDirection==WithCandleDirection)    
      {
         if(Close[i]>High[i+1])
         {
            SetArrow(OBJ_Prefix+"Buy_Signal"+(string)i,241,BuyArrowColor,Low[i],Time[i],ANCHOR_TOP,ArrowSize);
            if(alertsOn&&i==whichBar)
            {
               message=_Symbol+Tf_as_string(PERIOD_CURRENT)+" Simple Signal Buy Arrow @ "+TimeToString(TimeLocal(),TIME_DATE|TIME_MINUTES)+sWhichBar;
               AlertOnce(message,whichBar,PERIOD_CURRENT,soundFile);
            }
         }
         if(Close[i]<Low[i+1])
         {  
            SetArrow(OBJ_Prefix+"Sell_Signal"+(string)i,242,SellArrowColor,High[i],Time[i],ANCHOR_BOTTOM,ArrowSize);
            if(alertsOn&&i==whichBar)
            {
               message=_Symbol+Tf_as_string(PERIOD_CURRENT)+" Simple Signal Sell Arrow @ "+TimeToString(TimeLocal(),TIME_DATE|TIME_MINUTES)+sWhichBar;
               AlertOnce(message,whichBar,PERIOD_CURRENT,soundFile);
            }
         }
      }   
   }
//---- done
   return(0);
}
//+------------------------------------------------------------------+
void SetArrow(string name,int code,color c,double p,datetime t,int a,int w)
   {
       ObjectSet(name,OBJPROP_ARROWCODE,code);
       ObjectSet(name,OBJPROP_COLOR,c);        
       ObjectSet(name,OBJPROP_PRICE1,p); 
       ObjectSet(name,OBJPROP_TIME1,t);
       ObjectSet(name,OBJPROP_SELECTABLE,false);  
       ObjectSet(name,OBJPROP_ANCHOR,a);   
       ObjectSet(name,OBJPROP_WIDTH,w); 
   }
//+------------------------------------------------------------------+
bool IsNewBar()
{ 
  static datetime Trend_Candle_prevTime1 = -1;
  
  if(Trend_Candle_prevTime1 != Time[6])
  { 
   Trend_Candle_prevTime1 = Time[6]; 
       
   return(true);  
  } 

  return(false); 
}
//+------------------------------------------------------------------+
int AlertOnce(string alert_msg, int ref, int tf, string sound)
{  
int i = 0;


  static int LastAlert[1000];
   
  while (i < 1000)
{
 if (ref == i)
  {
           if( LastAlert[i] == 0 || LastAlert[i] < iBars(NULL,tf) )
        {
           if(alertsMessage)         Alert(alert_msg);
           if(alertsSound)           PlaySound(sound);
           if(alertsEmail)           SendMail("FN Signal Alert",alert_msg);
           if(alertsNotify)          SendNotification(alert_msg);
           LastAlert[i] = iBars(NULL,tf);
           return (1);
        }
      break;
 }
   
 i = i + 1;
  }
 return(0);  
}
//+------------------------------------------------------------------+
string   Tf_as_string(ENUM_TIMEFRAMES period){
   if(period == PERIOD_CURRENT)  period   = (ENUM_TIMEFRAMES) _Period;
   string   period_xxx  = EnumToString(period);                // PERIOD_XXX
   return StringSubstr(period_xxx, 7);                         // XXX
}
//+------------------------------------------------------------------+
void objectsDelete(string name)
{
   int objTotal = ObjectsTotal();
   for(int i=objTotal-1; i>=0; i--)  
  {
      string objName = ObjectName(i);
      if(StringFind(objName,name,0) == 0)
       ObjectDelete(0,objName);
   }
}


int juststarted()
{  
   for(int i = ObjectsTotal() - 1; i >= 0; i--)
   {
      if(juststarted == true)
      {
         string label = ObjectName(i);
         if(StringSubstr(label, 0, 10) == "SSAA_Arrow")
         {
            ObjectDelete(0, label);
         }
      }
      juststarted = false;
   }
   return(0);
}

//+------------------------------------------------------------------+