//+------------------------------------------------------------------+
//|                                                 Fantom_price.mq4 |
//|                                                             Roll |
//+------------------------------------------------------------------+
#property copyright "Roll"
#property link      "http://www.mql4.com/ru/users/Roll"
#property indicator_chart_window
extern bool ShowBidlabel=true;//показать ценовую метку на уровне Bid
extern color labelcolor=YellowGreen;//цвет ценовой метки
extern int Shift=5;//сдвиг ценовой метки в барах относительно 0-бара
extern int Size_=5;//размер ценовой метки
double TradePoint;int digits; 
int init(){digits=MarketInfo(Symbol(),MODE_DIGITS);TradePoint=MarketInfo(Symbol(),MODE_POINT);
          if(digits==3||digits==5)TradePoint=TradePoint*10;return(0);}
int deinit(){for(int i=10;i>0;i--){string text="Circle"+DoubleToStr(i,0);ObjectDelete(text);}ObjectDelete("Bidlabel");return(0);}
int start(){double Cl=Close[0];ICircle("Circle1",Yellow,10,20,1,Cl,Cl,1);ICircle("Circle2",Yellow,50,60,1,Cl,Cl,1);
ICircle("Circle3",Green,12,18,0.6,Cl,Cl,1);ICircle("Circle4",Green,52,58,0.6,Cl,Cl,1);
ICircle("Circle5",PowderBlue,1,70,1,Cl,Cl,0);ICircle("Circle6",Chocolate,29,40,0.25,Cl-12*TradePoint,Cl-12*TradePoint,1);
ICircle("Circle7",Silver,12,27,9,Cl+16*TradePoint,Cl+6*TradePoint,1);ICircle("Circle8",Silver,44,58,9,Cl+6*TradePoint,Cl+16*TradePoint,1);
ICircle("Circle9",Yellow,14,16,0.25,Cl,Cl,1);ICircle("Circle10",Yellow,54,56,0.25,Cl,Cl,1);
datetime t=Time[0]+Shift*Period()*60;if(ShowBidlabel){if(ObjectFind("Bidlabel")!=0)
{ObjectCreate("Bidlabel",OBJ_ARROW,0,t,Cl);ObjectSet("Bidlabel",OBJPROP_ARROWCODE,SYMBOL_RIGHTPRICE);
 ObjectSet("Bidlabel",OBJPROP_COLOR,labelcolor);ObjectSet("Bidlabel",OBJPROP_WIDTH,Size_);}
if(ObjectFind("Bidlabel")==0)ObjectMove("Bidlabel",0,t,Cl);}else ObjectDelete("Bidlabel");return(0);} 
//+------------------------------------------------------------------+
void ICircle(string UniqueName,color colorCircle,int I,int Di,double Dev,double Cprice1,double Cprice2,bool colorBACK) 
{if(ObjectFind(UniqueName)!=0){ObjectCreate(UniqueName,OBJ_ELLIPSE,0,0,0);
 ObjectSet(UniqueName,OBJPROP_TIME1,Time[I]);ObjectSet(UniqueName,OBJPROP_PRICE1,Cprice1);
 ObjectSet(UniqueName,OBJPROP_TIME2,Time[Di]);ObjectSet(UniqueName,OBJPROP_PRICE2,Cprice2); 
 ObjectSet(UniqueName,OBJPROP_SCALE,Dev);ObjectSet(UniqueName,OBJPROP_COLOR,colorCircle);
 ObjectSet(UniqueName,OBJPROP_BACK,colorBACK);}
 if(ObjectFind(UniqueName)==0){ObjectMove(UniqueName,0,Time[I],Cprice1);ObjectMove(UniqueName,1,Time[Di],Cprice2);}}
//+------------------------------------------------------------------+