/*
   Generated by EX4-TO-MQ4 decompiler V4.0.224.1 []
   Website: http://purebeam.biz
   E-mail : purebeam@gmail.com
*/
#property copyright "Copyright © 2008, MetaQuotes Software Corp."
#property link      "http://www.forexindo.com/forum/showthread.php?t=95&page=9"

#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Black

extern int Corner = 1;
extern color MA_Year_Color = MediumBlue;
extern color MA_4Month_Color = MediumBlue;
extern color MA_Month_Color = MediumBlue;
extern color MA_Week_Color = MediumBlue;
extern color MA_Day_Color = MediumBlue;
extern color MA_8H_Color = MediumBlue;
extern color MA_4H_Color = MediumBlue;

int init() {
   string l_name_0 = "BB Yearly";
   ObjectDelete(l_name_0);
   ObjectCreate(l_name_0, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_0, "Yearly", 8, "Arial Bold", MA_Year_Color);
   ObjectSet(l_name_0, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_0, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_0, OBJPROP_YDISTANCE, 10);
   string l_name_8 = "BB 4Month";
   ObjectDelete(l_name_8);
   ObjectCreate(l_name_8, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_8, "4Month", 8, "Arial Bold", MA_4Month_Color);
   ObjectSet(l_name_8, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_8, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_8, OBJPROP_YDISTANCE, 20);
   string l_name_16 = "BB Monthly";
   ObjectDelete(l_name_16);
   ObjectCreate(l_name_16, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_16, "Monthly", 8, "Arial Bold", MA_Month_Color);
   ObjectSet(l_name_16, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_16, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_16, OBJPROP_YDISTANCE, 30);
   string l_name_24 = "BB Weekly";
   ObjectDelete(l_name_24);
   ObjectCreate(l_name_24, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_24, "Weekly", 8, "Arial Bold", MA_Week_Color);
   ObjectSet(l_name_24, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_24, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_24, OBJPROP_YDISTANCE, 40);
   string l_name_32 = "BB Daily";
   ObjectDelete(l_name_32);
   ObjectCreate(l_name_32, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_32, "Daily", 8, "Arial Bold", MA_Day_Color);
   ObjectSet(l_name_32, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_32, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_32, OBJPROP_YDISTANCE, 50);
   string l_name_40 = "BB 8 Hours";
   ObjectDelete(l_name_40);
   ObjectCreate(l_name_40, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_40, "8Hours", 8, "Arial Bold", MA_8H_Color);
   ObjectSet(l_name_40, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_40, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_40, OBJPROP_YDISTANCE, 60);
   string l_name_48 = "BB 4 Hours";
   ObjectDelete(l_name_48);
   ObjectCreate(l_name_48, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_48, "4Hours", 8, "Arial Bold", MA_4H_Color);
   ObjectSet(l_name_48, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_48, OBJPROP_XDISTANCE, 3);
   ObjectSet(l_name_48, OBJPROP_YDISTANCE, 70);
   string l_name_56 = "Bollinger Bands";
   ObjectDelete(l_name_56);
   ObjectCreate(l_name_56, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_56, "BB", 8, "Arial Bold", MA_Day_Color);
   ObjectSet(l_name_56, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_56, OBJPROP_XDISTANCE, 51);
   ObjectSet(l_name_56, OBJPROP_YDISTANCE, 90);
   return (0);
}

int deinit() {
   string l_name_4;
   for (int li_0 = ObjectsTotal() - 1; li_0 >= 0; li_0--) {
      l_name_4 = ObjectName(li_0);
      if (StringSubstr(l_name_4, 0, 5) == "KG MA") ObjectDelete(l_name_4);
   }
   return (0);
}

int start() {
   string l_text_8;
   color l_color_16;
   int l_ind_counted_0 = IndicatorCounted();
   int li_4 = Bars - l_ind_counted_0;
   if (l_ind_counted_0 > 0) li_4++;
   double l_ibands_20 = iBands(NULL, PERIOD_H4, 1440, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   double l_ibands_28 = iBands(NULL, PERIOD_H4, 1440, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_H4, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_H4, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_H4, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_H4, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_36 = "Yearly BB";
   ObjectDelete(l_name_36);
   ObjectCreate(l_name_36, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_36, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_36, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_36, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_36, OBJPROP_YDISTANCE, 10);
   l_ibands_20 = iBands(NULL, PERIOD_H1, 1920, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   l_ibands_28 = iBands(NULL, PERIOD_H1, 1920, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_H1, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_H1, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_H1, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_H1, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_44 = "4 Month BB";
   ObjectDelete(l_name_44);
   ObjectCreate(l_name_44, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_44, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_44, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_44, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_44, OBJPROP_YDISTANCE, 20);
   l_ibands_20 = iBands(NULL, PERIOD_M15, 1920, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   l_ibands_28 = iBands(NULL, PERIOD_M15, 1920, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_52 = "Monthly BB";
   ObjectDelete(l_name_52);
   ObjectCreate(l_name_52, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_52, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_52, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_52, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_52, OBJPROP_YDISTANCE, 30);
   l_ibands_20 = iBands(NULL, PERIOD_M15, 480, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   l_ibands_28 = iBands(NULL, PERIOD_M15, 480, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_60 = "Weekly BB";
   ObjectDelete(l_name_60);
   ObjectCreate(l_name_60, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_60, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_60, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_60, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_60, OBJPROP_YDISTANCE, 40);
   l_ibands_20 = iBands(NULL, PERIOD_M15, 96, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   l_ibands_28 = iBands(NULL, PERIOD_M15, 96, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_M15, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_68 = "Daily BB";
   ObjectDelete(l_name_68);
   ObjectCreate(l_name_68, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_68, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_68, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_68, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_68, OBJPROP_YDISTANCE, 50);
   l_ibands_20 = iBands(NULL, PERIOD_M5, 96, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   l_ibands_28 = iBands(NULL, PERIOD_M5, 96, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_76 = "8H BB";
   ObjectDelete(l_name_76);
   ObjectCreate(l_name_76, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_76, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_76, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_76, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_76, OBJPROP_YDISTANCE, 60);
   l_ibands_20 = iBands(NULL, PERIOD_M5, 48, 1, 0, PRICE_WEIGHTED, MODE_UPPER, 0);
   l_ibands_28 = iBands(NULL, PERIOD_M5, 48, 1, 0, PRICE_WEIGHTED, MODE_LOWER, 0);
   if (iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) >= l_ibands_28 && iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) <= l_ibands_20) {
      l_text_8 = "ó";
      l_color_16 = DarkOrange;
   } else {
      if (iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_20 && iMA(NULL, PERIOD_M5, 2, 0, MODE_SMA, PRICE_WEIGHTED, 0) > l_ibands_28) {
         l_text_8 = "ñ";
         l_color_16 = Lime;
      } else {
         l_text_8 = "ò";
         l_color_16 = Red;
      }
   }
   string l_name_84 = "4H BB";
   ObjectDelete(l_name_84);
   ObjectCreate(l_name_84, OBJ_LABEL, 0, 0, 0);
   ObjectSetText(l_name_84, l_text_8, 10, "Wingdings", l_color_16);
   ObjectSet(l_name_84, OBJPROP_CORNER, Corner);
   ObjectSet(l_name_84, OBJPROP_XDISTANCE, 53);
   ObjectSet(l_name_84, OBJPROP_YDISTANCE, 70);
   return (0);
}