WPR ALERT

//+------------------------------------------------------------------+
//|                                                    WPR ALERT.mq4 |
//|                      Copyright © 2007, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2004, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

//---- input parameters
extern int       periodWPR=14;
extern int       HFEhigh=-5;
extern int       HFElow=-95;
double WPR1,WPR2;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int  start()
  {
WPR1=iWPR(NULL,0,periodWPR,0);
WPR2=iWPR(NULL,0,periodWPR,1);
Comment("                                                                                      WPR(",periodWPR,") = ",WPR1,"\n",
        "                                                                   Hook From Extreme HIGH=",HFEhigh,"\n",
        "                                                                   Hook From Extreme LOW=",HFElow);
  
   if(WPR2 > HFEhigh && WPR1 < HFEhigh)
         
      {
      Alert("WPR <",HFEhigh,"...Hook From Extreme HIGH  ",Symbol());
         
      }   
      if(WPR2 < HFElow && WPR1 > HFElow )
         
      {
      Alert("WPR >",HFElow,"...Hook From Extreme LOW  ",Symbol());
         
      }   


 }
   return(0);