//+------------------------------------------------------------------+
//|                                                     Weekly Pivot |
//|                                    Copyright © 2006, Profitrader |
//|                                    Coded/Verified by Profitrader |
//+------------------------------------------------------------------+

// Modified for 10.2 by nanningbob April 2012
// Modified by candletiger@forexfactory April 2012
// Version ct4a
//+------------------------------------------------------------------+
//| Supported features/additions/modifications:                      |
//| * paints pivot lines for *every* week or month in history        |
//| * paints 3 S/L levels                                            |
//| * with a second instance, mid lines can be added                 |
//| * for the current week/month, an extension line is drawn         |
//| * added text paramters to the options                            |
//| * added colors to the options                                    |
//| 20/2/12: Added pip distance from cur. price to pivot/s/r labels  |
//|                                                                  |
//|                                                                  |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+

#property copyright "Copyright © 2006, Profitrader."
#property link      "profitrader@inbox.ru"

#property indicator_chart_window
#property indicator_buffers 7
extern string text_font = "Arial";
extern int text_size = 9;
extern int mtext_size = 8;
extern color text_color = Aqua;
extern color mtext_color = BurlyWood;
extern int line_thickness = 1;
extern color line_color_main =Crimson;
extern color line_color_support1 = Coral;
extern color line_color_resistance1 = Green;
extern color line_color_support2 =  Coral;
extern color line_color_resistance2 = Green;
extern color line_color_support3 = Coral;
extern color line_color_resistance3 = Green;


//---- buffers
double PBuffer[];
double S1Buffer[];
double R1Buffer[];
double S2Buffer[];
double R2Buffer[];
double S3Buffer[];
double R3Buffer[];

int pivot_bar;


