//+------------------------------------------------------------------+
//|                                              (D1-H4-H1)HLines.mq4|
//+------------------------------------------------------------------+
#property copyright ""
#property indicator_chart_window

extern int   H1Length = 100, H1Bars = 5, H1Wid = 0;
extern color H1Col_H = clrRed, H1Col_L = clrBlue, H1Col_M = clrWhite;
extern ENUM_LINE_STYLE H1Style=STYLE_DOT; 

extern int   H4Length = 100, H4Bars = 5, H4Wid = 0;
extern color H4Col_H = clrGreen, H4Col_L = clrSlateBlue, H4Col_M = clrYellow;
extern ENUM_LINE_STYLE H4Style=STYLE_DASHDOTDOT;

extern int   D1Length = 100, D1Bars = 5, D1Wid = 0;
extern color D1Col_H = clrMagenta, D1Col_L = clrCornflowerBlue, D1Col_M = clrDimGray;
extern ENUM_LINE_STYLE D1Style=STYLE_SOLID;



//+------------------------------------------------------------------+
int init(){return(0);}

//+------------------------------------------------------------------+
int deinit()
  {
   ObjectDelete("H1-Line-H");
   ObjectDelete("H1-Line-L");
   ObjectDelete("H1-Line-M");
   
   ObjectDelete("H4-Line-H");
   ObjectDelete("H4-Line-L");
   ObjectDelete("H4-Line-M");
   
   ObjectDelete("D1-Line-H");
   ObjectDelete("D1-Line-L");
   ObjectDelete("D1-Line-M");
   
   
   return(0);
  }

