+JoGET#58+

//+------------------------------------------------------------------+
//|                                                   +JoGET#58+.mq4 |
//|                                        Copyright © 2008, masemus |
//|                                                 Gresik@Indonesia |
//+------------------------------------------------------------------+
#property copyright "masemus"
#property link      "masemus@yahoo.com"

#property indicator_chart_window

//---- Pos!
extern int window       = 0;
extern int corner       = 3;

//---- BBAO
int FastMA       = 5;
int SlowMA       = 12;
int MA_Mode      = MODE_EMA;
int MA_PriceType = PRICE_CLOSE;
int BBperiode    = 10;
double StDv      = 1;

//---- BuySell
extern color DN_clr     = DeepPink;
extern color UP_clr     = DodgerBlue;
extern color SW_clr     = DarkGray;
extern color tDN_clr    = LightPink;
extern color tUP_clr    = LightSkyBlue;
extern color tSW_clr    = LightGray;
extern color Time_clr   = Magenta;
extern color Spread_clr = RosyBrown;
extern color Text_clr   = Silver;

//---- MarketToday :: Mtr
extern color DN0_clr    = Yellow;
extern color DN1_clr    = Gold;
extern color DN2_clr    = Orange;
extern color DN3_clr    = DarkOrange;
extern color DN4_clr    = OrangeRed;
extern color DN5_clr    = Red;
extern color UP0_clr    = GreenYellow;
extern color UP1_clr    = LightGreen;
extern color UP2_clr    = LimeGreen;
extern color UP3_clr    = MediumSeaGreen;
extern color UP4_clr    = SeaGreen;
extern color UP5_clr    = Green;
extern color SW0_clr    = DarkGray;
extern color SW2dn_clr  = LightPink;
extern color SW2up_clr  = LightSkyBlue;


