//+------------------------------------------------------------------+
//|                                         MACD_ColorHist_Alert.mq4 |
//|                                    Copyright © 2006, Robert Hill |
//|                                                                  |
//+------------------------------------------------------------------+
#property  copyright "Copyright © 2006, Robert Hill"
//---- indicator settings
#property  indicator_separate_window
#property  indicator_buffers 7
#property  indicator_color1  LightSkyBlue
#property  indicator_color2  Red
#property  indicator_color3  Blue
#property  indicator_color4  Magenta
#property  indicator_color5  Turquoise
#property  indicator_color6  Red
#property  indicator_color7  DarkGray
#property  indicator_style7  STYLE_DOT

#property indicator_width1 2
#property indicator_width2 2
#property indicator_width3 2
#property indicator_width4 2
#property indicator_width5 1
#property indicator_width6 1
#property indicator_levelcolor clrNONE

//---- indicator parameters



extern int FastEMA =12;  //11..6
extern int SlowEMA =26;  //12..13
extern int SignalSMA=9;  //11..5

//extern int  OsmaMultiplier =1;
extern bool ShowHistogram  = true;
extern bool ShowMACDLine   = true;//true
extern bool ShowSignalLine = true;//false

extern string arr0="=== Alerts ===";
extern bool UseAlert =false;
extern bool EmailAlert  =false;
extern bool MACDzeroLineCrossAlert   = true;
extern bool MACDSignalLineCrossAlert = true;
extern bool MACDDirectionChangeAlert = false;
extern bool MACDHook                 = false;
extern bool TwoBarsDirChageConfirm   = false;
extern int  AlertBar                 =0;

//extern bool ShowAlertStatus = true;

extern string arr1="=== Arrows ===";
extern bool   ShowArrows  = false;
extern bool   SignalCross = false;
extern bool   ZeroCross   = false;
extern bool   Hook        = false;
extern color  UpColor     = MediumTurquoise;
extern color  DnColor     = Red;
enum code
{ 
  i1,//225
  i2,//233
  i3,//241
  i4,//Dot
};
input code ArrowCode = i1;
int    UpCode;         
int    DnCode;         
extern int    Size   = 1;
extern string arrowsIdentifier = "macd";
extern double ArrowGap         = 1.0;
//---

//---- indicator buffers
double     ind_buffer1[];
double     ind_buffer2[];


double HistogramBufferUp[];
double HistogramBufferDown[];

double HistogramBufferUp1[];
double HistogramBufferDown1[];

double zerobuff[];

int flagval11 = 0;
int flagval12 = 0;
int flagval21 = 0;
int flagval22 = 0;
int flagval31 = 0;
int flagval32 = 0;
int flagval41 = 0;
int flagval42 = 0;

//---- variables

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- drawing settings
//   IndicatorBuffers(3);
   IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)+1);
   SetIndexBuffer(0,HistogramBufferUp);//lime
   SetIndexBuffer(1,HistogramBufferDown);//red
   SetIndexBuffer(2,HistogramBufferUp1);//green
   SetIndexBuffer(3,HistogramBufferDown1);//maroon
   SetIndexBuffer(4,ind_buffer1);//aqua
   SetIndexBuffer(5,ind_buffer2);//yellow
   SetIndexBuffer(6,zerobuff);//yellow

if(ShowMACDLine)
    {
   SetIndexStyle(4,DRAW_LINE);
   SetIndexDrawBegin(4,SlowEMA);
    }
 else
    {
    SetIndexStyle(4,DRAW_NONE);
    }

if(ShowSignalLine)
    {
   SetIndexStyle(5,DRAW_LINE);
   SetIndexDrawBegin(5,SignalSMA);
    }
 else
    {
    SetIndexStyle(5,DRAW_NONE);
    }
 
 
 if(ShowHistogram)
   {
   SetIndexStyle(0,DRAW_HISTOGRAM);
   SetIndexStyle(1,DRAW_HISTOGRAM);
   SetIndexStyle(2,DRAW_HISTOGRAM);
   SetIndexStyle(3,DRAW_HISTOGRAM);
   }
 else
    {
   SetIndexStyle(0,DRAW_NONE);
   SetIndexStyle(1,DRAW_NONE);
   SetIndexStyle(2,DRAW_NONE);
   SetIndexStyle(3,DRAW_NONE);
   }


