//+------------------------------------------------------------------+
//|                                                     AutoFibo.mq4 |
//|                                                     Hajime Tsuro |
//|                                                  http://sefx.net |
//+------------------------------------------------------------------+
#property copyright "Hajime Tsuro (emija)"
#property link      "emija_fx(by Twitter)"

#property indicator_chart_window
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectDelete("Fibo");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
extern int lookback = 35;
extern int lastbar = 0;
extern color FibColor= LightSeaGreen;
int start()
  {
  ObjectDelete("Fibo");
   int    countedBars=IndicatorCounted();
//----
   double low;
   double high;
   double lowest=1000;
   double highest=0;
   datetime lowestBarTime;
   datetime highestBarTime;
   for(int i=lookback+lastbar;i>lastbar+1;i--)
   {
      low = iLow(Symbol(),Period(),i);
      high = iHigh(Symbol(),Period(),i);
      if(low < lowest)
      {
         lowest = low;
         lowestBarTime = iTime(Symbol(),Period(),i);
      }  
      if(high > highest)
      {
         highest = high;
         highestBarTime = iTime(Symbol(),Period(),i);
      }  
   }
   
   Comment(highest, lowest);
   if(lowestBarTime<highestBarTime)
   {
      ObjectCreate("Fibo", OBJ_FIBO, 0, highestBarTime, highest, lowestBarTime, lowest);
   }
   else
   {
      ObjectCreate("Fibo", OBJ_FIBO, 0, lowestBarTime, lowest, highestBarTime, highest);
   }

//----
 
   string fiboobjname = "Fibo";
   ObjectSet(fiboobjname, OBJPROP_FIBOLEVELS, 11);
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL, 0.0);
   ObjectSetFiboDescription(fiboobjname,0,"Low    %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+1, 0.236);
   ObjectSetFiboDescription(fiboobjname,1,"23.6     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+2, 0.382);
   ObjectSetFiboDescription(fiboobjname,2,"38.2     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+3, 0.50);
   ObjectSetFiboDescription(fiboobjname,3,"50.0     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+4, 0.618);
   ObjectSetFiboDescription(fiboobjname,4,"61.8     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+5, 0.764);
   ObjectSetFiboDescription(fiboobjname,5,"76.4     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+6, 1.000);
   ObjectSetFiboDescription(fiboobjname,6,"High    %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+7, 1.236);
   ObjectSetFiboDescription(fiboobjname,7,"123.6     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+8, 1.382);
   ObjectSetFiboDescription(fiboobjname,8,"138.2     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+9, 1.50);
   ObjectSetFiboDescription(fiboobjname,9,"150.0     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+10, 1.618);
   ObjectSetFiboDescription(fiboobjname,10,"161.8     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+11, 2.000);
   ObjectSetFiboDescription(fiboobjname,11,"200.0     %$");
   ObjectSet(fiboobjname, OBJPROP_FIRSTLEVEL+12, 2.618);
   ObjectSetFiboDescription(fiboobjname,12,"261.8     %$");
   ObjectSet( "Fibo", OBJPROP_LEVELCOLOR, FibColor) ;
   ObjectsRedraw();
   return(0);
  }
//+------------------------------------------------------------------+