double P,S1,R1,S2,R2,S3,R3, MS1, MS2, MS3, MR1, MR2, MR3;
double last_high,last_low,last_close;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
{
   int i;

   SetIndexBuffer(0,PBuffer);
   SetIndexBuffer(1,S1Buffer);
   SetIndexBuffer(2,R1Buffer);
   SetIndexBuffer(3,S2Buffer);
   SetIndexBuffer(4,R2Buffer);
   SetIndexBuffer(5,S3Buffer);
   SetIndexBuffer(6,R3Buffer);
   
   SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_main);
   SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_support1);
   SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_resistance1);
   SetIndexStyle(3,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_support2);
   SetIndexStyle(4,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_resistance2);
   SetIndexStyle(5,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_support3);
   SetIndexStyle(6,DRAW_LINE,STYLE_SOLID,line_thickness, line_color_resistance3);

   SetIndexLabel(0,"Week Pivot Point");
   SetIndexLabel(1,"Week Support 1");
   SetIndexLabel(2,"Week Resistance 1");
   SetIndexLabel(3,"Week Support 2");
   SetIndexLabel(4,"Week Resistance 2");
   SetIndexLabel(5,"Week Support 3");
   SetIndexLabel(6,"Week Resistance 3");
   
   ObjectCreate("Week Pivot",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Pivot","WP", text_size, text_font, text_color);
   ObjectCreate("Week Res1",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Res1","WR1", text_size, text_font, text_color);
   ObjectCreate("Week Sup1",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Sup1","WS1", text_size, text_font, text_color);
   ObjectCreate("Week Res2",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Res2","WR2", text_size, text_font, text_color);
   ObjectCreate("Week Sup2",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Sup2","WS2", text_size, text_font, text_color);
   ObjectCreate("Week Res3",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Res3","WR3", text_size, text_font, text_color);
   ObjectCreate("Week Sup3",OBJ_TEXT,0,0,0);
   ObjectSetText("Week Sup3","WS3", text_size, text_font, text_color);
   
   ObjectCreate("Week Pivot ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Pivot ext", OBJPROP_COLOR, line_color_main);
   ObjectSet("Week Pivot ext", OBJPROP_STYLE, STYLE_SOLID);
   ObjectCreate("Week Res1 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Res1 ext", OBJPROP_COLOR, line_color_resistance1);
   ObjectSet("Week Res1 ext", OBJPROP_STYLE, STYLE_SOLID);
   ObjectCreate("Week Sup1 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Sup1 ext", OBJPROP_COLOR, line_color_support1);
   ObjectSet("Week Sup1 ext", OBJPROP_STYLE, STYLE_SOLID);
   ObjectCreate("Week Res2 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Res2 ext", OBJPROP_COLOR, line_color_resistance2);
   ObjectSet("Week Res2 ext", OBJPROP_STYLE, STYLE_SOLID);
   ObjectCreate("Week Sup2 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Sup2 ext", OBJPROP_COLOR, line_color_support2);
   ObjectSet("Week Sup2 ext", OBJPROP_STYLE, STYLE_SOLID);
   ObjectCreate("Week Res3 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Res3 ext", OBJPROP_COLOR, line_color_resistance3);
   ObjectSet("Week Res3 ext", OBJPROP_STYLE, STYLE_SOLID);
   ObjectCreate("Week Sup3 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("Week Sup3 ext", OBJPROP_COLOR, line_color_support3);
   ObjectSet("Week Sup3 ext", OBJPROP_STYLE, STYLE_SOLID);

   ObjectCreate("MonPivot",OBJ_TEXT,0,0,0);
   ObjectSetText("MonPivot","MP", text_size, text_font, mtext_color);
   ObjectCreate("MonRes1",OBJ_TEXT,0,0,0);
   ObjectSetText("MonRes1","MR1", text_size, text_font, mtext_color);
   ObjectCreate("MonSup1",OBJ_TEXT,0,0,0);
   ObjectSetText("MonSup1","MS1", text_size, text_font, mtext_color);
   ObjectCreate("MonRes2",OBJ_TEXT,0,0,0);
   ObjectSetText("MonRes2","MR2", text_size, text_font, mtext_color);
   ObjectCreate("MonSup2",OBJ_TEXT,0,0,0);
   ObjectSetText("MonSup2","MS2", text_size, text_font, mtext_color);
   ObjectCreate("MonRes3",OBJ_TEXT,0,0,0);
   ObjectSetText("MonRes3","MR3", text_size, text_font, mtext_color);
   ObjectCreate("MonSup3",OBJ_TEXT,0,0,0);
   ObjectSetText("MonSup3","MS3", text_size, text_font, mtext_color);
   
   ObjectCreate("MonPivot ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonPivot ext", OBJPROP_COLOR, line_color_main);
   ObjectSet("MonPivot ext", OBJPROP_STYLE, STYLE_DASH);
   ObjectCreate("MonRes1 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonRes1 ext", OBJPROP_COLOR, line_color_resistance1);
   ObjectSet("MonRes1 ext", OBJPROP_STYLE, STYLE_DASH);
   ObjectCreate("MonSup1 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonSup1 ext", OBJPROP_COLOR, line_color_support1);
   ObjectSet("MonSup1 ext", OBJPROP_STYLE, STYLE_DASH);
   ObjectCreate("MonRes2 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonRes2 ext", OBJPROP_COLOR, line_color_resistance2);
   ObjectSet("MonRes2 ext", OBJPROP_STYLE, STYLE_DASH);
   ObjectCreate("MonSup2 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonSup2 ext", OBJPROP_COLOR, line_color_support2);
   ObjectSet("MonSup2 ext", OBJPROP_STYLE, STYLE_DASH);
   ObjectCreate("MonRes3 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonRes3 ext", OBJPROP_COLOR, line_color_resistance3);
   ObjectSet("MonRes3 ext", OBJPROP_STYLE, STYLE_DASH);
   ObjectCreate("MonSup3 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MonSup3 ext", OBJPROP_COLOR, line_color_support3);
   ObjectSet("MonSup3 ext", OBJPROP_STYLE, STYLE_DASH);

   ObjectCreate("MidMonRes1",OBJ_TEXT,0,0,0);
   ObjectSetText("MidMonRes1","mR1", mtext_size, text_font, mtext_color);
   ObjectCreate("MidMonSup1",OBJ_TEXT,0,0,0);
   ObjectSetText("MidMonSup1","mS1", mtext_size, text_font, mtext_color);
   ObjectCreate("MidMonRes2",OBJ_TEXT,0,0,0);
   ObjectSetText("MidMonRes2","mR2", mtext_size, text_font, mtext_color);
   ObjectCreate("MidMonSup2",OBJ_TEXT,0,0,0);
   ObjectSetText("MidMonSup2","mS2", mtext_size, text_font, mtext_color);
   ObjectCreate("MidMonRes3",OBJ_TEXT,0,0,0);
   ObjectSetText("MidMonRes3","mR3", mtext_size, text_font, mtext_color);
   ObjectCreate("MidMonSup3",OBJ_TEXT,0,0,0);
   ObjectSetText("MidMonSup3","mS3", mtext_size, text_font, mtext_color);
   
   ObjectCreate("MidMonRes1 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MidMonRes1 ext", OBJPROP_COLOR, line_color_resistance1);
   ObjectSet("MidMonRes1 ext", OBJPROP_STYLE, STYLE_DOT);
   ObjectCreate("MidMonSup1 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MidMonSup1 ext", OBJPROP_COLOR, line_color_support1);
   ObjectSet("MidMonSup1 ext", OBJPROP_STYLE, STYLE_DOT);
   ObjectCreate("MidMonRes2 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MidMonRes2 ext", OBJPROP_COLOR, line_color_resistance2);
   ObjectSet("MidMonRes2 ext", OBJPROP_STYLE, STYLE_DOT);
   ObjectCreate("MidMonSup2 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MidMonSup2 ext", OBJPROP_COLOR, line_color_support2);
   ObjectSet("MidMonSup2 ext", OBJPROP_STYLE, STYLE_DOT);
   ObjectCreate("MidMonRes3 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MidMonRes3 ext", OBJPROP_COLOR, line_color_resistance3);
   ObjectSet("MidMonRes3 ext", OBJPROP_STYLE, STYLE_DOT);
   ObjectCreate("MidMonSup3 ext", OBJ_TREND,0, 0,0,0,0);
   ObjectSet("MidMonSup3 ext", OBJPROP_COLOR, line_color_support3);
   ObjectSet("MidMonSup3 ext", OBJPROP_STYLE, STYLE_DOT);

   return(0);
}

//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
   ObjectDelete("Week Pivot");
   ObjectDelete("Week Sup1");
   ObjectDelete("Week Res1");
   ObjectDelete("Week Sup2");
   ObjectDelete("Week Res2");
   ObjectDelete("Week Sup3");
   ObjectDelete("Week Res3"); 
   
   ObjectDelete("Week Pivot ext"); 
   ObjectDelete("Week Res1 ext"); 
   ObjectDelete("Week Res2 ext"); 
   ObjectDelete("Week Res3 ext"); 
   ObjectDelete("Week Sup1 ext"); 
   ObjectDelete("Week Sup2 ext"); 
   ObjectDelete("Week Sup3 ext"); 
   
   ObjectDelete("MonPivot");
   ObjectDelete("MonSup1");
   ObjectDelete("MonRes1");
   ObjectDelete("MonSup2");
   ObjectDelete("MonRes2");
   ObjectDelete("MonSup3");
   ObjectDelete("MonRes3"); 
   
   ObjectDelete("MonPivot ext"); 
   ObjectDelete("MonRes1 ext"); 
   ObjectDelete("MonRes2 ext"); 
   ObjectDelete("MonRes3 ext"); 
   ObjectDelete("MonSup1 ext"); 
   ObjectDelete("MonSup2 ext"); 
   ObjectDelete("MonSup3 ext"); 

   ObjectDelete("MidMonSup1");
   ObjectDelete("MidMonRes1");
   ObjectDelete("MidMonSup2");
   ObjectDelete("MidMonRes2");
   ObjectDelete("MidMonSup3");
   ObjectDelete("MidMonRes3"); 
   
   ObjectDelete("MidMonRes1 ext"); 
   ObjectDelete("MidMonRes2 ext"); 
   ObjectDelete("MidMonRes3 ext"); 
   ObjectDelete("MidMonSup1 ext"); 
   ObjectDelete("MidMonSup2 ext"); 
   ObjectDelete("MidMonSup3 ext"); 


   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
{
   int i,counted_bars=IndicatorCounted();
   if(counted_bars<0) return(-1);
   if(counted_bars>0) counted_bars--;  
   int limit=Bars-counted_bars;
   if(Period()>PERIOD_D1) return(-1);
   for(i=limit-1; i>=0; i--)
   {
       pivot_bar = iBarShift( NULL, PERIOD_W1, Time[i]);
       last_low=iLow(NULL, PERIOD_W1, pivot_bar+1);
       last_high=iHigh(NULL, PERIOD_W1, pivot_bar+1);
       last_close=iClose(NULL, PERIOD_W1, pivot_bar+1);
       P=(last_high+last_low+last_close)/3;
       R1=(2*P)-last_low;
       S1=(2*P)-last_high;
       R2=P+(last_high-last_low);
       S2=P-(last_high-last_low);
       R3=(2*P)+(last_high-(2*last_low));
       S3=(2*P)-((2*last_high)-last_low);
       PBuffer[i]=P;
       S1Buffer[i]=S1;
       R1Buffer[i]=R1;
       S2Buffer[i]=S2;
       R2Buffer[i]=R2;
       S3Buffer[i]=S3;
       R3Buffer[i]=R3;
    } // end for i loop
    
    int em=WindowBarsPerChart()*Period()*4.5;
    ObjectMove("Week Pivot",0,Time[0]+em,P);
    ObjectSetText("Week Pivot", "WP "+DoubleToStr((P-Close[0])/Point,0), text_size);        
    ObjectMove("Week Sup1",0,Time[0]+em,S1);
    ObjectSetText("Week Sup1", "WS1 "+DoubleToStr((S1-Close[0])/Point, 0), text_size);    
    ObjectMove("Week Res1",0,Time[0]+em,R1);
    ObjectSetText("Week Res1", "WR1 "+DoubleToStr((R1-Close[0])/Point, 0), text_size);            
    ObjectMove("Week Sup2",0,Time[0]+em,S2);
    ObjectSetText("Week Sup2", "WS2 "+DoubleToStr((S2-Close[0])/Point, 0), text_size);                
    ObjectMove("Week Res2",0,Time[0]+em,R2);
    ObjectSetText("Week Res2", "WR2 "+DoubleToStr((R2-Close[0])/Point, 0), text_size);                    
    ObjectMove("Week Sup3",0,Time[0]+em,S3);
    ObjectSetText("Week Sup3", "WS3 "+DoubleToStr((S3-Close[0])/Point, 0), text_size);                        
    ObjectMove("Week Res3",0,Time[0]+em,R3);
    ObjectSetText("Week Res3", "WR3 "+DoubleToStr((R3-Close[0])/Point, 0), text_size);                            
    
    ObjectMove("Week Pivot ext", 0, Time[1],P);
    ObjectMove("Week Pivot ext", 1, Time[0],P);
    ObjectSet("Week Pivot ext", OBJPROP_STYLE, STYLE_SOLID);
    ObjectMove("Week Res1 ext", 0, Time[1],R1);
    ObjectMove("Week Res1 ext", 1, Time[0],R1);
    ObjectSet("Week Res1 ext", OBJPROP_STYLE, STYLE_SOLID);
    ObjectMove("Week Res2 ext", 0, Time[1],R2);
    ObjectMove("Week Res2 ext", 1, Time[0],R2);
    ObjectSet("Week Res2 ext", OBJPROP_STYLE, STYLE_SOLID);
    ObjectMove("Week Res3 ext", 0, Time[1],R3);
    ObjectMove("Week Res3 ext", 1, Time[0],R3);
    ObjectSet("Week Res3 ext", OBJPROP_STYLE, STYLE_SOLID);
    ObjectMove("Week Sup1 ext", 0, Time[1],S1);
    ObjectMove("Week Sup1 ext", 1, Time[0],S1);
    ObjectSet("Week Sup1 ext", OBJPROP_STYLE, STYLE_SOLID);
    ObjectMove("Week Sup2 ext", 0, Time[1],S2);
    ObjectMove("Week Sup2 ext", 1, Time[0],S2);
    ObjectSet("Week Sup2 ext", OBJPROP_STYLE, STYLE_SOLID);
    ObjectMove("Week Sup3 ext", 0, Time[1],S3);
    ObjectMove("Week Sup3 ext", 1, Time[0],S3);
    ObjectSet("Week Sup3 ext", OBJPROP_STYLE, STYLE_SOLID);

    pivot_bar = iBarShift( NULL, PERIOD_MN1, Time[0]);
    last_low=iLow(NULL, PERIOD_MN1, pivot_bar+1);
    last_high=iHigh(NULL, PERIOD_MN1, pivot_bar+1);
    last_close=iClose(NULL, PERIOD_MN1, pivot_bar+1);
    P=(last_high+last_low+last_close)/3;
    R1=(2*P)-last_low;
    S1=(2*P)-last_high;
    R2=P+(last_high-last_low);
    S2=P-(last_high-last_low);
    R3=(2*P)+(last_high-(2*last_low));
    S3=(2*P)-((2*last_high)-last_low);
    MS3 = S3 + ((S2-S3) / 2);
    MS2 = S2 + ((S1-S2) / 2);
    MS1 = S1 + ((P-S1) / 2);
    MR1 = P + ((R1-P) / 2);
    MR2 = R1 + ((R2-R1) / 2);
    MR3 = R2 + ((R3-R2) / 2);

    em=WindowBarsPerChart()*Period()*8;
    ObjectMove("MonPivot",0,Time[0]+em,P);
    ObjectSetText("MonPivot", "MP "+DoubleToStr((P-Close[0])/Point, 0), text_size);        
    ObjectMove("MonSup1",0,Time[0]+em,S1);
    ObjectSetText("MonSup1", "MS1 "+DoubleToStr((S1-Close[0])/Point, 0), text_size);    
    ObjectMove("MonRes1",0,Time[0]+em,R1);
    ObjectSetText("MonRes1", "MR1 "+DoubleToStr((R1-Close[0])/Point, 0), text_size);            
    ObjectMove("MonSup2",0,Time[0]+em,S2);
    ObjectSetText("MonSup2", "MS2 "+DoubleToStr((S2-Close[0])/Point, 0), text_size);                
    ObjectMove("MonRes2",0,Time[0]+em,R2);
    ObjectSetText("MonRes2", "MR2 "+DoubleToStr((R2-Close[0])/Point, 0), text_size);                    
    ObjectMove("MonSup3",0,Time[0]+em,S3);
    ObjectSetText("MonSup3", "MS3 "+DoubleToStr((S3-Close[0])/Point, 0), text_size);                        
    ObjectMove("MonRes3",0,Time[0]+em,R3);
    ObjectSetText("MonRes3", "MR3 "+DoubleToStr((R3-Close[0])/Point, 0), text_size);                            

    em=WindowBarsPerChart()*Period()*6.5;
    ObjectMove("MonPivot ext", 0, Time[1]+em,P);
    ObjectMove("MonPivot ext", 1, Time[0]+em,P);
    ObjectSet("MonPivot ext", OBJPROP_STYLE, STYLE_DASH);
    ObjectMove("MonRes1 ext", 0, Time[1]+em,R1);
    ObjectMove("MonRes1 ext", 1, Time[0]+em,R1);
    ObjectSet("MonRes1 ext", OBJPROP_STYLE, STYLE_DASH);
    ObjectMove("MonRes2 ext", 0, Time[1]+em,R2);
    ObjectMove("MonRes2 ext", 1, Time[0]+em,R2);
    ObjectSet("MonRes2 ext", OBJPROP_STYLE, STYLE_DASH);
    ObjectMove("MonRes3 ext", 0, Time[1]+em,R3);
    ObjectMove("MonRes3 ext", 1, Time[0]+em,R3);
    ObjectSet("MonRes3 ext", OBJPROP_STYLE, STYLE_DASH);
    ObjectMove("MonSup1 ext", 0, Time[1]+em,S1);
    ObjectMove("MonSup1 ext", 1, Time[0]+em,S1);
    ObjectSet("MonSup1 ext", OBJPROP_STYLE, STYLE_DASH);
    ObjectMove("MonSup2 ext", 0, Time[1]+em,S2);
    ObjectMove("MonSup2 ext", 1, Time[0]+em,S2);
    ObjectSet("MonSup2 ext", OBJPROP_STYLE, STYLE_DASH);
    ObjectMove("MonSup3 ext", 0, Time[1]+em,S3);
    ObjectMove("MonSup3 ext", 1, Time[0]+em,S3);
    ObjectSet("MonSup3 ext", OBJPROP_STYLE, STYLE_DASH);

    em=WindowBarsPerChart()*Period()*8;
    ObjectMove("MidMonSup1",0,Time[0]+em,MS1);
    ObjectSetText("MidMonSup1", "mS1 "+DoubleToStr((MS1-Close[0])/Point, 0), mtext_size);    
    ObjectMove("MidMonRes1",0,Time[0]+em,MR1);
    ObjectSetText("MidMonRes1", "mR1 "+DoubleToStr((MR1-Close[0])/Point, 0), mtext_size);            
    ObjectMove("MidMonSup2",0,Time[0]+em,MS2);
    ObjectSetText("MidMonSup2", "mS2 "+DoubleToStr((MS2-Close[0])/Point, 0), mtext_size);                
    ObjectMove("MidMonRes2",0,Time[0]+em,MR2);
    ObjectSetText("MidMonRes2", "mR2 "+DoubleToStr((MR2-Close[0])/Point, 0), mtext_size);                    
    ObjectMove("MidMonSup3",0,Time[0]+em,MS3);
    ObjectSetText("MidMonSup3", "mS3 "+DoubleToStr((MS3-Close[0])/Point, 0), mtext_size);                        
    ObjectMove("MidMonRes3",0,Time[0]+em,MR3);
    ObjectSetText("MidMonRes3", "mR3 "+DoubleToStr((MR3-Close[0])/Point, 0), mtext_size);                            
    
    em=WindowBarsPerChart()*Period()*6.5;
    ObjectMove("MidMonRes1 ext", 0, Time[1]+em,MR1);
    ObjectMove("MidMonRes1 ext", 1, Time[0]+em,MR1);
    ObjectSet("MidMonRes1 ext", OBJPROP_STYLE, STYLE_DOT);
    ObjectMove("MidMonRes2 ext", 0, Time[1]+em,MR2);
    ObjectMove("MidMonRes2 ext", 1, Time[0]+em,MR2);
    ObjectSet("MidMonRes2 ext", OBJPROP_STYLE, STYLE_DOT);
    ObjectMove("MidMonRes3 ext", 0, Time[1]+em,MR3);
    ObjectMove("MidMonRes3 ext", 1, Time[0]+em,MR3);
    ObjectSet("MidMonRes3 ext", OBJPROP_STYLE, STYLE_DOT);
    ObjectMove("MidMonSup1 ext", 0, Time[1]+em,MS1);
    ObjectMove("MidMonSup1 ext", 1, Time[0]+em,MS1);
    ObjectSet("MidMonSup1 ext", OBJPROP_STYLE, STYLE_DOT);
    ObjectMove("MidMonSup2 ext", 0, Time[1]+em,MS2);
    ObjectMove("MidMonSup2 ext", 1, Time[0]+em,MS2);
    ObjectSet("MidMonSup2 ext", OBJPROP_STYLE, STYLE_DOT);
    ObjectMove("MidMonSup3 ext", 0, Time[1]+em,MS3);
    ObjectMove("MidMonSup3 ext", 1, Time[0]+em,MS3);
    ObjectSet("MidMonSup3 ext", OBJPROP_STYLE, STYLE_DOT);
    
    //----
    return(0);
}
//+------------------------------------------------------------------+