//+------------------------------------------------------------------+
//|                                  MTF_BollinderBands w alerts.mq4 |
//|                                      Copyright © 2006, Keris2112 |
//|                               Fixed by Linuxser-Forex TSD © 2008 |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Keris2112"
#property link      "http://www.forex-tsd.com"

#property indicator_chart_window
#property indicator_buffers 3
#property indicator_color1 MediumSeaGreen
#property indicator_color2 MediumSeaGreen
#property indicator_color3 MediumSeaGreen

//---- input parameters
/*************************************************************************
PERIOD_M1   1
PERIOD_M5   5
PERIOD_M15  15
PERIOD_M30  30 
PERIOD_H1   60
PERIOD_H4   240
PERIOD_D1   1440
PERIOD_W1   10080
PERIOD_MN1  43200
You must use the numeric value of the timeframe that you want to use
when you set the TimeFrame' value with the indicator inputs.
---------------------------------------
PRICE_CLOSE    0 Close price. 
PRICE_OPEN     1 Open price. 
PRICE_HIGH     2 High price. 
PRICE_LOW      3 Low price. 
PRICE_MEDIAN   4 Median price, (high+low)/2. 
PRICE_TYPICAL  5 Typical price, (high+low+close)/3. 
PRICE_WEIGHTED 6 Weighted close price, (high+low+close+close)/4. 
You must use the numeric value of the Applied Price that you want to use
when you set the 'applied_price' value with the indicator inputs.
---------------------------------------
MODE_SMA    0 Simple moving average, 
MODE_EMA    1 Exponential moving average, 
MODE_SMMA   2 Smoothed moving average, 
MODE_LWMA   3 Linear weighted moving average. 
You must use the numeric value of the MA Method that you want to use
when you set the 'ma_method' value with the indicator inputs.

**************************************************************************/
extern int TimeFrame=0;
extern int MAPeriod=20;
extern int BandsShift=0;
extern int StdDev=2;
extern int Price=0;

extern int     AlertCandle         = 0;   
extern bool    ShowChartAlerts     = true;                                              
extern string  AlertEmailSubject   = "";   
extern bool Show_Info = true;                                                                                         
datetime       OldTime;
datetime       LastAlertTime       = -999999;                                            
string         AlertTextCrossUp    = "MTF BB - Price Crosses Above Upper Band";                          
string         AlertTextCrossDown  = "MTF BB - Price Crosses Below Lower Band"; 


double ExtMapBuffer1[];
double ExtMapBuffer2[];
double ExtMapBuffer3[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
   string short_name;
//---- indicator line
   SetIndexBuffer(0,ExtMapBuffer1);
   SetIndexStyle(0,DRAW_LINE);
   SetIndexBuffer(1,ExtMapBuffer2);
   SetIndexStyle(1,DRAW_LINE);
   SetIndexBuffer(2,ExtMapBuffer3);
   SetIndexStyle(2,DRAW_LINE);
//---- name for DataWindow and indicator subwindow label   
   switch(TimeFrame)
   {
      case 1 : string TimeFrameStr="Period_M1"; break;
      case 5 : TimeFrameStr="Period_M5"; break;
      case 15 : TimeFrameStr="Period_M15"; break;
      case 30 : TimeFrameStr="Period_M30"; break;
      case 60 : TimeFrameStr="Period_H1"; break;
      case 240 : TimeFrameStr="Period_H4"; break;
      case 1440 : TimeFrameStr="Period_D1"; break;
      case 10080 : TimeFrameStr="Period_W1"; break;
      case 43200 : TimeFrameStr="Period_MN1"; break;
      default : TimeFrameStr="Current Timeframe";
   } 
   IndicatorShortName(short_name+MAPeriod+") "+TimeFrameStr);  
  }
//----
   return(0);
 
