//---- input parameters
extern int FastEMA=18;
extern int MedEMA=45;
extern int SlowEMA=72;

double EMA1,EMA2,EMA3,EMA4;
double EMA5,EMA6,EMA7,EMA8;
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int start()
{

EMA1=iMA(NULL,0,18,0,MODE_EMA,PRICE_CLOSE,0);
EMA2=iMA(NULL,0,72,0,MODE_EMA,PRICE_CLOSE,0);
EMA3=iMA(NULL,0,18,0,MODE_EMA,PRICE_CLOSE,1);
EMA4=iMA(NULL,0,72,0,MODE_EMA,PRICE_CLOSE,1);

EMA5=iMA(NULL,0,18,0,MODE_EMA,PRICE_CLOSE,0);
EMA6=iMA(NULL,0,45,0,MODE_EMA,PRICE_CLOSE,0);
EMA7=iMA(NULL,0,18,0,MODE_EMA,PRICE_CLOSE,1);
EMA8=iMA(NULL,0,45,0,MODE_EMA,PRICE_CLOSE,1);

// EMA72 Crossover
bool not_done = true; while(not_done){
if (EMA1 > EMA2 && EMA3 < EMA4)
{
SendMail(Symbol()+" 72EMA Bullish",Symbol()+" 72EMA Cross Up");
not_done=false;
Sleep(500);
PlaySound("sirenhilo.wav");
}
if (EMA2 > EMA1 && EMA4 < EMA3) 
{
SendMail(Symbol()+" 72EMA Bearish",Symbol()+" 72EMA Cross Down");
not_done=false;
Sleep(500);
PlaySound("sirenhilo.wav");
}

// EMA45 Crossover
if (EMA5 > EMA6 && EMA7 < EMA8)
{
SendMail(Symbol()+" 45EMA Bullish",Symbol()+" 45EMA Cross Up");
not_done=false;
Sleep(500);
PlaySound("sirenhilo.wav");
}
if (EMA6 > EMA5 && EMA8 < EMA7) 
{
SendMail(Symbol()+" 45EMA Bearish",Symbol()+" 45EMA Cross Down");
not_done=false;
Sleep(500);
PlaySound("sirenhilo.wav");
}

}
return (0);
}