i-UrovenBVO_v_1_1

//+------------------------------------------------------------------+
//|                               29.02.2012   i-UrovenBVO v.1.1.mq4 |
//|                                                           bor-ix |
//+------------------------------------------------------------------+
#property copyright "bor-ix i-UrovenBVO v.1.1 îò 29.02.2012 18:10"
#property indicator_chart_window

extern int  RShrift   = 9; //ðàçìåð øðèôòà íàäïèñèåé

int deinit()
{
   Del_comment("Order.");
   Del_comment("VUrove");
   Del_comment("signal");
   return(0);
}

int init()  {  return(0);  }

int start()
  {
  Del_comment("Order.");
  Del_comment("VUrove");
  Del_comment("signal");
 
  if(ObjectFind("Order1") == 0)
  {
      double H1 = ObjectGet("Order1", OBJPROP_PRICE1);
      double V1 = StrToDouble(ObjectDescription("Order1")); 
      
      ObjectCreate("Order.1 ", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H1);
      ObjectSetText("Order.1 ", "Order1 = " + DoubleToStr(V1,2), RShrift, "Times New Roman", Blue);
      
  } else {H1 = 0; V1 = 0;}

  if(ObjectFind("Order2") == 0)
  {
      double H2 = ObjectGet("Order2", OBJPROP_PRICE1);
      double V2 = StrToDouble(ObjectDescription("Order2")); 
      
      ObjectCreate("Order.2 ", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H2);
      ObjectSetText("Order.2 ", "Order2 = " + DoubleToStr(V2,2), RShrift, "Times New Roman", Blue);
      
   } else {H2 = 0; V2 = 0;}
  
  if(ObjectFind("Order3") == 0)
  {
      double H3 = ObjectGet("Order3", OBJPROP_PRICE1);
      double V3 = StrToDouble(ObjectDescription("Order3")); 
      
      ObjectCreate("Order.3", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H3);
      ObjectSetText("Order.3", "Order3 = " + DoubleToStr(V3,2), RShrift, "Times New Roman", Blue);
 
  } else {H3 = 0; V3 = 0;}

  if(ObjectFind("Order4") == 0)
  {
      double H4 = ObjectGet("Order4", OBJPROP_PRICE1);
      double V4 = StrToDouble(ObjectDescription("Order4")); 

      ObjectCreate("Order.4", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H4);
      ObjectSetText("Order.4", "Order4 = " + DoubleToStr(V4,2), RShrift, "Times New Roman", Blue);
  
  } else {H4 = 0; V4 = 0;}

  if(ObjectFind("Order5") == 0)
  {
      double H5 = ObjectGet("Order5", OBJPROP_PRICE1);
      double V5 = StrToDouble(ObjectDescription("Order5")); 

      ObjectCreate("Order.5", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H5);
      ObjectSetText("Order.5", "Order5 = " + DoubleToStr(V5,2), RShrift, "Times New Roman", Blue);

  
  } else {H5 = 0; V5 = 0;}

  if(ObjectFind("Order6") == 0)
  {
      double H6 = ObjectGet("Order6", OBJPROP_PRICE1);
      double V6 = StrToDouble(ObjectDescription("Order6")); 

      ObjectCreate("Order.6", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H6);
      ObjectSetText("Order.6", "Order6 = " + DoubleToStr(V6,2), RShrift, "Times New Roman", Blue);
  
  } else {H6 = 0; V6 = 0;}

  if(ObjectFind("Order7") == 0)
  {
      double H7 = ObjectGet("Order7", OBJPROP_PRICE1);
      double V7 = StrToDouble(ObjectDescription("Order7")); 

      ObjectCreate("Order.7", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H7);
      ObjectSetText("Order.7", "Order7 = " + DoubleToStr(V7,2), RShrift, "Times New Roman", Blue);

  } else {H7 = 0; V7 = 0;}

  if(ObjectFind("Order8") == 0)
  {
      double H8 = ObjectGet("Order8", OBJPROP_PRICE1);
      double V8 = StrToDouble(ObjectDescription("Order8"));
      
      ObjectCreate("Order.8", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H8);
      ObjectSetText("Order.8", "Order8 = " + DoubleToStr(V8,2), RShrift, "Times New Roman", Blue);
      
  } else {H8 = 0; V8 = 0;}

  if(ObjectFind("Order9") == 0)
  {
      double H9 = ObjectGet("Order9", OBJPROP_PRICE1);
      double V9 = StrToDouble(ObjectDescription("Order9")); 
      
      ObjectCreate("Order.9", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H9);
      ObjectSetText("Order.9", "Order9 = " + DoubleToStr(V9,2), RShrift, "Times New Roman", Blue);
      
  } else {H9 = 0; V9 = 0;}

  if(ObjectFind("Order10") == 0)
  {
      double H10 = ObjectGet("Order10", OBJPROP_PRICE1);
      double V10 = StrToDouble(ObjectDescription("Order10")); 
      
      ObjectCreate("Order.10", OBJ_TEXT, 0, TimeCurrent()+Period()*3000, H10);
      ObjectSetText("Order.10", "Order10 = " + DoubleToStr(V10,2), RShrift, "Times New Roman", Blue);

  } else {H10 = 0; V10 = 0;}
 
 double spread = MarketInfo(Symbol(), MODE_SPREAD);
 
 if(ObjectFind("Order1") == -1 && 
    ObjectFind("Order2") == -1 &&
    ObjectFind("Order3") == -1 &&
    ObjectFind("Order4") == -1 &&
    ObjectFind("Order5") == -1 &&
    ObjectFind("Order6") == -1 &&
    ObjectFind("Order7") == -1 &&
    ObjectFind("Order8") == -1 &&
    ObjectFind("Order9") == -1 &&
    ObjectFind("Order10") == -1)
    {
      ObjectCreate("signal", OBJ_TEXT, 0, TimeCurrent(), Bid - spread*Point);
      ObjectSetText("signal", "óñòàíîâèòå âèðòóàëüíûé îðäåð - 'Order...'", RShrift, "Times New Roman", Blue);
    }
    
 double summV = V1 + V2 + V3 + V4 + V5 + V6 + V7 + V8 + V9 + V10;
 
 if (summV != 0)
 {
   double Znach = (H1*V1 + H2*V2 + H3*V3 + H4*V4 + H5*V5 + H6*V6 + H7*V7 + H8*V8 + H9*V9 + H10*V10)/summV;
 }
 
 ObjectDelete("VUrove");
 ObjectCreate("VUrove", OBJ_HLINE, 0, 0, Znach);
 ObjectSet("VUrove", OBJPROP_COLOR, Red);
 ObjectSet("VUrove", OBJPROP_STYLE, 1);
 ObjectSet("VUrove", OBJPROP_WIDTH, 1);
 
 ObjectCreate("VUrove.", OBJ_TEXT, 0, TimeCurrent()+Period()*1000, Znach);
 ObjectSetText("VUrove.", "Óðîâåíü Áåçóáûòêà", RShrift, "Times New Roman", Red);
  
   return(0);
}

void Del_comment(string index)
{
  for(int i=ObjectsTotal()-1;  i>=0;  i--)
 { 
   string name = ObjectName(i);
   if(index == StringSubstr(name, 0, 6)) ObjectDelete(name);
 }
 return(0);
}