Fibonnaci_Alert

//+------------------------------------------------------------------+
//|                                             Fibonnacci_Alert.mq4 |
//+------------------------------------------------------------------+
#property copyright "Melpheos from ForexFactory"

#property indicator_chart_window
extern string StartLine="Start of Movement";
extern string EndLine="End of Movement";
extern color StartColor=Blue;
extern color EndColor=Red;
extern int LineStyle=STYLE_SOLID;
extern double FibLevel = 0.382;
extern string AlertWav="alert.wav";

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectDelete (StartLine);
   ObjectDelete (EndLine);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
string Direction;
double Fib;


      ObjectCreate(StartLine, OBJ_HLINE, 0, 0, Bid);
      ObjectCreate(EndLine, OBJ_HLINE, 0, 0, Ask);
      ObjectSet(StartLine, OBJPROP_STYLE, LineStyle);
      ObjectSet(StartLine, OBJPROP_COLOR, StartColor);
      ObjectSet(EndLine, OBJPROP_STYLE, LineStyle);
      ObjectSet(EndLine, OBJPROP_COLOR, EndColor);
        
      double StartPrice =  ObjectGet( StartLine, OBJPROP_PRICE1);
      double EndPrice =  ObjectGet( EndLine, OBJPROP_PRICE1);

// Define move direction     
 
      if (StartPrice < EndPrice) Direction = "UpMove";
         else Direction = "DownMove";
         
// Check if necessary to move lines

      if ((Direction == "UpMove") && (Bid > EndPrice))
         ObjectMove(EndLine, 0, TimeCurrent(), Bid);
      if ((Direction == "DownMove") && ( Bid < EndPrice))
         ObjectMove(EndLine, 0, TimeCurrent(), Bid);
         
// Check Price of Fib level

      if (Direction == "UpMove") Fib = EndPrice - ((EndPrice - StartPrice)*FibLevel);
      if (Direction == "DownMove") Fib = EndPrice + ((StartPrice - EndPrice)*FibLevel);
Comment(Fib,"  ", StartPrice, "  ", EndPrice, "    ", Direction);
      
// Check Alert

      if ((Direction == "UpMove") && (Bid < Fib)) PlaySound(AlertWav);
      if ((Direction == "DownMove") && (Bid > Fib)) PlaySound(AlertWav); 
         
//----
//----
   return(0);
  }
//+------------------------------------------------------------------+