//+------------------------------------------------------------------+
int start()
  {
  
  
//--------------------------------------------------------H1
      ObjectCreate("H1-Line-H", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("H1-Line-H", OBJPROP_TIME1, Time[H1Length]);
      ObjectSet("H1-Line-H", OBJPROP_TIME2, Time[0]);
      ObjectSet("H1-Line-H", OBJPROP_WIDTH, H1Wid);
      ObjectSet("H1-Line-H", OBJPROP_COLOR, H1Col_H);
      ObjectSet("H1-Line-H", OBJPROP_RAY, false);

      ObjectCreate("H1-Line-L", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("H1-Line-L", OBJPROP_TIME1, Time[H1Length]);
      ObjectSet("H1-Line-L", OBJPROP_TIME2, Time[0]);
      ObjectSet("H1-Line-L", OBJPROP_WIDTH, H1Wid);
      ObjectSet("H1-Line-L", OBJPROP_COLOR, H1Col_L);
      ObjectSet("H1-Line-L", OBJPROP_RAY, false);
      
      ObjectCreate("H1-Line-M", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("H1-Line-M", OBJPROP_TIME1, Time[H1Length]);
      ObjectSet("H1-Line-M", OBJPROP_TIME2, Time[0]);
      ObjectSet("H1-Line-M", OBJPROP_WIDTH, H1Wid);
      ObjectSet("H1-Line-M", OBJPROP_COLOR, H1Col_M);
      ObjectSet("H1-Line-M", OBJPROP_RAY, false);
  
  
      double H1H = 0, H1L=0, H1M = 0;
   
      H1H = iHigh(NULL, 60, iHighest(NULL, 60, MODE_HIGH, H1Bars, 1));
      H1L = iLow(NULL, 60, iLowest(NULL, 60, MODE_LOW, H1Bars, 1));
      H1M = H1L + (H1H - H1L) / 2;
      ObjectSet("H1-Line-H",  OBJPROP_PRICE1, H1H);
      ObjectSet("H1-Line-H",  OBJPROP_PRICE2, H1H);
      ObjectSet("H1-Line-L", OBJPROP_PRICE1, H1L);
      ObjectSet("H1-Line-L", OBJPROP_PRICE2, H1L);
      ObjectSet("H1-Line-M", OBJPROP_PRICE1, H1M);
      ObjectSet("H1-Line-M", OBJPROP_PRICE2, H1M);
      ObjectSet("H1-Line-H", OBJPROP_STYLE,  H1Style);
      ObjectSet("H1-Line-L", OBJPROP_STYLE,  H1Style);
      ObjectSet("H1-Line-M", OBJPROP_STYLE,  H1Style);
//--------------------------------------------------------H4

      ObjectCreate("H4-Line-H", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("H4-Line-H", OBJPROP_TIME1, Time[H4Length]);
      ObjectSet("H4-Line-H", OBJPROP_TIME2, Time[0]);
      ObjectSet("H4-Line-H", OBJPROP_WIDTH, H4Wid);
      ObjectSet("H4-Line-H", OBJPROP_COLOR, H4Col_H);
      ObjectSet("H4-Line-H", OBJPROP_RAY, false);

      ObjectCreate("H4-Line-L", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("H4-Line-L", OBJPROP_TIME1, Time[H4Length]);
      ObjectSet("H4-Line-L", OBJPROP_TIME2, Time[0]);
      ObjectSet("H4-Line-L", OBJPROP_WIDTH, H4Wid);
      ObjectSet("H4-Line-L", OBJPROP_COLOR, H4Col_L);
      ObjectSet("H4-Line-L", OBJPROP_RAY, false);
      
      ObjectCreate("H4-Line-M", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("H4-Line-M", OBJPROP_TIME1, Time[H4Length]);
      ObjectSet("H4-Line-M", OBJPROP_TIME2, Time[0]);
      ObjectSet("H4-Line-M", OBJPROP_WIDTH, H4Wid);
      ObjectSet("H4-Line-M", OBJPROP_COLOR, H4Col_M);
      ObjectSet("H4-Line-M", OBJPROP_RAY, false);


      double H4H = 0, H4L=0, H4M = 0;
   
      H4H = iHigh(NULL, 240, iHighest(NULL, 240, MODE_HIGH, H4Bars, 1));
      H4L = iLow(NULL, 240, iLowest(NULL, 240, MODE_LOW, H4Bars, 1));
      H4M = H4L + (H4H - H4L) / 2;
      ObjectSet("H4-Line-H", OBJPROP_PRICE1, H4H);
      ObjectSet("H4-Line-H", OBJPROP_PRICE2, H4H);
      ObjectSet("H4-Line-L", OBJPROP_PRICE1, H4L);
      ObjectSet("H4-Line-L", OBJPROP_PRICE2, H4L);
      ObjectSet("H4-Line-M", OBJPROP_PRICE1, H4M);
      ObjectSet("H4-Line-M", OBJPROP_PRICE2, H4M);
      ObjectSet("H4-Line-H", OBJPROP_STYLE,  H4Style);
      ObjectSet("H4-Line-L", OBJPROP_STYLE,  H4Style);
      ObjectSet("H4-Line-M", OBJPROP_STYLE,  H4Style);

//--------------------------------------------------------D1

ObjectCreate("D1-Line-H", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("D1-Line-H", OBJPROP_TIME1, Time[D1Length]);
      ObjectSet("D1-Line-H", OBJPROP_TIME2, Time[0]);
      ObjectSet("D1-Line-H", OBJPROP_WIDTH, D1Wid);
      ObjectSet("D1-Line-H", OBJPROP_COLOR, D1Col_H);
      ObjectSet("D1-Line-H", OBJPROP_RAY, false);

      ObjectCreate("D1-Line-L", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("D1-Line-L", OBJPROP_TIME1, Time[D1Length]);
      ObjectSet("D1-Line-L", OBJPROP_TIME2, Time[0]);
      ObjectSet("D1-Line-L", OBJPROP_WIDTH, D1Wid);
      ObjectSet("D1-Line-L", OBJPROP_COLOR, D1Col_L);
      ObjectSet("D1-Line-L", OBJPROP_RAY, false);
      
      ObjectCreate("D1-Line-M", OBJ_TREND, 0, 0, 0, 0, 0);
      ObjectSet("D1-Line-M", OBJPROP_TIME1, Time[D1Length]);
      ObjectSet("D1-Line-M", OBJPROP_TIME2, Time[0]);
      ObjectSet("D1-Line-M", OBJPROP_WIDTH, D1Wid);
      ObjectSet("D1-Line-M", OBJPROP_COLOR, D1Col_M);
      ObjectSet("D1-Line-M", OBJPROP_RAY, false);
      
      double D1H = 0, D1L=0, D1M = 0;
   
      D1H = iHigh(NULL, 1440, iHighest(NULL, 1440, MODE_HIGH, D1Bars, 1));
      D1L = iLow(NULL, 1440, iLowest(NULL, 1440, MODE_LOW, D1Bars, 1));
      D1M = D1L + (D1H - D1L) / 2;
      ObjectSet("D1-Line-H", OBJPROP_PRICE1, D1H);
      ObjectSet("D1-Line-H", OBJPROP_PRICE2, D1H);
      ObjectSet("D1-Line-L", OBJPROP_PRICE1, D1L);
      ObjectSet("D1-Line-L", OBJPROP_PRICE2, D1L);
      ObjectSet("D1-Line-M", OBJPROP_PRICE1, D1M);
      ObjectSet("D1-Line-M", OBJPROP_PRICE2, D1M);
      ObjectSet("D1-Line-H", OBJPROP_STYLE,  D1Style);
      ObjectSet("D1-Line-L", OBJPROP_STYLE,  D1Style);
      ObjectSet("D1-Line-M", OBJPROP_STYLE,  D1Style);






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