//+------------------------------------------------------------------+
//| MTF Moving Average                                   |
//+------------------------------------------------------------------+
int start()
  {
   datetime TimeArray[];
   int    i,shift,limit,y=0,counted_bars=IndicatorCounted();
   string commentstr;
   int index;
   
    
// Plot defined timeframe on to current timeframe   
   ArrayCopySeries(TimeArray,MODE_TIME,Symbol(),TimeFrame); 
   
   limit=Bars-counted_bars+TimeFrame/Period();

   for(i=0,y=0;i<limit;i++)
   {
   if (Time[i]<TimeArray[y]) y++; 
   
 /***********************************************************   
   Add your main indicator loop below.  You can reference an existing
      indicator with its iName  or iCustom.
   Rule 1:  Add extern inputs above for all neccesary values   
   Rule 2:  Use 'TimeFrame' for the indicator timeframe
   Rule 3:  Use 'y' for the indicator's shift value
 **********************************************************/  
    
   ExtMapBuffer1[i]=iBands(NULL,TimeFrame,MAPeriod,StdDev,BandsShift,Price,MODE_MAIN,y);
   ExtMapBuffer2[i]=iBands(NULL,TimeFrame,MAPeriod,StdDev,BandsShift,Price,MODE_UPPER,y); 
   ExtMapBuffer3[i]=iBands(NULL,TimeFrame,MAPeriod,StdDev,BandsShift,Price,MODE_LOWER,y);  
   
   }   
   if (AlertCandle >= 0  &&  Time[0] > LastAlertTime)   {                                                                                        
                                                                                                                                            
     // === Alert processing for crossover UP (indicator line crosses ABOVE signal line) ===                                                     
     if (ExtMapBuffer2[AlertCandle] < Ask)  {                                                           
       string AlertText = Symbol() + "," + TFToStr(Period()) + ": " + AlertTextCrossUp;                                                          
       if (ShowChartAlerts)          Alert(AlertText);                                                                                           
       if (AlertEmailSubject > "")   SendMail(AlertEmailSubject,AlertText);                                                                      
     }                                                                                                                                           
                                                                                                                                                
     // === Alert processing for crossover DOWN (indicator line crosses BELOW signal line) ===                                                   
     if (ExtMapBuffer3[AlertCandle] > Bid)  {                                                       
       AlertText = Symbol() + "," + TFToStr(Period()) + ": " + AlertTextCrossDown;                                                               
       if (ShowChartAlerts)          Alert(AlertText);                                                                                           
       if (AlertEmailSubject > "")   SendMail(AlertEmailSubject,AlertText);                                                                      
     }                                                                                                                                           
                                                                                                                                                
     LastAlertTime = Time[0];    
   }
   
   commentstr="Upper Band : "+DoubleToStr(ExtMapBuffer2[AlertCandle],Digits)+"\nAsk Price : "+DoubleToStr(Ask,Digits)+"\n\nLower Band : "+DoubleToStr(ExtMapBuffer3[AlertCandle],Digits)+"\nBid Price : "+DoubleToStr(Bid,Digits);   
   if(Show_Info == true)
   {
      Comment(commentstr);
   }
   else if(Show_Info == false)
   {
      index = StringFind(commentstr,"Upper Band", 0);
      if(index != -1)
      {
         Comment("");
      }
   }
   return(0);
  }
//+------------------------------------------------------------------+                                                                      
string TFToStr(int tf)   {                                                                                                                      
//+------------------------------------------------------------------+                                                                          
  if (tf == 0)        tf = Period();                                                                                                            
  if (tf >= 43200)    return("MN");                                                                                                             
  if (tf >= 10080)    return("W1");                                                                                                             
  if (tf >=  1440)    return("D1");                                                                                                             
  if (tf >=   240)    return("H4");                                                                                                             
  if (tf >=    60)    return("H1");                                                                                                             
  if (tf >=    30)    return("M30");                                                                                                            
  if (tf >=    15)    return("M15");                                                                                                            
  if (tf >=     5)    return("M5");                                                                                                             
  if (tf >=     1)    return("M1");                                                                                                             
  return("");                                                                                                                                   
}