//+------------------------------------------------------------------+
//|                                                     Close - EMA's|
//|                                  2014 - Joca (nc32007a@gmail.com)|
//+------------------------------------------------------------------+
 
#property indicator_chart_window

extern int EMA_Period=80;
extern int offset=5;
extern int lenght=7;

color UpCandleColor=Lime;
color DownCandleColor=Red;
double width=2;


//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+


void DeleteObjects() 


{
    
   ObjectsDeleteAll(0,"M30",0,OBJ_TREND);
   ObjectsDeleteAll(0,"H1",0,OBJ_TREND);
   ObjectsDeleteAll(0,"H4",0,OBJ_TREND);
   ObjectsDeleteAll(0,"D1",0,OBJ_TREND);
   ObjectsDeleteAll(0,"W1",0,OBJ_TREND);
   ObjectsDeleteAll(0,"MN1",0,OBJ_TREND);
   

}
   

int init()

  {
  DeleteObjects();
  return(0);
  }
  
  
  int deinit() 
  
  {
  DeleteObjects();
  return(0);
  }
 

int start()

  {
  
   DeleteObjects();
   
   double dif=MathAbs(Time[1] - Time[2]);
   datetime dtStart=Time[0]+dif*offset;
   datetime dtEnd=Time[0]+dif*offset*lenght;
    
   
   
   //m30 
   
   string name="M30";
   double M1=iMA(Symbol(), PERIOD_M30, EMA_Period, 0, MODE_EMA, PRICE_CLOSE, 0);
   color clr=DownCandleColor; 
   if (M1 <= Bid) clr=UpCandleColor;
   
   
   ObjectCreate(0,name+MathRand(),OBJ_TREND,0, dtStart, M1,dtEnd, M1);
   ObjectSet(name+MathRand(), OBJPROP_COLOR, clr);
   ObjectSet(name+MathRand(), OBJPROP_WIDTH, width);
   ObjectSet(name+MathRand(), OBJPROP_RAY, False);
   ObjectSetText(name+MathRand(),"  M30");
   
   
   
    //H1
   
   name="H1";
   double H1=iMA(Symbol(), PERIOD_H1, EMA_Period, 0, MODE_EMA, PRICE_CLOSE, 0);
   clr=DownCandleColor; 
   if (H1 <= Bid) clr=UpCandleColor;
   
   
   ObjectCreate(0,name+MathRand(),OBJ_TREND, 0,dtStart, H1,dtEnd, H1);
   ObjectSet(name+MathRand(), OBJPROP_COLOR, clr);
   ObjectSet(name+MathRand(), OBJPROP_WIDTH, width);
   ObjectSet(name+MathRand(), OBJPROP_RAY, False);
   ObjectSetText(name+MathRand(),"  H1");
   
   
    //H4
   
   name="H4";
   double H4=iMA(Symbol(), PERIOD_H4, EMA_Period, 0, MODE_EMA, PRICE_CLOSE, 0);
   clr=DownCandleColor; 
   if (H4 <= Bid) clr=UpCandleColor;
   
   
   ObjectCreate(0,name+MathRand(),OBJ_TREND, 0,dtStart, H4,dtEnd, H4);
   ObjectSet(name+MathRand(), OBJPROP_COLOR, clr);
   ObjectSet(name+MathRand(), OBJPROP_WIDTH, width);
   ObjectSet(name+MathRand(), OBJPROP_RAY, False);
   ObjectSetText(name+MathRand(),"  H4");
   
   
   //D1
   
   name="D1";
   double D1=iMA(Symbol(), PERIOD_D1, EMA_Period, 0, MODE_EMA, PRICE_CLOSE, 0);
   clr=DownCandleColor; 
   if (D1 <= Bid) clr=UpCandleColor;
   
   
   ObjectCreate(0,name+MathRand(),OBJ_TREND, 0,dtStart, D1,dtEnd, D1);
   ObjectSet(name+MathRand(), OBJPROP_COLOR, clr);
   ObjectSet(name+MathRand(), OBJPROP_WIDTH, width);
   ObjectSet(name+MathRand(), OBJPROP_RAY, False);
   ObjectSetText(name+MathRand(),"  D1");
   
   
    //W1
   
   name="W1";
   double W1=iMA(Symbol(), PERIOD_W1, EMA_Period, 0, MODE_EMA, PRICE_CLOSE, 0);
   clr=DownCandleColor; 
   if (W1 <= Bid) clr=UpCandleColor;
   
   
   ObjectCreate(0,name+MathRand(),OBJ_TREND, 0,dtStart, W1,dtEnd, W1);
   ObjectSet(name+MathRand(), OBJPROP_COLOR, clr);
   ObjectSet(name+MathRand(), OBJPROP_WIDTH, width);
   ObjectSet(name+MathRand(), OBJPROP_RAY, False);
   ObjectSetText(name+MathRand(),"  W1");
   
   
    //MN1
   
   name="MN1";
   double MN1=iMA(Symbol(), PERIOD_MN1, EMA_Period, 0, MODE_EMA, PRICE_CLOSE, 0);
   clr=DownCandleColor; 
   if (MN1 <= Bid) clr=UpCandleColor;
   
   
   ObjectCreate(0,name+MathRand(),OBJ_TREND, 0,dtStart, MN1,dtEnd, MN1);
   ObjectSet(name+MathRand(), OBJPROP_COLOR, clr);
   ObjectSet(name+MathRand(), OBJPROP_WIDTH, width);
   ObjectSet(name+MathRand(), OBJPROP_RAY, False);
   ObjectSetText(name+MathRand(),"  MN1");
   
   
   
   return(0);
  }
//+------------------------------------------------------------------+