//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {    
  //*****************************************************************************************************
   //Info
   string Teks="", Teks_Menit, Teks_Detik;
   double d_A, d_B;

   //Time for Next Candle
   d_B = (Time[4]-Time[5])-MathMod(CurTime(),Time[4]-Time[5]);
   d_A = d_B/60;
   d_B = (d_A-MathFloor(d_A))*60;
   d_A = MathFloor(d_A);
   Teks_Menit = DoubleToStr(d_A,0);
   Teks_Detik = DoubleToStr(d_B,0);
   Teks=Teks_Menit+":"+Teks_Detik;

   //Price
   double Price1 = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0);   
    Teks=DoubleToStr(Price1,Digits);

   int R1=0,R5=0,R10=0,R20=0,RAvg=0,i=0;
   R1 =  (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
   for(i=1;i<=5;i++)
      R5    =    R5  +  (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
   for(i=1;i<=10;i++)
      R10   =    R10 +  (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;
   for(i=1;i<=20;i++)
      R20   =    R20 +  (iHigh(NULL,PERIOD_D1,i)-iLow(NULL,PERIOD_D1,i))/Point;

   R5 = R5/5;
   R10 = R10/10;
   R20 = R20/20;
   RAvg  =  (R1+R5+R10+R20)/4;    
   
   string HI="",LO="",SPREAD="",PIPS="",DAV="",HILO="",PRC,Pips="",Av="",AV_Yest="";
   string OPEN="";
   color color_pip,color_av;
   double Open_Today = iOpen(NULL,1440,0);
   double CLOSE = iClose(NULL,1440,0);
   double SPRD = (Ask - Bid)/Point;
   double High_Today = iHigh(NULL,1440,0);
   double Low_Today = iLow(NULL,1440,0);
   PIPS =  DoubleToStr((CLOSE-Open_Today)/Point,0);
   SPREAD = (DoubleToStr(SPRD,Digits-4));
   DAV = (DoubleToStr(RAvg,Digits-4));
   AV_Yest =  (iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point;
   HILO = DoubleToStr((High_Today-Low_Today)/Point,0);
   OPEN =  (DoubleToStr(Open_Today,Digits));
   HI =  (DoubleToStr(High_Today,Digits));
   LO =  (DoubleToStr(Low_Today,Digits));
  
     if (CLOSE >= Open_Today) {Pips= "-";color_pip = LimeGreen; }
     if (CLOSE < Open_Today) {Pips= "-";color_pip = DarkOrange; }
     if (DAV > AV_Yest) {Av= "-";color_av = LimeGreen; }
     if (DAV < AV_Yest) {Av= "-";color_av = DarkOrange; }

  //*****************************************************************************************************
   //D1_TREND
   string D1Mid="",D1Pivot="",D1OPEN="";
   color color_d1op;
   double Open_D1 = iOpen(NULL,1440,0);
   D1OPEN =  (DoubleToStr(Open_D1,Digits));
   double D1r = iHigh(NULL,PERIOD_D1,1) - iLow(NULL,PERIOD_D1,1);
   double D1R = (iHigh(NULL,PERIOD_D1,1) + iLow(NULL,PERIOD_D1,1))/2;
   double D1P = (iHigh(NULL,PERIOD_D1,1) + iLow(NULL,PERIOD_D1,1) + iClose(NULL,PERIOD_D1,1))/3;
   D1Mid = DoubleToStr(D1R,Digits);
   D1Pivot = DoubleToStr(D1P,Digits);

     if (D1OPEN > D1Pivot) {color_d1op=LimeGreen;}
     if (D1OPEN < D1Pivot) {color_d1op=Orange;}
     if (D1OPEN == D1Pivot) {color_d1op=DarkGray;}

   //MarketD1
   string SW01="",UP01="",UP02="",UP03="",
          UP04="",UP05="",UP06="",Mid00="",
          TPb1="",TPb2="",TPb3="",TPs1="",TPs2="",TPs3="",
          TP1="",TP2="",TP3="";
   color Midplus_clr,UPtp1D1_clr,UPtp2D1_clr,UPtp3D1_clr,
         UPtp4D1_clr,UPtp5D1_clr,UPtp6D1_clr,TP_clr;

   double Midnol = (Open_D1 + D1P) * 1/2;
   Mid00 = DoubleToStr(Midnol,Digits);

   double UPtp1D1 = D1P + (D1r * 0.236);
   double UPtp2D1 = D1P + (D1r * 0.382);
   double UPtp3D1 = D1P + (D1r * 0.618);
   double UPtp4D1 = D1P + (D1r * 0.764);
   double UPtp5D1 = D1P + (D1r * 1.000);
   double UPtp6D1 = D1P + (D1r * 1.236);
  
   double DNtp1D1 = D1P - (D1r * 0.236);
   double DNtp2D1 = D1P - (D1r * 0.382);
   double DNtp3D1 = D1P - (D1r * 0.618);
   double DNtp4D1 = D1P - (D1r * 0.764);
   double DNtp5D1 = D1P - (D1r * 1.000);
   double DNtp6D1 = D1P - (D1r * 1.236);
  
   TPb1 = DoubleToStr(UPtp2D1,Digits);
   TPb2 = DoubleToStr(UPtp3D1,Digits);
   TPb3 = DoubleToStr(UPtp6D1,Digits);
   TPs1 = DoubleToStr(DNtp2D1,Digits);
   TPs2 = DoubleToStr(DNtp3D1,Digits);
   TPs3 = DoubleToStr(DNtp6D1,Digits);

     if (Price1 > Midnol) {SW01="n"; Midplus_clr=SW2up_clr;}
     if (Price1 < Midnol) {SW01="n"; Midplus_clr=SW2dn_clr;}
     if (Price1 == Midnol) {SW01="n"; Midplus_clr=SW0_clr;}
     if (Teks > Mid00) {TP1=TPb1; TP2=TPb2; TP3=TPb3; TP_clr=UP3_clr;}
     if (Teks < Mid00) {TP1=TPs1; TP2=TPs2; TP3=TPs3; TP_clr=DN3_clr;}
     if (Price1 > UPtp1D1) {UP01="g"; UPtp1D1_clr=UP0_clr;}
     if (Price1 < DNtp1D1) {UP01="g"; UPtp1D1_clr=DN0_clr;}
     if (Price1 > UPtp2D1) {UP02="g"; UPtp2D1_clr=UP1_clr;}
     if (Price1 < DNtp2D1) {UP02="g"; UPtp2D1_clr=DN1_clr;}
     if (Price1 > UPtp3D1) {UP03="g"; UPtp3D1_clr=UP2_clr;}
     if (Price1 < DNtp3D1) {UP03="g"; UPtp3D1_clr=DN2_clr;}
     if (Price1 > UPtp4D1) {UP04="g"; UPtp4D1_clr=UP3_clr;}
     if (Price1 < DNtp4D1) {UP04="g"; UPtp4D1_clr=DN3_clr;}
     if (Price1 > UPtp5D1) {UP05="g"; UPtp5D1_clr=UP4_clr;}
     if (Price1 < DNtp5D1) {UP05="g"; UPtp5D1_clr=DN4_clr;}
     if (Price1 > UPtp6D1) {UP06="g"; UPtp6D1_clr=UP5_clr;}
     if (Price1 < DNtp6D1) {UP06="g"; UPtp6D1_clr=DN5_clr;}

  //*****************************************************************************************************
   //H4_TREND
   string H4Mid="",H4Pivot="",H4OPEN="";
   double Open_H4 = iOpen(NULL,240,0);
   H4OPEN =  (DoubleToStr(Open_H4,Digits));
   double H4r = iHigh(NULL,PERIOD_H4,1) - iLow(NULL,PERIOD_H4,1);
   double H4R = (iHigh(NULL,PERIOD_H4,1) + iLow(NULL,PERIOD_H4,1))/2;
   double H4P = (iHigh(NULL,PERIOD_H4,1) + iLow(NULL,PERIOD_H4,1) + iClose(NULL,PERIOD_H4,1))/3;
   H4Mid = DoubleToStr(H4R,Digits);
   H4Pivot = DoubleToStr(H4P,Digits);

   //MarketH4
   string SW01h4="",UP01h4="",UP02h4="",UP03h4="",
          UP04h4="",UP05h4="",UP06h4="";
   color Midplush4_clr,UPtp1h4_clr,UPtp2h4_clr,UPtp3h4_clr,
         UPtp4h4_clr,UPtp5h4_clr,UPtp6h4_clr;

   double Midnolh4 = (Open_H4 + H4P) * 1/2;

   double UPtp1h4 = H4P + (H4r * 0.236);
   double UPtp2h4 = H4P + (H4r * 0.382);
   double UPtp3h4 = H4P + (H4r * 0.618);
   double UPtp4h4 = H4P + (H4r * 0.764);
   double UPtp5h4 = H4P + (H4r * 1.000);
   double UPtp6h4 = H4P + (H4r * 1.236);
  
   double DNtp1h4 = H4P - (H4r * 0.236);
   double DNtp2h4 = H4P - (H4r * 0.382);
   double DNtp3h4 = H4P - (H4r * 0.618);
   double DNtp4h4 = H4P - (H4r * 0.764);
   double DNtp5h4 = H4P - (H4r * 1.000);
   double DNtp6h4 = H4P - (H4r * 1.236);
  
     if (Price1 > Midnolh4) {SW01h4="n"; Midplush4_clr=SW2up_clr;}
     if (Price1 < Midnolh4) {SW01h4="n"; Midplush4_clr=SW2dn_clr;}
     if (Price1 == Midnolh4) {SW01h4="n"; Midplush4_clr=SW0_clr;}
     if (Price1 > UPtp1h4) {UP01h4="g"; UPtp1h4_clr=UP0_clr;}
     if (Price1 < DNtp1h4) {UP01h4="g"; UPtp1h4_clr=DN0_clr;}
     if (Price1 > UPtp2h4) {UP02h4="g"; UPtp2h4_clr=UP1_clr;}
     if (Price1 < DNtp2h4) {UP02h4="g"; UPtp2h4_clr=DN1_clr;}
     if (Price1 > UPtp3h4) {UP03h4="g"; UPtp3h4_clr=UP2_clr;}
     if (Price1 < DNtp3h4) {UP03h4="g"; UPtp3h4_clr=DN2_clr;}
     if (Price1 > UPtp4h4) {UP04h4="g"; UPtp4h4_clr=UP3_clr;}
     if (Price1 < DNtp4h4) {UP04h4="g"; UPtp4h4_clr=DN3_clr;}
     if (Price1 > UPtp5h4) {UP05h4="g"; UPtp5h4_clr=UP4_clr;}
     if (Price1 < DNtp5h4) {UP05h4="g"; UPtp5h4_clr=DN4_clr;}
     if (Price1 > UPtp6h4) {UP06h4="g"; UPtp6h4_clr=UP5_clr;}
     if (Price1 < DNtp6h4) {UP06h4="g"; UPtp6h4_clr=DN5_clr;}

   //*****************************************************************************************************
   //H1_TREND
   string H1Mid="",H1Pivot="",H1OPEN="";
   double Open_H1 = iOpen(NULL,60,0);
   H1OPEN =  (DoubleToStr(Open_H1,Digits));
   double H1r = iHigh(NULL,PERIOD_H1,1) - iLow(NULL,PERIOD_H1,1);
   double H1R = (iHigh(NULL,PERIOD_H1,1) + iLow(NULL,PERIOD_H1,1))/2;
   double H1P = (iHigh(NULL,PERIOD_H1,1) + iLow(NULL,PERIOD_H1,1) + iClose(NULL,PERIOD_H1,1))/3;
   H1Mid = DoubleToStr(H1R,Digits);
   H1Pivot = DoubleToStr(H1P,Digits);

   //MarketH1
   string SW01h1="",UP01h1="",UP02h1="",UP03h1="",
          UP04h1="",UP05h1="",UP06h1="";
   color Midplush1_clr,UPtp1h1_clr,UPtp2h1_clr,UPtp3h1_clr,
         UPtp4h1_clr,UPtp5h1_clr,UPtp6h1_clr;

   double Midnolh1 = (Open_H1 + H1P) * 1/2;

   double UPtp1h1 = H1P + (H1r * 0.236);
   double UPtp2h1 = H1P + (H1r * 0.382);
   double UPtp3h1 = H1P + (H1r * 0.618);
   double UPtp4h1 = H1P + (H1r * 0.764);
   double UPtp5h1 = H1P + (H1r * 1.000);
   double UPtp6h1 = H1P + (H1r * 1.236);
  
   double DNtp1h1 = H1P - (H1r * 0.236);
   double DNtp2h1 = H1P - (H1r * 0.382);
   double DNtp3h1 = H1P - (H1r * 0.618);
   double DNtp4h1 = H1P - (H1r * 0.764);
   double DNtp5h1 = H1P - (H1r * 1.000);
   double DNtp6h1 = H1P - (H1r * 1.236);
  
     if (Price1 > Midnolh1) {SW01h1="n"; Midplush1_clr=SW2up_clr;}
     if (Price1 < Midnolh1) {SW01h1="n"; Midplush1_clr=SW2dn_clr;}
     if (Price1 == Midnolh1) {SW01h1="n"; Midplush1_clr=SW0_clr;}
     if (Price1 > UPtp1h1) {UP01h1="g"; UPtp1h1_clr=UP0_clr;}
     if (Price1 < DNtp1h1) {UP01h1="g"; UPtp1h1_clr=DN0_clr;}
     if (Price1 > UPtp2h1) {UP02h1="g"; UPtp2h1_clr=UP1_clr;}
     if (Price1 < DNtp2h1) {UP02h1="g"; UPtp2h1_clr=DN1_clr;}
     if (Price1 > UPtp3h1) {UP03h1="g"; UPtp3h1_clr=UP2_clr;}
     if (Price1 < DNtp3h1) {UP03h1="g"; UPtp3h1_clr=DN2_clr;}
     if (Price1 > UPtp4h1) {UP04h1="g"; UPtp4h1_clr=UP3_clr;}
     if (Price1 < DNtp4h1) {UP04h1="g"; UPtp4h1_clr=DN3_clr;}
     if (Price1 > UPtp5h1) {UP05h1="g"; UPtp5h1_clr=UP4_clr;}
     if (Price1 < DNtp5h1) {UP05h1="g"; UPtp5h1_clr=DN4_clr;}
     if (Price1 > UPtp6h1) {UP06h1="g"; UPtp6h1_clr=UP5_clr;}
     if (Price1 < DNtp6h1) {UP06h1="g"; UPtp6h1_clr=DN5_clr;}

   //*****************************************************************************************************
   //M30_TREND
   string M30Mid="",M30Pivot="",M30OPEN="";
   double Open_M30 = iOpen(NULL,30,0);
   M30OPEN =  (DoubleToStr(Open_M30,Digits));
   double M30r = iHigh(NULL,PERIOD_M30,1) - iLow(NULL,PERIOD_M30,1);
   double M30R = (iHigh(NULL,PERIOD_M30,1) + iLow(NULL,PERIOD_M30,1))/2;
   double M30P = (iHigh(NULL,PERIOD_M30,1) + iLow(NULL,PERIOD_M30,1) + iClose(NULL,PERIOD_M30,1))/3;
   M30Mid = DoubleToStr(M30R,Digits);
   M30Pivot = DoubleToStr(M30P,Digits);

   //MarketM30
   string SW01m30="",UP01m30="",UP02m30="",UP03m30="",
          UP04m30="",UP05m30="",UP06m30="";
   color Midplusm30_clr,UPtp1m30_clr,UPtp2m30_clr,UPtp3m30_clr,
         UPtp4m30_clr,UPtp5m30_clr,UPtp6m30_clr;

   double Midnolm30 = (Open_M30 + M30P) * 1/2;

   double UPtp1m30 = M30P + (M30r * 0.236);
   double UPtp2m30 = M30P + (M30r * 0.382);
   double UPtp3m30 = M30P + (M30r * 0.618);
   double UPtp4m30 = M30P + (M30r * 0.764);
   double UPtp5m30 = M30P + (M30r * 1.000);
   double UPtp6m30 = M30P + (M30r * 1.236);
  
   double DNtp1m30 = M30P - (M30r * 0.236);
   double DNtp2m30 = M30P - (M30r * 0.382);
   double DNtp3m30 = M30P - (M30r * 0.618);
   double DNtp4m30 = M30P - (M30r * 0.764);
   double DNtp5m30 = M30P - (M30r * 1.000);
   double DNtp6m30 = M30P - (M30r * 1.236);
  
     if (Price1 > Midnolm30) {SW01m30="n"; Midplusm30_clr=SW2up_clr;}
     if (Price1 < Midnolm30) {SW01m30="n"; Midplusm30_clr=SW2dn_clr;}
     if (Price1 == Midnolm30) {SW01m30="n"; Midplusm30_clr=SW0_clr;}
     if (Price1 > UPtp1m30) {UP01m30="g"; UPtp1m30_clr=UP0_clr;}
     if (Price1 < DNtp1m30) {UP01m30="g"; UPtp1m30_clr=DN0_clr;}
     if (Price1 > UPtp2m30) {UP02m30="g"; UPtp2m30_clr=UP1_clr;}
     if (Price1 < DNtp2m30) {UP02m30="g"; UPtp2m30_clr=DN1_clr;}
     if (Price1 > UPtp3m30) {UP03m30="g"; UPtp3m30_clr=UP2_clr;}
     if (Price1 < DNtp3m30) {UP03m30="g"; UPtp3m30_clr=DN2_clr;}
     if (Price1 > UPtp4m30) {UP04m30="g"; UPtp4m30_clr=UP3_clr;}
     if (Price1 < DNtp4m30) {UP04m30="g"; UPtp4m30_clr=DN3_clr;}
     if (Price1 > UPtp5m30) {UP05m30="g"; UPtp5m30_clr=UP4_clr;}
     if (Price1 < DNtp5m30) {UP05m30="g"; UPtp5m30_clr=DN4_clr;}
     if (Price1 > UPtp6m30) {UP06m30="g"; UPtp6m30_clr=UP5_clr;}
     if (Price1 < DNtp6m30) {UP06m30="g"; UPtp6m30_clr=DN5_clr;}

   //*****************************************************************************************************
   //M15_TREND
   string M15Mid="",M15Pivot="",M15OPEN="";
   double Open_M15 = iOpen(NULL,15,0);
   M15OPEN =  (DoubleToStr(Open_M15,Digits));
   double M15r = iHigh(NULL,PERIOD_M15,1) - iLow(NULL,PERIOD_M15,1);
   double M15R = (iHigh(NULL,PERIOD_M15,1) + iLow(NULL,PERIOD_M15,1))/2;
   double M15P = (iHigh(NULL,PERIOD_M15,1) + iLow(NULL,PERIOD_M15,1) + iClose(NULL,PERIOD_M15,1))/3;
   M15Mid = DoubleToStr(M15R,Digits);
   M15Pivot = DoubleToStr(M15P,Digits);

   //MarketM15
   string SW01m15="",UP01m15="",UP02m15="",UP03m15="",
          UP04m15="",UP05m15="",UP06m15="";
   color Midplusm15_clr,UPtp1m15_clr,UPtp2m15_clr,UPtp3m15_clr,
         UPtp4m15_clr,UPtp5m15_clr,UPtp6m15_clr;

   double Midnolm15 = (Open_M15 + M15P) * 1/2;

   double UPtp1m15 = M15P + (M15r * 0.236);
   double UPtp2m15 = M15P + (M15r * 0.382);
   double UPtp3m15 = M15P + (M15r * 0.618);
   double UPtp4m15 = M15P + (M15r * 0.764);
   double UPtp5m15 = M15P + (M15r * 1.000);
   double UPtp6m15 = M15P + (M15r * 1.236);
  
   double DNtp1m15 = M15P - (M15r * 0.236);
   double DNtp2m15 = M15P - (M15r * 0.382);
   double DNtp3m15 = M15P - (M15r * 0.618);
   double DNtp4m15 = M15P - (M15r * 0.764);
   double DNtp5m15 = M15P - (M15r * 1.000);
   double DNtp6m15 = M15P - (M15r * 1.236);
  
     if (Price1 > Midnolm15) {SW01m15="n"; Midplusm15_clr=SW2up_clr;}
     if (Price1 < Midnolm15) {SW01m15="n"; Midplusm15_clr=SW2dn_clr;}
     if (Price1 == Midnolm15) {SW01m15="n"; Midplusm15_clr=SW0_clr;}
     if (Price1 > UPtp1m15) {UP01m15="g"; UPtp1m15_clr=UP0_clr;}
     if (Price1 < DNtp1m15) {UP01m15="g"; UPtp1m15_clr=DN0_clr;}
     if (Price1 > UPtp2m15) {UP02m15="g"; UPtp2m15_clr=UP1_clr;}
     if (Price1 < DNtp2m15) {UP02m15="g"; UPtp2m15_clr=DN1_clr;}
     if (Price1 > UPtp3m15) {UP03m15="g"; UPtp3m15_clr=UP2_clr;}
     if (Price1 < DNtp3m15) {UP03m15="g"; UPtp3m15_clr=DN2_clr;}
     if (Price1 > UPtp4m15) {UP04m15="g"; UPtp4m15_clr=UP3_clr;}
     if (Price1 < DNtp4m15) {UP04m15="g"; UPtp4m15_clr=DN3_clr;}
     if (Price1 > UPtp5m15) {UP05m15="g"; UPtp5m15_clr=UP4_clr;}
     if (Price1 < DNtp5m15) {UP05m15="g"; UPtp5m15_clr=DN4_clr;}
     if (Price1 > UPtp6m15) {UP06m15="g"; UPtp6m15_clr=UP5_clr;}
     if (Price1 < DNtp6m15) {UP06m15="g"; UPtp6m15_clr=DN5_clr;}

   //*****************************************************************************************************
   //M5_TREND
   string M5Mid="",M5Pivot="",M5OPEN="";
   double Open_M5 = iOpen(NULL,5,0);
   M5OPEN =  (DoubleToStr(Open_M5,Digits));
   double M5r = iHigh(NULL,PERIOD_M5,1) - iLow(NULL,PERIOD_M5,1);
   double M5R = (iHigh(NULL,PERIOD_M5,1) + iLow(NULL,PERIOD_M5,1))/2;
   double M5P = (iHigh(NULL,PERIOD_M5,1) + iLow(NULL,PERIOD_M5,1) + iClose(NULL,PERIOD_M5,1))/3;
   M5Mid = DoubleToStr(M5R,Digits);
   M5Pivot = DoubleToStr(M5P,Digits);

   //MarketM5
   string SW01m5="",UP01m5="",UP02m5="",UP03m5="",
          UP04m5="",UP05m5="",UP06m5="";
   color Midplusm5_clr,UPtp1m5_clr,UPtp2m5_clr,UPtp3m5_clr,
         UPtp4m5_clr,UPtp5m5_clr,UPtp6m5_clr;

   double Midnolm5 = (Open_M5 + M5P) * 1/2;

   double UPtp1m5 = M5P + (M5r * 0.236);
   double UPtp2m5 = M5P + (M5r * 0.382);
   double UPtp3m5 = M5P + (M5r * 0.618);
   double UPtp4m5 = M5P + (M5r * 0.764);
   double UPtp5m5 = M5P + (M5r * 1.000);
   double UPtp6m5 = M5P + (M5r * 1.236);
  
   double DNtp1m5 = M5P - (M5r * 0.236);
   double DNtp2m5 = M5P - (M5r * 0.382);
   double DNtp3m5 = M5P - (M5r * 0.618);
   double DNtp4m5 = M5P - (M5r * 0.764);
   double DNtp5m5 = M5P - (M5r * 1.000);
   double DNtp6m5 = M5P - (M5r * 1.236);
  
     if (Price1 > Midnolm5) {SW01m5="n"; Midplusm5_clr=SW2up_clr;}
     if (Price1 < Midnolm5) {SW01m5="n"; Midplusm5_clr=SW2dn_clr;}
     if (Price1 == Midnolm5) {SW01m5="n"; Midplusm5_clr=SW0_clr;}
     if (Price1 > UPtp1m5) {UP01m5="g"; UPtp1m5_clr=UP0_clr;}
     if (Price1 < DNtp1m5) {UP01m5="g"; UPtp1m5_clr=DN0_clr;}
     if (Price1 > UPtp2m5) {UP02m5="g"; UPtp2m5_clr=UP1_clr;}
     if (Price1 < DNtp2m5) {UP02m5="g"; UPtp2m5_clr=DN1_clr;}
     if (Price1 > UPtp3m5) {UP03m5="g"; UPtp3m5_clr=UP2_clr;}
     if (Price1 < DNtp3m5) {UP03m5="g"; UPtp3m5_clr=DN2_clr;}
     if (Price1 > UPtp4m5) {UP04m5="g"; UPtp4m5_clr=UP3_clr;}
     if (Price1 < DNtp4m5) {UP04m5="g"; UPtp4m5_clr=DN3_clr;}
     if (Price1 > UPtp5m5) {UP05m5="g"; UPtp5m5_clr=UP4_clr;}
     if (Price1 < DNtp5m5) {UP05m5="g"; UPtp5m5_clr=DN4_clr;}
     if (Price1 > UPtp6m5) {UP06m5="g"; UPtp6m5_clr=UP5_clr;}
     if (Price1 < DNtp6m5) {UP06m5="g"; UPtp6m5_clr=DN5_clr;}

   //*****************************************************************************************************
   //M1_TREND
   string M1Mid="",M1Pivot="",M1OPEN="";
   double Open_M1 = iOpen(NULL,1,0);
   M1OPEN =  (DoubleToStr(Open_M1,Digits));
   double M1r = iHigh(NULL,PERIOD_M1,1) - iLow(NULL,PERIOD_M1,1);
   double M1R = (iHigh(NULL,PERIOD_M1,1) + iLow(NULL,PERIOD_M1,1))/2;
   double M1P = (iHigh(NULL,PERIOD_M1,1) + iLow(NULL,PERIOD_M1,1) + iClose(NULL,PERIOD_M1,1))/3;
   M1Mid = DoubleToStr(M1R,Digits);
   M1Pivot = DoubleToStr(M1P,Digits);

   //MarketM1
   string SW01m1="",UP01m1="",UP02m1="",UP03m1="",
          UP04m1="",UP05m1="",UP06m1="";
   color Midplusm1_clr,UPtp1m1_clr,UPtp2m1_clr,UPtp3m1_clr,
         UPtp4m1_clr,UPtp5m1_clr,UPtp6m1_clr;

   double Midnolm1 = (Open_M1 + M1P) * 1/2;

   double UPtp1m1 = M1P + (M1r * 0.236);
   double UPtp2m1 = M1P + (M1r * 0.382);
   double UPtp3m1 = M1P + (M1r * 0.618);
   double UPtp4m1 = M1P + (M1r * 0.764);
   double UPtp5m1 = M1P + (M1r * 1.000);
   double UPtp6m1 = M1P + (M1r * 1.236);
  
   double DNtp1m1 = M1P - (M1r * 0.236);
   double DNtp2m1 = M1P - (M1r * 0.382);
   double DNtp3m1 = M1P - (M1r * 0.618);
   double DNtp4m1 = M1P - (M1r * 0.764);
   double DNtp5m1 = M1P - (M1r * 1.000);
   double DNtp6m1 = M1P - (M1r * 1.236);
  
     if (Price1 > Midnolm1) {SW01m1="n"; Midplusm1_clr=SW2up_clr;}
     if (Price1 < Midnolm1) {SW01m1="n"; Midplusm1_clr=SW2dn_clr;}
     if (Price1 == Midnolm1) {SW01m1="n"; Midplusm1_clr=SW0_clr;}
     if (Price1 > UPtp1m1) {UP01m1="g"; UPtp1m1_clr=UP0_clr;}
     if (Price1 < DNtp1m1) {UP01m1="g"; UPtp1m1_clr=DN0_clr;}
     if (Price1 > UPtp2m1) {UP02m1="g"; UPtp2m1_clr=UP1_clr;}
     if (Price1 < DNtp2m1) {UP02m1="g"; UPtp2m1_clr=DN1_clr;}
     if (Price1 > UPtp3m1) {UP03m1="g"; UPtp3m1_clr=UP2_clr;}
     if (Price1 < DNtp3m1) {UP03m1="g"; UPtp3m1_clr=DN2_clr;}
     if (Price1 > UPtp4m1) {UP04m1="g"; UPtp4m1_clr=UP3_clr;}
     if (Price1 < DNtp4m1) {UP04m1="g"; UPtp4m1_clr=DN3_clr;}
     if (Price1 > UPtp5m1) {UP05m1="g"; UPtp5m1_clr=UP4_clr;}
     if (Price1 < DNtp5m1) {UP05m1="g"; UPtp5m1_clr=DN4_clr;}
     if (Price1 > UPtp6m1) {UP06m1="g"; UPtp6m1_clr=UP5_clr;}
     if (Price1 < DNtp6m1) {UP06m1="g"; UPtp6m1_clr=DN5_clr;}

   //******************************************************************************************************************
   string jogetS1="", jogetS2="", jogetT="";
   color clr_jogetS1, clr_jogetS2, clr_jogetT;

     if ((Teks > M1OPEN) && (Teks > M5OPEN) && (Teks > M1Pivot) && (Teks > M5Pivot))
        {jogetS1="UP"; clr_jogetS1=UP_clr;}
     else if ((Teks < M1Pivot) && (Teks < M5Pivot) && (Teks < M1OPEN) && (Teks < M5OPEN))
             {jogetS1="DN"; clr_jogetS1=DN_clr;}
          else {jogetS1="-----"; clr_jogetS1=SW_clr;}

     if ((Teks > M15OPEN) && (Teks > M30OPEN) && (Teks > H1OPEN)
        && (Teks > M15Pivot) && (Teks > M30Pivot) && (Teks > H1Pivot))
        {jogetS2="UP"; clr_jogetS2=UP_clr;}
     else if ((Teks < M15Pivot) && (Teks < M30Pivot) && (Teks < H1Pivot)
             && (Teks < M15OPEN) && (Teks < M30OPEN) && (Teks < H1OPEN))
             {jogetS2="DN"; clr_jogetS2=DN_clr;}
          else {jogetS2="-----"; clr_jogetS2=SW_clr;}

     if ((Teks > H4OPEN) && (Teks > D1OPEN) && (Teks > H4Pivot) && (Teks > D1Pivot))
        {jogetT="UP"; clr_jogetT=UP_clr;}
     else if ((Teks < H4Pivot) && (Teks < D1Pivot) && (Teks < H4OPEN) && (Teks < D1OPEN))
             {jogetT="DN"; clr_jogetT=DN_clr;}
          else {jogetT="-----"; clr_jogetT=SW_clr;}


   ObjectSetText("joFast", "Fast", 10, "Arial Bold", clr_jogetS1);
   ObjectSetText("joSignal", "Signal", 10, "Arial Bold", clr_jogetS2);
   ObjectSetText("joTrend", "Trend", 10, "Arial Bold", clr_jogetT);

   //******************************************************************************************************************
   string jogetM1="", jogetM5="", jogetM15="", jogetM30="", jogetH1="", jogetH4="", jogetD1="";
   color clr_jogetM1, clr_jogetM5, clr_jogetM15, clr_jogetM30, clr_jogetH1, clr_jogetH4, clr_jogetD1;

     if ((Teks > M1OPEN) && (Teks > M1Pivot))
        {jogetM1="g"; clr_jogetM1=UP_clr;}
     else if ((Teks < M1Pivot) && (Teks < M1OPEN))
             {jogetM1="g"; clr_jogetM1=DN_clr;}
          else {jogetM1="g"; clr_jogetM1=SW_clr;}

     if ((Teks > M5OPEN) && (Teks > M5Pivot))
        {jogetM5="g"; clr_jogetM5=UP_clr;}
     else if ((Teks < M5Pivot) && (Teks < M5OPEN))
             {jogetM5="g"; clr_jogetM5=DN_clr;}
          else {jogetM5="g"; clr_jogetM5=SW_clr;}

     if ((Teks > M15OPEN) && (Teks > M15Pivot))
        {jogetM15="g"; clr_jogetM15=UP_clr;}
     else if ((Teks < M15Pivot) && (Teks < M15OPEN))
             {jogetM15="g"; clr_jogetM15=DN_clr;}
          else {jogetM15="g"; clr_jogetM15=SW_clr;}

     if ((Teks > M30OPEN) && (Teks > M30Pivot))
        {jogetM30="g"; clr_jogetM30=UP_clr;}
     else if ((Teks < M30Pivot) && (Teks < M30OPEN))
             {jogetM30="g"; clr_jogetM30=DN_clr;}
          else {jogetM30="g"; clr_jogetM30=SW_clr;}

     if ((Teks > H1OPEN) && (Teks > H1Pivot))
        {jogetH1="g"; clr_jogetH1=UP_clr;}
     else if ((Teks < H1Pivot) && (Teks < H1OPEN))
             {jogetH1="g"; clr_jogetH1=DN_clr;}
          else {jogetH1="g"; clr_jogetH1=SW_clr;}

     if ((Teks > H4OPEN) && (Teks > H4Pivot))
        {jogetH4="g"; clr_jogetH4=UP_clr;}
     else if ((Teks < H4Pivot) && (Teks < H4OPEN))
             {jogetH4="g"; clr_jogetH4=DN_clr;}
          else {jogetH4="g"; clr_jogetH4=SW_clr;}

     if ((Teks > D1OPEN) && (Teks > D1Pivot))
        {jogetD1="g"; clr_jogetD1=UP_clr;}
     else if ((Teks < D1Pivot) && (Teks < D1OPEN))
             {jogetD1="g"; clr_jogetD1=DN_clr;}
          else {jogetD1="g"; clr_jogetD1=SW_clr;}

   ObjectSetText("joSignalM1", jogetM1, 12, "Webdings", clr_jogetM1);
   ObjectSetText("joSignalM5", jogetM5, 12, "Webdings", clr_jogetM5);
   ObjectSetText("joSignalM15", jogetM15, 12, "Webdings", clr_jogetM15);
   ObjectSetText("joSignalM30", jogetM30, 12, "Webdings", clr_jogetM30);
   ObjectSetText("joSignalH1", jogetH1, 12, "Webdings", clr_jogetH1);
   ObjectSetText("joSignalH4", jogetH4, 12, "Webdings", clr_jogetH4);
   ObjectSetText("joSignalD1", jogetD1, 12, "Webdings", clr_jogetD1);
  
//*****************************************************************************************************
   double S_cM1=iMA(NULL,1,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,1,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cM5=iMA(NULL,5,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,5,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cM15=iMA(NULL,15,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,15,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cM30=iMA(NULL,30,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,30,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cH1=iMA(NULL,60,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,60,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cH4=iMA(NULL,240,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,240,SlowMA,0,MA_Mode,MA_PriceType,0);
   double S_cD1=iMA(NULL,1440,FastMA,0,MA_Mode,MA_PriceType,0)-iMA(NULL,1440,SlowMA,0,MA_Mode,MA_PriceType,0);
   
   double S_pM1=iMA(NULL,1,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,1,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pM5=iMA(NULL,5,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,5,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pM15=iMA(NULL,15,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,15,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pM30=iMA(NULL,30,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,30,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pH1=iMA(NULL,60,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,60,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pH4=iMA(NULL,240,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,240,SlowMA,0,MA_Mode,MA_PriceType,1);
   double S_pD1=iMA(NULL,1440,FastMA,0,MA_Mode,MA_PriceType,1)-iMA(NULL,1440,SlowMA,0,MA_Mode,MA_PriceType,1);
   
   double avg_M1 = iMAOnArray(S_cM1, 0, BBperiode, 0, MA_Mode, 0);
   double avg_M5 = iMAOnArray(S_cM5, 0, BBperiode, 0, MA_Mode, 0);
   double avg_M15 = iMAOnArray(S_cM15, 0, BBperiode, 0, MA_Mode, 0);
   double avg_M30 = iMAOnArray(S_cM30, 0, BBperiode, 0, MA_Mode, 0);
   double avg_H1 = iMAOnArray(S_cH1, 0, BBperiode, 0, MA_Mode, 0);
   double avg_H4 = iMAOnArray(S_cH4, 0, BBperiode, 0, MA_Mode, 0);
   double avg_D1 = iMAOnArray(S_cD1, 0, BBperiode, 0, MA_Mode, 0);

   double sDev_M1 = iStdDevOnArray(S_cM1, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_M5 = iStdDevOnArray(S_cM5, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_M15 = iStdDevOnArray(S_cM15, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_M30 = iStdDevOnArray(S_cM30, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_H1 = iStdDevOnArray(S_cH1, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_H4 = iStdDevOnArray(S_cH4, 0, BBperiode, 0, MA_Mode, 0);
   double sDev_D1 = iStdDevOnArray(S_cD1, 0, BBperiode, 0, MA_Mode, 0);

   string S_m1 = "", S_m5 = "", S_m15 = "", S_m30 = "", S_h1 = "", S_h4 = "", S_d1 = "",
          T_m1 = "", T_m5 = "", T_m15 = "", T_m30 = "", T_h1 = "", T_h4 = "", T_d1 = "",
          V_m1 = "", V_m5 = "", V_m15 = "", V_m30 = "", V_h1 = "", V_h4 = "", V_d1 = "",
          upBB_m1 = "", upBB_m5 = "", upBB_m15 = "", upBB_m30 = "", upBB_h1 = "", upBB_h4 = "", upBB_d1 = "",
          loBB_m1 = "", loBB_m5 = "", loBB_m15 = "", loBB_m30 = "", loBB_h1 = "", loBB_h4 = "", loBB_d1 = "",
          midBB_m1 = "", midBB_m5 = "", midBB_m15 = "", midBB_m30 = "", midBB_h1 = "", midBB_h4 = "", midBB_d1 = "",
          BS_m1 = "", BS_m5 = "", BS_m15 = "", BS_m30 = "", BS_h1 = "", BS_h4 = "", BS_d1 = "";
   color  Sclr_m1, Sclr_m5, Sclr_m15, Sclr_m30, Sclr_h1, Sclr_h4, Sclr_d1,
          Tclr_m1, Tclr_m5, Tclr_m15, Tclr_m30, Tclr_h1, Tclr_h4, Tclr_d1,
          BSclr_m1, BSclr_m5, BSclr_m15, BSclr_m30, BSclr_h1, BSclr_h4, BSclr_d1;
   
   V_m1 = DoubleToStr(S_cM1,Digits+1);
   V_m5 = DoubleToStr(S_cM5,Digits+1);
   V_m15 = DoubleToStr(S_cM15,Digits+1);
   V_m30 = DoubleToStr(S_cM30,Digits+1);
   V_h1 = DoubleToStr(S_cH1,Digits+1);
   V_h4 = DoubleToStr(S_cH4,Digits+1);
   V_d1 = DoubleToStr(S_cD1,Digits+1);

   upBB_m1 = DoubleToStr((avg_M1 + (StDv * sDev_M1)), Digits+1);  // Upperband 
   upBB_m5 = DoubleToStr((avg_M5 + (StDv * sDev_M5)), Digits+1);  // Upperband 
   upBB_m15 = DoubleToStr((avg_M15 + (StDv * sDev_M15)), Digits+1);  // Upperband 
   upBB_m30 = DoubleToStr((avg_M30 + (StDv * sDev_M30)), Digits+1);  // Upperband 
   upBB_h1 = DoubleToStr((avg_H1 + (StDv * sDev_H1)), Digits+1);  // Upperband 
   upBB_h4 = DoubleToStr((avg_H4 + (StDv * sDev_H4)), Digits+1);  // Upperband 
   upBB_d1 = DoubleToStr((avg_D1 + (StDv * sDev_D1)), Digits+1);  // Upperband 

   loBB_m1 = DoubleToStr((avg_M1 - (StDv * sDev_M1)), Digits+1);  // Lowerband
   loBB_m5 = DoubleToStr((avg_M5 - (StDv * sDev_M5)), Digits+1);  // Lowerband
   loBB_m15 = DoubleToStr((avg_M15 - (StDv * sDev_M15)), Digits+1);  // Lowerband
   loBB_m30 = DoubleToStr((avg_M30 - (StDv * sDev_M30)), Digits+1);  // Lowerband
   loBB_h1 = DoubleToStr((avg_H1 - (StDv * sDev_H1)), Digits+1);  // Lowerband
   loBB_h4 = DoubleToStr((avg_H4 - (StDv * sDev_H4)), Digits+1);  // Lowerband
   loBB_d1 = DoubleToStr((avg_D1 - (StDv * sDev_D1)), Digits+1);  // Lowerband

   midBB_m1 = DoubleToStr(avg_M1, Digits+1) ;  // Midleband
   midBB_m5 = DoubleToStr(avg_M5, Digits+1) ;  // Midleband
   midBB_m15 = DoubleToStr(avg_M15, Digits+1) ;  // Midleband
   midBB_m30 = DoubleToStr(avg_M30, Digits+1) ;  // Midleband
   midBB_h1 = DoubleToStr(avg_H1, Digits+1) ;  // Midleband
   midBB_h4 = DoubleToStr(avg_H4, Digits+1) ;  // Midleband
   midBB_d1 = DoubleToStr(avg_D1, Digits+1) ;  // Midleband

   if (S_cM1 < S_pM1) { S_m1 = "n"; Sclr_m1 = tDN_clr; }
   else if (S_cM1 > S_pM1) { S_m1 = "n"; Sclr_m1 = tUP_clr; }
        else { S_m1 = "n"; Sclr_m1 = tSW_clr; }
   if (S_cM1 < 0) { T_m1 = "n"; Tclr_m1 = DN_clr; }
   else if (S_cM1 > 0) { T_m1 = "n"; Tclr_m1 = UP_clr; }
        else { T_m1 = "n"; Tclr_m1 = SW_clr; }

   if (S_cM5 < S_pM5) { S_m5 = "n"; Sclr_m5 = tDN_clr; }
   else if (S_cM5 > S_pM5) { S_m5 = "n"; Sclr_m5 = tUP_clr; }
        else { S_m5 = "n"; Sclr_m5 = tSW_clr; }
   if (S_cM5 < 0) { T_m5 = "n"; Tclr_m5 = DN_clr; }
   else if (S_cM5 > 0) { T_m5 = "n"; Tclr_m5 = UP_clr; }
        else { T_m5 = "n"; Tclr_m5 = SW_clr; }
   
   if (S_cM15 < S_pM15) { S_m15 = "n"; Sclr_m15 = tDN_clr; }
   else if (S_cM15 > S_pM15) { S_m15 = "n"; Sclr_m15 = tUP_clr; }
        else { S_m15 = "n"; Sclr_m15 = tSW_clr; }
   if (S_cM15 < 0) { T_m15 = "n"; Tclr_m15 = DN_clr; }
   else if (S_cM15 > 0) { T_m15 = "n"; Tclr_m15 = UP_clr; }
        else { T_m15 = "n"; Tclr_m15 = SW_clr; }
      
   if (S_cM30 < S_pM30) { S_m30 = "n"; Sclr_m30 = tDN_clr; }
   else if (S_cM30 > S_pM30) { S_m30 = "n"; Sclr_m30 = tUP_clr; }
        else { S_m30 = "n"; Sclr_m30 = tSW_clr; }
   if (S_cM30 < 0) { T_m30 = "n"; Tclr_m30 = DN_clr; }
   else if (S_cM30 > 0) { T_m30 = "n"; Tclr_m30 = UP_clr; }
        else { T_m30 = "n"; Tclr_m30 = SW_clr; }
   
   if (S_cH1 < S_pH1) { S_h1 = "n"; Sclr_h1 = tDN_clr; }
   else if (S_cH1 > S_pH1) { S_h1 = "n"; Sclr_h1 = tUP_clr; }
        else { S_h1 = "n"; Sclr_h1 = tSW_clr; }
   if (S_cH1 < 0) { T_h1 = "n"; Tclr_h1 = DN_clr; }
   else if (S_cH1 > 0) { T_h1 = "n"; Tclr_h1 = UP_clr; }
        else { T_h1 = "n"; Tclr_h1 = SW_clr; }
   
   if (S_cH4 < S_pH4) { S_h4 = "n"; Sclr_h4 = tDN_clr; }
   else if (S_cH4 > S_pH4) { S_h4 = "n"; Sclr_h4 = tUP_clr; }
        else { S_h4 = "n"; Sclr_h4 = tSW_clr; }
   if (S_cH4 < 0) { T_h4 = "n"; Tclr_h4 = DN_clr; }
   else if (S_cH4 > 0) { T_h4 = "n"; Tclr_h4 = UP_clr; }
        else { T_h4 = "n"; Tclr_h4 = SW_clr; }

   if (S_cD1 < S_pD1) { S_d1 = "n"; Sclr_d1 = tDN_clr; }
   else if (S_cD1 > S_pD1) { S_d1 = "n"; Sclr_d1 = tUP_clr; }
        else { S_d1 = "n"; Sclr_d1 = tSW_clr; }
   if (S_cD1 < 0) { T_d1 = "n"; Tclr_d1 = DN_clr; }
   else if (S_cD1 > 0) { T_d1 = "n"; Tclr_d1 = UP_clr; }
        else { T_d1 = "n"; Tclr_d1 = SW_clr; }

   if ((S_cM1 < S_pM1)&&(V_m1 < loBB_m1)) { BS_m1 = "n"; BSclr_m1 = tDN_clr; }
   else if ((S_cM1 > S_pM1)&&(V_m1 > upBB_m1)) { BS_m1 = "n"; BSclr_m1 = tUP_clr; }
        else { BS_m1 = "n"; BSclr_m1 = tSW_clr; }
   
   if ((S_cM5 < S_pM5)&&(V_m5 < loBB_m5)) { BS_m5 = "n"; BSclr_m5 = tDN_clr; }
   else if ((S_cM5 > S_pM5)&&(V_m5 > upBB_m5)) { BS_m5 = "n"; BSclr_m5 = tUP_clr; }
        else { BS_m5 = "n"; BSclr_m5 = tSW_clr; }
   
   if ((S_cM15 < S_pM15)&&(V_m15 < loBB_m15)) { BS_m15 = "n"; BSclr_m15 = tDN_clr; }
   else if ((S_cM15 > S_pM15)&&(V_m15 > upBB_m15)) { BS_m15 = "n"; BSclr_m15 = tUP_clr; }
        else { BS_m15 = "n"; BSclr_m15 = tSW_clr; }
   
   if ((S_cM30 < S_pM30)&&(V_m30 < loBB_m30)) { BS_m30 = "n"; BSclr_m30 = tDN_clr; }
   else if ((S_cM30 > S_pM30)&&(V_m30 > upBB_m30)) { BS_m30 = "n"; BSclr_m30 = tUP_clr; }
        else { BS_m30 = "n"; BSclr_m30 = tSW_clr; }
   
   if ((S_cH1 < S_pH1)&&(V_h1 < loBB_h1)) { BS_h1 = "n"; BSclr_h1 = tDN_clr; }
   else if ((S_cH1 > S_pH1)&&(V_h1 > upBB_h1)) { BS_h1 = "n"; BSclr_h1 = tUP_clr; }
        else { BS_h1 = "n"; BSclr_h1 = tSW_clr; }
   
   if ((S_cH4 < S_pH4)&&(V_h4 < midBB_h4)) { BS_h4 = "n"; BSclr_h4 = tDN_clr; }
   else if ((S_cH4 > S_pH4)&&(V_h4 > midBB_h4)) { BS_h4 = "n"; BSclr_h4 = tUP_clr; }
        else { BS_h4 = "n"; BSclr_h4 = tSW_clr; }
   
   if ((S_cD1 < S_pD1)&&(V_d1 < midBB_d1)) { BS_d1 = "n"; BSclr_d1 = tDN_clr; }
   else if ((S_cD1 > S_pD1)&&(V_d1 > midBB_d1)) { BS_d1 = "n"; BSclr_d1 = tUP_clr; }
        else { BS_d1 = "n"; BSclr_d1 = tSW_clr; }
   
//*****************************************************************************************************
   ObjectSetText("jobbaoTM1", T_m1, 7, "Webdings", Tclr_m1);
   ObjectSetText("jobbaoTM5", T_m5, 7, "Webdings", Tclr_m5);
   ObjectSetText("jobbaoTM15", T_m15, 7, "Webdings", Tclr_m15);
   ObjectSetText("jobbaoTM30", T_m30, 7, "Webdings", Tclr_m30);
   ObjectSetText("jobbaoTH1", T_h1, 7, "Webdings", Tclr_h1);
   ObjectSetText("jobbaoTH4", T_h4, 7, "Webdings", Tclr_h4);
   ObjectSetText("jobbaoTD1", T_d1, 7, "Webdings", Tclr_d1);

   ObjectSetText("jobbaoBSM1", BS_m1, 12, "Webdings", BSclr_m1);
   ObjectSetText("jobbaoBSM5", BS_m5, 12, "Webdings", BSclr_m5);
   ObjectSetText("jobbaoBSM15", BS_m15, 12, "Webdings", BSclr_m15);
   ObjectSetText("jobbaoBSM30", BS_m30, 12, "Webdings", BSclr_m30);
   ObjectSetText("jobbaoBSH1", BS_h1, 12, "Webdings", BSclr_h1);
   ObjectSetText("jobbaoBSH4", BS_h4, 12, "Webdings", BSclr_h4);
   ObjectSetText("jobbaoBSD1", BS_d1, 12, "Webdings", BSclr_d1);

   ObjectSetText("joTex1", "1", 10, "Arial Black", Sclr_m1);
   ObjectSetText("joTex2", "2", 10, "Arial Black", Sclr_m5);
   ObjectSetText("joTex3", "3", 10, "Arial Black", Sclr_m15);
   ObjectSetText("joTex4", "4", 10, "Arial Black", Sclr_m30);
   ObjectSetText("joTex5", "5", 10, "Arial Black", Sclr_h1);
   ObjectSetText("joTex6", "6", 10, "Arial Black", Sclr_h4);
   ObjectSetText("joTex7", "7", 10, "Arial Black", Sclr_d1);

//*****************************************************************************************************
   ObjectSetText("xCandle", Teks_Menit+":"+Teks_Detik, 10, "Arial Bold", Time_clr);
   ObjectSetText("pric3",""+Teks+"", 18, "Impact",  clr_jogetS2);
   ObjectSetText("joOPD1t", "OPEN", 7, "Arial Bold", Text_clr);
   ObjectSetText("joOPD1a", D1OPEN, 9, "Arial Bold", color_d1op);
   ObjectSetText("joPVD1t", "PIVOT", 7, "Arial Bold", Text_clr);
   ObjectSetText("joPVD1a", D1Pivot, 9, "Arial Bold", Time_clr);
   ObjectSetText("joP2Opent","P2Op", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joP2Opena",""+PIPS+"", 9, "Arial Bold",  color_pip);
   ObjectSetText("joHILOt","HiLo", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joHILOa",""+HILO+"", 9, "Arial Bold",  Spread_clr);
   ObjectSetText("joDAVt","D.Avg", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joDAVa",""+DAV+"", 9, "Arial Bold",  color_av);
   ObjectSetText("joSpreadt","Sprd", 7, "Arial Bold",  Text_clr);
   ObjectSetText("joSpreada",""+SPREAD+"", 9, "Arial Bold",  Spread_clr);
   ObjectSetText("joPair", Symbol(), 12, "Impact",  clr_jogetT);

//*****************************************************************************************************
   ObjectSetText("joG07", SW01, 7, "Webdings", Midplus_clr);
   ObjectSetText("joG06", UP01, 7, "Webdings", UPtp1D1_clr);
   ObjectSetText("joG05", UP02, 7, "Webdings", UPtp2D1_clr);
   ObjectSetText("joG04", UP03, 7, "Webdings", UPtp3D1_clr);
   ObjectSetText("joG03", UP04, 7, "Webdings", UPtp4D1_clr);
   ObjectSetText("joG02", UP05, 7, "Webdings", UPtp5D1_clr);
   ObjectSetText("joG01", UP06, 7, "Webdings", UPtp6D1_clr);

   ObjectSetText("joG014", SW01h4, 7, "Webdings", Midplush4_clr);
   ObjectSetText("joG013", UP01h4, 7, "Webdings", UPtp1h4_clr);
   ObjectSetText("joG012", UP02h4, 7, "Webdings", UPtp2h4_clr);
   ObjectSetText("joG011", UP03h4, 7, "Webdings", UPtp3h4_clr);
   ObjectSetText("joG010", UP04h4, 7, "Webdings", UPtp4h4_clr);
   ObjectSetText("joG09", UP05h4, 7, "Webdings", UPtp5h4_clr);
   ObjectSetText("joG08", UP06h4, 7, "Webdings", UPtp6h4_clr);

   ObjectSetText("joG021", SW01h1, 7, "Webdings", Midplush1_clr);
   ObjectSetText("joG020", UP01h1, 7, "Webdings", UPtp1h1_clr);
   ObjectSetText("joG019", UP02h1, 7, "Webdings", UPtp2h1_clr);
   ObjectSetText("joG018", UP03h1, 7, "Webdings", UPtp3h1_clr);
   ObjectSetText("joG017", UP04h1, 7, "Webdings", UPtp4h1_clr);
   ObjectSetText("joG016", UP05h1, 7, "Webdings", UPtp5h1_clr);
   ObjectSetText("joG015", UP06h1, 7, "Webdings", UPtp6h1_clr);

   ObjectSetText("joG028", SW01m30, 7, "Webdings", Midplusm30_clr);
   ObjectSetText("joG027", UP01m30, 7, "Webdings", UPtp1m30_clr);
   ObjectSetText("joG026", UP02m30, 7, "Webdings", UPtp2m30_clr);
   ObjectSetText("joG025", UP03m30, 7, "Webdings", UPtp3m30_clr);
   ObjectSetText("joG024", UP04m30, 7, "Webdings", UPtp4m30_clr);
   ObjectSetText("joG023", UP05m30, 7, "Webdings", UPtp5m30_clr);
   ObjectSetText("joG022", UP06m30, 7, "Webdings", UPtp6m30_clr);

   ObjectSetText("joG035", SW01m15, 7, "Webdings", Midplusm15_clr);
   ObjectSetText("joG034", UP01m15, 7, "Webdings", UPtp1m15_clr);
   ObjectSetText("joG033", UP02m15, 7, "Webdings", UPtp2m15_clr);
   ObjectSetText("joG032", UP03m15, 7, "Webdings", UPtp3m15_clr);
   ObjectSetText("joG031", UP04m15, 7, "Webdings", UPtp4m15_clr);
   ObjectSetText("joG030", UP05m15, 7, "Webdings", UPtp5m15_clr);
   ObjectSetText("joG029", UP06m15, 7, "Webdings", UPtp6m15_clr);

   ObjectSetText("joG042", SW01m5, 7, "Webdings", Midplusm5_clr);
   ObjectSetText("joG041", UP01m5, 7, "Webdings", UPtp1m5_clr);
   ObjectSetText("joG040", UP02m5, 7, "Webdings", UPtp2m5_clr);
   ObjectSetText("joG039", UP03m5, 7, "Webdings", UPtp3m5_clr);
   ObjectSetText("joG038", UP04m5, 7, "Webdings", UPtp4m5_clr);
   ObjectSetText("joG037", UP05m5, 7, "Webdings", UPtp5m5_clr);
   ObjectSetText("joG036", UP06m5, 7, "Webdings", UPtp6m5_clr);

   ObjectSetText("joG049", SW01m1, 7, "Webdings", Midplusm1_clr);
   ObjectSetText("joG048", UP01m1, 7, "Webdings", UPtp1m1_clr);
   ObjectSetText("joG047", UP02m1, 7, "Webdings", UPtp2m1_clr);
   ObjectSetText("joG046", UP03m1, 7, "Webdings", UPtp3m1_clr);
   ObjectSetText("joG045", UP04m1, 7, "Webdings", UPtp4m1_clr);
   ObjectSetText("joG044", UP05m1, 7, "Webdings", UPtp5m1_clr);
   ObjectSetText("joG043", UP06m1, 7, "Webdings", UPtp6m1_clr);

   ObjectSetText("joTP1", TP1, 8, "Arial Bold", TP_clr);
   ObjectSetText("joTP2", TP2, 8, "Arial Bold", TP_clr);
   ObjectSetText("joTP3", TP3, 8, "Arial Bold", TP_clr);

//*****************************************************************************************************
 //----
   return(0);
  }

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int CreateOL( string n, int xoff, int yoff ) {
   ObjectCreate( n, OBJ_LABEL, window, 0, 0 );
   ObjectSet( n, OBJPROP_CORNER, corner );
   ObjectSet( n, OBJPROP_XDISTANCE, xoff );
   ObjectSet( n, OBJPROP_YDISTANCE, yoff );
   ObjectSet( n, OBJPROP_BACK, false );
}


int init()
  {

//---- 
   IndicatorShortName("+JoGET#58+");  
//---- indicators
   int top = 0;
   int left = 0;


   CreateOL( "joPVD1t", left+250, top+15 );
   CreateOL( "joPVD1a", left+250, top+25 );
   CreateOL( "joOPD1t", left+300, top+15 );
   CreateOL( "joOPD1a", left+300, top+25 );
   CreateOL( "joP2Opent", left+350, top+15 );
   CreateOL( "joP2Opena", left+350, top+25 );
   CreateOL( "joHILOt", left+380, top+15 );
   CreateOL( "joHILOa", left+380, top+25 );
   CreateOL( "joDAVt", left+410, top+15 );
   CreateOL( "joDAVa", left+410, top+25 );
   CreateOL( "joSpreadt", left+440, top+15 );
   CreateOL( "joSpreada", left+440, top+25 );
   CreateOL( "joPair", left+470, top+15 );

   CreateOL( "joFast", left+135, top+46 );
   CreateOL( "joSignal", left+83, top+46 );
   CreateOL( "joTrend", left+40, top+46 );
   CreateOL( "xCandle", left+170, top+32 );
   CreateOL( "pric3", left+170, top+7 );

   CreateOL( "joSignalM1", left+148, top+28 );
   CreateOL( "joSignalM5", left+130, top+28 );
   CreateOL( "joSignalM15", left+112, top+28 );
   CreateOL( "joSignalM30", left+94, top+28 );
   CreateOL( "joSignalH1", left+76, top+28 );
   CreateOL( "joSignalH4", left+58, top+28 );
   CreateOL( "joSignalD1", left+40, top+28 );

   CreateOL( "jobbaoTM1", left+151, top+10 );
   CreateOL( "jobbaoTM5", left+133, top+10 );
   CreateOL( "jobbaoTM15", left+115, top+10 );
   CreateOL( "jobbaoTM30", left+97, top+10 );
   CreateOL( "jobbaoTH1", left+79, top+10 );
   CreateOL( "jobbaoTH4", left+61, top+10 );
   CreateOL( "jobbaoTD1", left+43, top+10 );

   CreateOL( "jobbaoBSM1", left+148, top+10 );
   CreateOL( "jobbaoBSM5", left+130, top+10 );
   CreateOL( "jobbaoBSM15", left+112, top+10 );
   CreateOL( "jobbaoBSM30", left+94, top+10 );
   CreateOL( "jobbaoBSH1", left+76, top+10 );
   CreateOL( "jobbaoBSH4", left+58, top+10 );
   CreateOL( "jobbaoBSD1", left+40, top+10 );

   CreateOL( "joTex1", left+151, top+28 );
   CreateOL( "joTex2", left+133, top+28 );
   CreateOL( "joTex3", left+115, top+28 );
   CreateOL( "joTex4", left+97, top+28 );
   CreateOL( "joTex5", left+79, top+28 );
   CreateOL( "joTex6", left+61, top+28 );
   CreateOL( "joTex7", left+43, top+28 );

   CreateOL( "joG07", left+43, top+62 );
   CreateOL( "joG06", left+43, top+67 );
   CreateOL( "joG05", left+43, top+74 );
   CreateOL( "joG04", left+43, top+81 );
   CreateOL( "joG03", left+43, top+88 );
   CreateOL( "joG02", left+43, top+95 );
   CreateOL( "joG01", left+43, top+102 );

   CreateOL( "joG014", left+61, top+62 );
   CreateOL( "joG013", left+61, top+67 );
   CreateOL( "joG012", left+61, top+74 );
   CreateOL( "joG011", left+61, top+81 );
   CreateOL( "joG010", left+61, top+88 );
   CreateOL( "joG09", left+61, top+95 );
   CreateOL( "joG08", left+61, top+102 );

   CreateOL( "joG021", left+79, top+62 );
   CreateOL( "joG020", left+79, top+67 );
   CreateOL( "joG019", left+79, top+74 );
   CreateOL( "joG018", left+79, top+81 );
   CreateOL( "joG017", left+79, top+88 );
   CreateOL( "joG016", left+79, top+95 );
   CreateOL( "joG015", left+79, top+102 );

   CreateOL( "joG028", left+97, top+62 );
   CreateOL( "joG027", left+97, top+67 );
   CreateOL( "joG026", left+97, top+74 );
   CreateOL( "joG025", left+97, top+81 );
   CreateOL( "joG024", left+97, top+88 );
   CreateOL( "joG023", left+97, top+95 );
   CreateOL( "joG022", left+97, top+102 );

   CreateOL( "joG035", left+115, top+62 );
   CreateOL( "joG034", left+115, top+67 );
   CreateOL( "joG033", left+115, top+74 );
   CreateOL( "joG032", left+115, top+81 );
   CreateOL( "joG031", left+115, top+88 );
   CreateOL( "joG030", left+115, top+95 );
   CreateOL( "joG029", left+115, top+102 );

   CreateOL( "joG042", left+133, top+62 );
   CreateOL( "joG041", left+133, top+67 );
   CreateOL( "joG040", left+133, top+74 );
   CreateOL( "joG039", left+133, top+81 );
   CreateOL( "joG038", left+133, top+88 );
   CreateOL( "joG037", left+133, top+95 );
   CreateOL( "joG036", left+133, top+102 );

   CreateOL( "joG049", left+151, top+62 );
   CreateOL( "joG048", left+151, top+67 );
   CreateOL( "joG047", left+151, top+74 );
   CreateOL( "joG046", left+151, top+81 );
   CreateOL( "joG045", left+151, top+88 );
   CreateOL( "joG044", left+151, top+95 );
   CreateOL( "joG043", left+151, top+102 );

   CreateOL( "joTP1", left+5, top+73 );
   CreateOL( "joTP2", left+5, top+84 );
   CreateOL( "joTP3", left+5, top+95 );

//----
   return(0);
  }

//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectDelete("joFast");   ObjectDelete("joSignal");
   ObjectDelete("joTrend");   ObjectDelete("joSignalM1");
   ObjectDelete("joSignalM5");   ObjectDelete("joSignalM15");
   ObjectDelete("joSignalM30");   ObjectDelete("joSignalH1");
   ObjectDelete("joSignalH4");   ObjectDelete("joSignalD1");
   ObjectDelete("jobbaoTM1");   ObjectDelete("jobbaoTM5");
   ObjectDelete("jobbaoTM15");   ObjectDelete("jobbaoTM30");
   ObjectDelete("jobbaoTH1");   ObjectDelete("jobbaoTH4");
   ObjectDelete("jobbaoTD1");   ObjectDelete("jobbaoBSM1");
   ObjectDelete("jobbaoBSM5");   ObjectDelete("jobbaoBSM15");
   ObjectDelete("jobbaoBSM30");   ObjectDelete("jobbaoBSH1");
   ObjectDelete("jobbaoBSH4");   ObjectDelete("jobbaoBSD1");
   ObjectDelete("joTex1");   ObjectDelete("joTex2");
   ObjectDelete("joTex3");   ObjectDelete("joTex4");
   ObjectDelete("joTex5");   ObjectDelete("joTex6");
   ObjectDelete("joTex7");   ObjectDelete("xCandle");
   ObjectDelete("pric3");   ObjectDelete("joPair");
   ObjectDelete("joPVD1t");   ObjectDelete("joPVD1a");
   ObjectDelete("joOPD1t");   ObjectDelete("joOPD1a");
   ObjectDelete("joP2Opent");   ObjectDelete("joP2Opena");
   ObjectDelete("joHILOt");   ObjectDelete("joHILOa");
   ObjectDelete("joDAVt");   ObjectDelete("joDAVa");
   ObjectDelete("joSpreadt");   ObjectDelete("joSpreada");
   ObjectDelete("joG01");   ObjectDelete("joG02");
   ObjectDelete("joG03");   ObjectDelete("joG04");
   ObjectDelete("joG05");   ObjectDelete("joG06");
   ObjectDelete("joG07");   ObjectDelete("joG08");
   ObjectDelete("joG09");   ObjectDelete("joG010");
   ObjectDelete("joG011");   ObjectDelete("joG012");
   ObjectDelete("joG013");   ObjectDelete("joG014");
   ObjectDelete("joG015");   ObjectDelete("joG016");
   ObjectDelete("joG017");   ObjectDelete("joG018");
   ObjectDelete("joG019");   ObjectDelete("joG020");
   ObjectDelete("joG021");   ObjectDelete("joG022");
   ObjectDelete("joG023");   ObjectDelete("joG024");
   ObjectDelete("joG025");   ObjectDelete("joG026");
   ObjectDelete("joG027");   ObjectDelete("joG028");
   ObjectDelete("joG029");   ObjectDelete("joG030");
   ObjectDelete("joG031");   ObjectDelete("joG032");
   ObjectDelete("joG033");   ObjectDelete("joG034");
   ObjectDelete("joG035");   ObjectDelete("joG036");
   ObjectDelete("joG037");   ObjectDelete("joG038");
   ObjectDelete("joG039");   ObjectDelete("joG040");
   ObjectDelete("joG041");   ObjectDelete("joG042");
   ObjectDelete("joG043");   ObjectDelete("joG044");
   ObjectDelete("joG045");   ObjectDelete("joG046");
   ObjectDelete("joG047");   ObjectDelete("joG048");
   ObjectDelete("joG049");   ObjectDelete("joG050");
   ObjectDelete("joG051");   ObjectDelete("joG052");
   ObjectDelete("joG053");   ObjectDelete("joG054");
   ObjectDelete("joG055");   ObjectDelete("joG056");
   ObjectDelete("joTP1");   ObjectDelete("joTP2");
   ObjectDelete("joTP3");   
//----
   return(0);
  }
//+------------------------------------------------------------------+