//   SetIndexDrawBegin(2,SlowEMA + SignalSMA);
//---- name for DataWindow and indicator subwindow label

 /*  if (ShowAlertStatus)
   {
   string _SoundAlert="",_EmailAlert="";
   if(UseAlert) _SoundAlert="ON";
   if(!UseAlert)_SoundAlert="OFF";
   if(EmailAlert) _EmailAlert="ON";
   if(!EmailAlert)_EmailAlert="OFF";
   }*/
   IndicatorShortName("MACD");
   
   SetIndexLabel(4,"MACD");
   SetIndexLabel(5,"Signal");
   SetIndexLabel(0,"");
   SetIndexLabel(1,"");
   SetIndexLabel(2,"");
   SetIndexLabel(3,"");
   
//---- initialization done
   return(0);
  }
//------------------------------------------------------------------
//------------------------------------------------------------------
int deinit() 
{ 
   deleteArrows();
   
//---   
   return(0); 
}

//+------------------------------------------------------------------+
//| Moving Averages Convergence/Divergence                           |
//+------------------------------------------------------------------+
int start()
{
   int limit;
   double temp,temp1;
   
   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;
//---- macd counted in the 1-st buffer
   for(int i=0; i<limit; i++)
      ind_buffer1[i]=iMA(NULL,0,FastEMA,0,MODE_EMA,PRICE_CLOSE,i)-iMA(NULL,0,SlowEMA,0,MODE_EMA,PRICE_CLOSE,i);
//---- signal line counted in the 2-nd buffer
   for(i=0; i<limit; i++)
      ind_buffer2[i]=iMAOnArray(ind_buffer1,Bars,SignalSMA,0,MODE_SMA,i);

   for(i=0; i<limit; i++)
   {
      HistogramBufferUp[i]    = 0;//lime
      HistogramBufferDown[i]  = 0;//red
      HistogramBufferUp1[i]   = 0;//green
      HistogramBufferDown1[i] = 0;//maroon
      zerobuff[i]             = 0;//yellow 
      
      temp =  ind_buffer1[i] - ind_buffer2[i]/2;//////{added  "- ind_buffer2[i]/2;"  } Reduces Histo size 
      temp1 = ind_buffer1[i+1] - ind_buffer2[i+1]/2;//{added  "- ind_buffer2[i+1]/2;"} Reduces Histo size 


    
     if (temp >0) 
       {
          if (temp>temp1)     //>0up
            {       
            HistogramBufferUp[i] = temp;    
            }
            else              //>0dn
            { 
            HistogramBufferUp [i] = 0.0;
            HistogramBufferUp1[i] = temp;   
            }
       }    
      else
       {  
         if (temp>temp1)     //<=0 up
          {       
        HistogramBufferDown[i] = temp; 
          }  
        else                  //<=0 dn
           {
        HistogramBufferDown[i] = 0.0;
        HistogramBufferDown1[i] = temp;  
           }
//---
       }
       
//---- Arrows  

      if (ShowArrows)
      {
         ObjectDelete(arrowsIdentifier+":1:"+Time[i]);
         ObjectDelete(arrowsIdentifier+":2:"+Time[i]);
         string lookFor = arrowsIdentifier+":"+Time[i]; ObjectDelete(lookFor);
         if(ArrowCode==i1){UpCode=225;DnCode=226;}
         if(ArrowCode==i2){UpCode=233;DnCode=234;}
         if(ArrowCode==i3){UpCode=241;DnCode=242;}
         if(ArrowCode==i4){UpCode=108;DnCode=108;}
               
         if(SignalCross)
         {
            if (ind_buffer1[i+1]<ind_buffer2[i+1] && ind_buffer1[i]>ind_buffer2[i]) drawArrow("1",0.5,i,UpColor,UpCode,Size,false);
            if (ind_buffer1[i+1]>ind_buffer2[i+1] && ind_buffer1[i]<ind_buffer2[i]) drawArrow("1",0.5,i,DnColor,DnCode,Size, true);
         }
         if(ZeroCross)
         {
            if (ind_buffer1[i+1]<0 && ind_buffer1[i]>0) drawArrow("1",0.5,i,UpColor,UpCode,Size,false);
            if (ind_buffer1[i+1]>0 && ind_buffer1[i]<0) drawArrow("1",0.5,i,DnColor,DnCode,Size, true);
         }
         if(Hook)
         {
            if (ind_buffer1[i]>ind_buffer2[i] && ind_buffer1[i+2]>ind_buffer1[i+1] && ind_buffer1[i]>ind_buffer1[i+1]) drawArrow("1",0.5,i,UpColor,UpCode,Size,false);
            if (ind_buffer1[i]<ind_buffer2[i] && ind_buffer1[i+2]<ind_buffer1[i+1] && ind_buffer1[i]<ind_buffer1[i+1]) drawArrow("1",0.5,i,DnColor,DnCode,Size, true);
         }
      }
      
       
       
       
       
       
//----
     //if (i == 1)  //bar0 current
     if (i == AlertBar)  //bar0 current
    {
         string TFString=TFtoStr(Period());
         if ((ind_buffer1[i] > 0)&&(ind_buffer1[i+1] < 0))
         {
// macd Cross 0 up
         if (flagval11==0)
           {
           flagval11=1;
           flagval12=0;
           flagval32=1;
           if ((UseAlert)&&(MACDzeroLineCrossAlert)) Alert (Symbol(),"   ",TFString,"   MACD Crossed Zero Up   ",TimeToStr(TimeCurrent(),TIME_SECONDS)); 
                if ((EmailAlert)&&(MACDzeroLineCrossAlert)) SendMail("MACD Crossed Zero Up", "MACD CrossedZero Up, Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
          }
//
       else if ((ind_buffer1[i]<0 )&&(ind_buffer1[i+1] >0))
        {
//macd Cross 0 down
         if (flagval12==0)
         {
          flagval11=0;
          flagval12=1;
          if ((UseAlert)&&(MACDzeroLineCrossAlert)) Alert (Symbol(),"   ",TFString,"   MACD Crossed Zero Down   ",TimeToStr(TimeCurrent(),TIME_SECONDS));  
               if ((EmailAlert)&&(MACDzeroLineCrossAlert)) SendMail("MACD Crossed Zero Down","MACD CrossedZero Down, Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
         }
        }

//
       else if ((ind_buffer1[i] < ind_buffer2[i])&&(ind_buffer1[i+1] > ind_buffer2[i+1]))
         {
//Macd xSigDn
         if (flagval21==0)
           {
           flagval21=1;
           flagval22=0;
           flagval41=1;
           if ((UseAlert)&&(MACDSignalLineCrossAlert)) Alert (Symbol(),"   ",TFString,"   MACD Signal Line crossed Down   ",TimeToStr(TimeCurrent(),TIME_SECONDS));   
                if ((EmailAlert)&&(MACDSignalLineCrossAlert)) SendMail("MACD xSignalLane & going Down", "MACD xSignalLane & going Down, Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
         }

       else if ((ind_buffer1[i] > ind_buffer2[i])&&(ind_buffer1[i+1] < ind_buffer2[i+1]))
         {
//Macd xSigUp
         if (flagval22==0)
           {
           flagval21=0;
           flagval22=1;
           if ((UseAlert)&&(MACDSignalLineCrossAlert)) Alert (Symbol(),"   ",TFString,"   MACD Signal Line crossed Up   ",TimeToStr(TimeCurrent(),TIME_SECONDS));  
                if ((EmailAlert)&&(MACDSignalLineCrossAlert)) SendMail("MACD xSignalLane & going Up", "MACD xSignalLane & going Up, Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
         }



// 
       else if  (((ind_buffer1[i]>0)&&(ind_buffer1[i] < ind_buffer1[i+1])&&(ind_buffer1[i+1] < ind_buffer1[i+2])&&(TwoBarsDirChageConfirm))||
                 ((ind_buffer1[i]>0)&&(ind_buffer1[i] < ind_buffer1[i+1])&&(!TwoBarsDirChageConfirm)))
         {
// >0dn
         if (flagval31==0)
           {
           flagval31=1;
           flagval32=0;
           if ((UseAlert)&&(MACDDirectionChangeAlert)) Alert (Symbol(),"   ",TFString,"   MACD Above 0 is Declining   ",TimeToStr(TimeCurrent(),TIME_SECONDS));   
                if ((EmailAlert)&&(MACDDirectionChangeAlert)) SendMail("MACD Declining...", "MACD Declining.., Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
         }

       else if (((ind_buffer1[i]>0)&&(ind_buffer1[i] > ind_buffer1[i+1])&&(ind_buffer1[i+1] > ind_buffer1[i+2])&&(TwoBarsDirChageConfirm))||
                ((ind_buffer1[i]>0)&&(ind_buffer1[i] > ind_buffer1[i+1])&&(!TwoBarsDirChageConfirm)))
         {
// >0up
         if (flagval32==0)
           {
           flagval31=0;
           flagval32=1;
           if ((UseAlert)&&(MACDDirectionChangeAlert)) Alert (Symbol(),"   ",TFString,"   MACD Above 0 is Rising   ",TimeToStr(TimeCurrent(),TIME_SECONDS)); 
                if ((EmailAlert)&&(MACDDirectionChangeAlert)) SendMail("MACD Rising...", "MACD Rising.., Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
         }
       else if (((ind_buffer1[i]<=0)&&(ind_buffer1[i] < ind_buffer1[i+1])&&(ind_buffer1[i+1] < ind_buffer1[i+2])&&(TwoBarsDirChageConfirm))||
                ((ind_buffer1[i]<=0)&&(ind_buffer1[i] < ind_buffer1[i+1])&&(!TwoBarsDirChageConfirm)) )
         {
// <0dn
         if (flagval41==0)
           {
           flagval41=1;
           flagval42=0;
           if ((UseAlert)&&(MACDDirectionChangeAlert)) Alert (Symbol(),"   ",TFString,"   MACD Below 0 is Declining   ",TimeToStr(TimeCurrent(),TIME_SECONDS)); 
                if ((EmailAlert)&&(MACDDirectionChangeAlert)) SendMail("MACD Declining...", "MACD Declining.., Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
         }
//
       else if  (((ind_buffer1[i]<=0)&&(ind_buffer1[i] > ind_buffer1[i+1])&&(ind_buffer1[i+1] > ind_buffer1[i+2])&&(TwoBarsDirChageConfirm))||
                 ((ind_buffer1[i]<=0)&&(ind_buffer1[i] > ind_buffer1[i+1])&&(!TwoBarsDirChageConfirm)))

         {
// <0up
         if (flagval42==0)
           {
           flagval41=0;
           flagval42=1;
           if ((UseAlert)&&(MACDDirectionChangeAlert)) Alert (Symbol(),"   ",TFString,"   MACD Below 0 is Rising   ",TimeToStr(TimeCurrent(),TIME_SECONDS)); 
                if ((EmailAlert)&&(MACDDirectionChangeAlert)) SendMail("MACD Rising...", "MACD Rising.., Date="+TimeToStr(CurTime(),TIME_DATE)+" "+TimeHour(CurTime())+":"+TimeMinute(CurTime())+" Symbol="+Symbol()+" Period="+Period());
           }
         }
//Hook         
         if(UseAlert && MACDHook)
         {
            static datetime alert=0;
            if (alert!=Time[0] && ind_buffer1[i]>ind_buffer2[i] && ind_buffer1[i+2]>ind_buffer1[i+1] && ind_buffer1[i]>ind_buffer1[i+1]) {alert=Time[0]; Alert (Symbol(),"   ",TFString,"   MACD Hook Up   ",TimeToStr(TimeCurrent(),TIME_SECONDS));} 
            if (alert!=Time[0] && ind_buffer1[i]<ind_buffer2[i] && ind_buffer1[i+2]<ind_buffer1[i+1] && ind_buffer1[i]<ind_buffer1[i+1]) {alert=Time[0]; Alert (Symbol(),"   ",TFString,"   MACD Hook Down   ",TimeToStr(TimeCurrent(),TIME_SECONDS));} 
         }
         
         
//

      }
//-

   }
       
//---- done
   return(0);
 }
 
//+------------------------------------------------------------------+
void deleteArrows()
{
   string lookFor       = arrowsIdentifier+":";
   int    lookForLength = StringLen(lookFor);
   for (int i=ObjectsTotal()-1; i>=0; i--)
   {
      string objectName = ObjectName(i);
         if (StringSubstr(objectName,0,lookForLength) == lookFor) ObjectDelete(objectName);
   }
}

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

//+------------------------------------------------------------------+
void drawArrow(string nameAdd, double gapMul, int i,color theColor,int theCode,int theWidth,bool up)
{
   //string name = arrowsIdentifier+":"+nameAdd+":"+Time[i];
   string name = arrowsIdentifier+":"+nameAdd+":"+"\nTime:"+TimeToStr(Time[i],TIME_DATE|TIME_MINUTES);
   double gap  = iATR(NULL,0,20,i)*gapMul;   
   
      
      ObjectCreate(name,OBJ_ARROW,0,Time[i],0);
         ObjectSet(name,OBJPROP_ARROWCODE,theCode);
         ObjectSet(name,OBJPROP_COLOR,theColor);
         ObjectSet(name,OBJPROP_WIDTH,theWidth);
         if (up)
               ObjectSet(name,OBJPROP_PRICE1,High[i] + ArrowGap * gap);
         else  ObjectSet(name,OBJPROP_PRICE1,Low[i]  - ArrowGap * gap);
}

//+------------------------------------------------------------------+
//-------------------------------------------------------------------
string TFtoStr(int period) 
{
 if (period==0) period=Period();
 switch(period) 
 {
  case 1     : return("M1");  break;
  case 5     : return("M5");  break;
  case 15    : return("M15"); break;
  case 30    : return("M30"); break;
  case 60    : return("H1");  break;
  case 240   : return("H4");  break;
  case 1440  : return("D1");  break;
  case 10080 : return("W1");  break;
  case 43200 : return("MN1"); break;
  default    : return(DoubleToStr(period,0));
 }
 return("UNKNOWN");
}

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