i-Fibo_levels

//+------------------------------------------------------------------+
//|                                                             .mq4 |
//|                      Copyright © 2010, MetaQuotes Software Corp. |
//|                            "http://www.mql4.com/ru/users/costy_" |
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
#property copyright "Copyright © 2010, MetaQuotes Software Corp."
#property link      "http://www.mql4.com/ru/users/costy_"

#property indicator_chart_window
extern string     xxxxxxxxxxxxxxxxxxxõxxxxxxxxxx="---------------------------------------------------------";
extern int    Method=0;
extern string description="Óðîâåíü";
extern color  color_Fibo=Gold;

//æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ     
int i,ii,iii,iiii;
datetime SaveBeginTimeDay;
string name_object[50001],Str_fibo_yrovni[21]={"0","0.236","0.382","0.5","0.618","1","1.61","2.61","3.61","4.23","4.61","-0.236","-0.382","-0.5","-0.618","-1","-1.61","-2.61","-3.61","-4.23","-4.61"};
double fibo_yrovni[21]={0,0.236,0.382,0.5,0.618,1,1.61,2.61,3.61,4.23,4.61,-0.236,-0.382,-0.5,-0.618,-1,-1.61,-2.61,-3.61,-4.23,-4.61};
//ææ init ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ 
int init(){ for(i=0; i<=50000; i++)name_object[i]="name_"+i;return(0);}
//ææ deinit ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ
int deinit(){  for(i=0; i<=50000; i++)ObjectDelete(name_object[i]);Comment("");return(0);}
//ææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ    
int start()
  {
//----
   if(Period()>=15){Alert("Ðàáîòàåò íà ôðýéìàõ Ì1 è Ì5");return(0);}  

   int counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;
   int limit=Bars-counted_bars;
   if(counted_bars==0) limit--;   
//----
   for(i=limit; i>=0; i--)
     {
      int BeginBarDay=iBarShift(Symbol(),0,iTime(Symbol(),PERIOD_D1,iBarShift(Symbol(),PERIOD_D1,Time[i])));
      int BeginBar2Day=iBarShift(Symbol(),0,iTime(Symbol(),PERIOD_D1,1+iBarShift(Symbol(),PERIOD_D1,Time[i])));
      datetime BeginTimeDay=iTime(Symbol(),PERIOD_D1,iBarShift(Symbol(),PERIOD_D1,Time[i]));

      if(SaveBeginTimeDay!=BeginTimeDay)
        {
         SaveBeginTimeDay=BeginTimeDay;
         for(ii=0; ii<=50000; ii++)
            if(ObjectFind(name_object[ii])==-1)break;
         for(iiii=0; iiii<ii; iiii++)
            if(ObjectGet(name_object[iiii],OBJPROP_TIME2)==BeginTimeDay)return(0);

         if(Method==0)
            ObjectCreate(name_object[ii],OBJ_FIBO,0,BeginTimeDay+Barof(),Open[BeginBarDay]+100*Point,BeginTimeDay,Open[BeginBarDay]);
         else
            ObjectCreate(name_object[ii],OBJ_FIBO,0,BeginTimeDay+Barof(),Open[BeginBar2Day],BeginTimeDay,Open[BeginBarDay]);
         ObjectSet(name_object[ii],OBJPROP_RAY,false);
         ObjectSet(name_object[ii],OBJPROP_FIBOLEVELS,21);
         ObjectSet(name_object[ii],OBJPROP_COLOR,EMPTY);
         ObjectSet(name_object[ii],OBJPROP_LEVELCOLOR,color_Fibo);

         for(iii=0; iii<21; iii++)
           {
            ObjectSet(name_object[ii],OBJPROP_FIRSTLEVEL+iii,fibo_yrovni[iii]);
            ObjectSetFiboDescription(name_object[ii],iii,description+" "+Str_fibo_yrovni[iii]+"  ");
           }
        }
     }
   return(0);
  }
//æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ     
int Barof()
  {
   switch(Period())
     {
      case 1:     return(140*Period()*60);
      case 5:     return(29 *Period()*60);
     }
  }
//æææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææææ