#property copyright "Copyright © 2012, Rita Lakser"
#property link      "http://www.ritalasker.com"

#property indicator_chart_window
#property indicator_buffers 6
#property indicator_color1 Red
#property indicator_color2 Blue
#property indicator_color3 Black
#property indicator_color4 Black
#property indicator_color5 Black
#property indicator_color6 Black

int g_ma_method_76 = MODE_LWMA;
int g_period_80 = 82;
int gi_unused_84 = 5;
//string gs_88 = "2012.02.27";
int gi_96 = 30;
double g_ibuf_100[];
double g_ibuf_104[];
double g_ibuf_108[];
double g_ibuf_112[];
double g_ibuf_116[];
double g_ibuf_120[];
int gi_132 = 0;
bool gi_136 = TRUE;

int init() {
   gi_136 = TRUE;
   SetIndexBuffer(0, g_ibuf_116);
   SetIndexBuffer(1, g_ibuf_120);
   SetIndexStyle(0, DRAW_ARROW, STYLE_DASH);
   SetIndexArrow(0, 159);
   SetIndexStyle(1, DRAW_ARROW, STYLE_DASH);
   SetIndexArrow(1, 159);
   SetIndexDrawBegin(0, 5);
   SetIndexBuffer(2, g_ibuf_100);
   SetIndexBuffer(3, g_ibuf_104);
   SetIndexBuffer(4, g_ibuf_108);
   SetIndexBuffer(5, g_ibuf_112);
   SetIndexStyle(2, DRAW_NONE);
   SetIndexStyle(3, DRAW_NONE);
   SetIndexStyle(4, DRAW_NONE);
   SetIndexStyle(5, DRAW_NONE);
   return (0);
}

int deinit() {
   return (0);
}

int start() {
   double ima_0;
   double ima_8;
   double ima_16;
   double ima_24;
   double ima_32;
   double ima_40;
   double ld_48;
   double ld_56;
   double ld_64;
   double ld_72;
   if (!gi_136) return (0);
   /*if (gs_88 != "") {
      if (TimeCurrent() > StrToTime(gs_88) + 86400 * gi_96) {
         Alert("Your version is expired!");
         Comment("Your version is expired!");
         gi_136 = FALSE;
         return (0);
      }
   }*/
   if (Bars <= 10) return (0);
   gi_132 = IndicatorCounted();
   if (gi_132 < 0) return (-1);
   if (gi_132 > 0) gi_132--;
   for (int li_80 = Bars - gi_132 - 1; li_80 >= 0; li_80--) {
      ima_0 = iMA(NULL, 0, g_period_80, 0, g_ma_method_76, PRICE_CLOSE, li_80);
      ima_8 = iMA(NULL, 0, g_period_80, 0, g_ma_method_76, PRICE_LOW, li_80);
      ima_16 = iMA(NULL, 0, g_period_80, 0, g_ma_method_76, PRICE_OPEN, li_80);
      ima_24 = iMA(NULL, 0, g_period_80, 0, g_ma_method_76, PRICE_HIGH, li_80);
      ld_48 = (g_ibuf_108[li_80 + 1] + (g_ibuf_112[li_80 + 1])) / 2.0;
      ld_72 = (ima_0 + ima_24 + ima_16 + ima_8) / 4.0;
      ld_56 = MathMax(ima_24, MathMax(ld_48, ld_72));
      ld_64 = MathMin(ima_16, MathMin(ld_48, ld_72));
      ima_32 = iMA(NULL, 0, 30, 1, MODE_SMA, PRICE_LOW, li_80);
      ima_40 = iMA(NULL, 0, 30, 1, MODE_SMA, PRICE_LOW, li_80 - 1);
      if (ld_48 < ld_72) {
         g_ibuf_100[li_80] = ld_64;
         if (g_ibuf_100[li_80] < g_ibuf_104[li_80] && g_ibuf_100[li_80 + 1] < g_ibuf_104[li_80 + 1] && g_ibuf_100[li_80 + 2] > g_ibuf_104[li_80 + 2]) {
         }
         g_ibuf_104[li_80] = ld_56;
      } else {
         g_ibuf_100[li_80] = ld_56;
         g_ibuf_104[li_80] = ld_64;
         if (g_ibuf_100[li_80] > g_ibuf_104[li_80] && g_ibuf_100[li_80 + 1] > g_ibuf_104[li_80 + 1] && g_ibuf_100[li_80 + 2] < g_ibuf_104[li_80 + 2]) {
         }
      }
      g_ibuf_108[li_80] = ld_48;
      g_ibuf_112[li_80] = ld_72;
      if (g_ibuf_108[li_80] >= g_ibuf_112[li_80]) {
         g_ibuf_116[li_80] = g_ibuf_108[li_80];
         g_ibuf_120[li_80] = EMPTY_VALUE;
      } else {
         g_ibuf_120[li_80] = g_ibuf_112[li_80];
         g_ibuf_116[li_80] = EMPTY_VALUE;
      }
   }
   return (0);
}