//+------------------------------------------------------------------+
//|                                             Candle Direction.mq4 |
//|                                   Copyright 2014, Luis Andrianto |
//|                            https://login.mql5.com/en/users/lou15 |
//+------------------------------------------------------------------+
#property copyright "Copyright 2014, Luis Andrianto"
#property link      "https://login.mql5.com/en/users/lou15"

#property indicator_chart_window
#property indicator_buffers 1

extern color LabelColor  = LightSkyBlue;
extern int Corner        = 1;
extern color UpColor     = LimeGreen;
extern color DownColor   = Red;
extern color NetralColor = Silver;

int TF[]={43200,10080,1440};
string Label[]={"MN","W1","D1"};
double ExtBuff[];
double ExtBuff2[];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   SetIndexBuffer(0,ExtBuff,INDICATOR_DATA);
   SetIndexBuffer(0,ExtBuff2,INDICATOR_DATA);   
   for(int i=0;i<=2;i++)
   {
      ObjectCreate(Label[i],OBJ_LABEL,0,0,0);
      ObjectCreate(Label[i]+" ARROW",OBJ_LABEL,0,0,0);
      ObjectCreate(Label[i]+" ARROW2",OBJ_LABEL,0,0,0);
   }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   for(int i=0;i<=2;i++)
   {
      ObjectDelete(Label[i]);
      ObjectDelete(Label[i]+" ARROW");
            ObjectDelete(Label[i]+" ARROW2");
   }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+

double OCandle(int tf,int pos){double OC=iOpen(Symbol(),tf,pos);return(OC);}
double CCandle(int tf,int pos){double CC=iClose(Symbol(),tf,pos);return(CC);}

void ObSetLabel(string name,string text,int x,int y)
   {
      ObjectSetText(name,text,10,"Impact",LabelColor);
      ObjectSet(name,OBJPROP_CORNER,Corner);
      ObjectSet(name,OBJPROP_XDISTANCE,x);
      ObjectSet(name,OBJPROP_YDISTANCE,y);
      ObjectSet(name,OBJPROP_BACK,0);
   }
void ObSetArrow(string name,int code,int x,int y,color clr)
   {
      ObjectSetText(name,CharToStr(code),14,"Wingdings",clr);      
      ObjectSet(name,OBJPROP_CORNER,Corner);
      ObjectSet(name,OBJPROP_XDISTANCE,x);
      ObjectSet(name,OBJPROP_YDISTANCE,y);
      ObjectSet(name,OBJPROP_BACK,0);
   }

int start()
  {
   
//----
   
   int X_Start=0;
   int Y_Start=20;
   color clr;
   for(int i=0;i<=2;i++)
      {
         X_Start=X_Start+30;        
         
         ObSetLabel(Label[i],Label[i],X_Start,Y_Start);
         
         if(CCandle(TF[i],0)>OCandle(TF[i],0)){clr=UpColor;ExtBuff[i]=1;}
         else if(CCandle(TF[i],0)<OCandle(TF[i],0)){clr=DownColor;ExtBuff[i]=2;}
         else {clr=NetralColor;ExtBuff[i]=0;}
         ObSetArrow(Label[i]+" ARROW",110,X_Start,Y_Start+20,clr);
       }
       
       
//----
//----
   
   X_Start=0;
   Y_Start=40;
   for(i=0;i<=2;i++)
      {
         X_Start=X_Start+30;        
         
         
         if(CCandle(TF[i],1)>OCandle(TF[i],1)){clr=UpColor;ExtBuff2[i]=1;}
         else if(CCandle(TF[i],1)<OCandle(TF[i],1)){clr=DownColor;ExtBuff2[i]=2;}
         else {clr=NetralColor;ExtBuff2[i]=0;}
         
         ObSetArrow(Label[i]+" ARROW2",110,X_Start,Y_Start+20,clr);
       }
      X_Start=X_Start+50;
        
//----



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