//------------------------------------------------------------------
//
//------------------------------------------------------------------
#property indicator_separate_window
#property indicator_buffers 0
#property indicator_minimum 0
#property indicator_maximum 1

//
//
//
//
//

extern string _            = "pairs and timeframes";
extern string pairs        = "EURUSD;EURJPY;GBPUSD;GBPJPY;USDCHF;USDCAD;USDJPY";
extern string prefix       = "";
extern string suffix       = "";
extern string timeFrames   = "M1;M5;M15;M30;H1;H4;D1;W1;MN";
extern int    columns      = 10;
extern string __           = "levels";
extern double AdxLevel1    = 20.00;
extern double AdxLevel2    = 30.00;
extern string ___          = "colors";
extern color  ColorUp      = ForestGreen;
extern color  ColorNeutral = Gray;
extern color  ColorDown    = OrangeRed;
extern color  ColorPrice   = LimeGreen;
extern color  ColorLabels  = Gray;
extern string ____         = "other";
extern bool   ShowLegend   = true;
extern string UniqueID     = "tickWatcher1";

//
//
//
//
//

int      window;  
int      totalPairs;
int      totalTimeFrames;
int      totalLabels;
int      aTimes[];
string   aPairs[];
string   sTimes[];

//
//
//
//
//

color    adx_color;
color    sar_color;
color    aos_color;
string   adx_arrow;
string   sar_arrow;
string   aos_arrow;
string   labelNames;
string   shortName;
int      corner;


//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+

int init()
{
   corner     = 0;
   shortName  = UniqueID;
   labelNames = shortName;
      IndicatorShortName(shortName);

   //
   //
   //
   //
   //
   
      pairs = StringTrimLeft(StringTrimRight(pairs));
      if (StringSubstr(pairs,StringLen(pairs)-1,1) != ";")
                       pairs = StringConcatenate(pairs,";");

         //
         //
         //
         //
         //                                   

         int  s      = 0;
         int  i      = StringFind(pairs,";",s);
         string current;
            while (i > 0)
            {
               current = prefix+StringSubstr(pairs,s,i-s)+suffix;
                     ArrayResize(aPairs,ArraySize(aPairs)+1);
                                 aPairs[ArraySize(aPairs)-1] = current;
                                 s = i + 1;
                                     i = StringFind(pairs,";",s);
            }

      //
      //
      //
      //
      //

      timeFrames = StringUpperCase(StringTrimLeft(StringTrimRight(timeFrames)));
      if (StringSubstr(timeFrames,StringLen(timeFrames),1) != ";")
                       timeFrames = StringConcatenate(timeFrames,";");

         //
         //
         //
         //
         //                                   
            
         s = 0;
         i = StringFind(timeFrames,";",s);
         int time;
            while (i > 0)
            {
               current = StringSubstr(timeFrames,s,i-s);
               time    = stringToTimeFrame(current);
               if (time > 0) {
                     ArrayResize(sTimes,ArraySize(sTimes)+1);
                     ArrayResize(aTimes,ArraySize(aTimes)+1);
                                 sTimes[ArraySize(sTimes)-1] = TimeFrameToString(time); 
                                 aTimes[ArraySize(aTimes)-1] = time; }
                                 s = i + 1;
                                     i = StringFind(timeFrames,";",s);
            }

      //
      //
      //
      //
      //

      totalTimeFrames = ArraySize(aTimes);
      totalPairs      = ArraySize(aPairs);
      totalLabels     = 0;
   return(0);
}

int deinit()
{
   while (totalLabels>0) { ObjectDelete(StringConcatenate(labelNames,totalLabels)); totalLabels--;}
   return(0);
}


//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+

int start()
{
   int m,n;
   int i,k;

   //
   //
   //
   //
   //

   window      = WindowFind(shortName);
   totalLabels = 0; 
   int col = 1;
   int max = 20;
         for (i=0,m=80; i < totalPairs; i++, m+=140, col++)
         {
            bool first = true;
            if (col>columns) { m = 80; max += totalTimeFrames*13+30; col = 1;}
            for (k=0, n=max; k < totalTimeFrames; k++, n+=13)
                  showPair(aPairs[i],aTimes[k],sTimes[k],m,n,first);
         }            
   if (ShowLegend) DoShowLegend();
   return(0);
}


//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//
//
//
//
//

void DoShowLegend()
{
   corner = 1;
   setObject(next(),"up"       ,30,20,ColorLabels); setObject(next(),"l",11,21,ColorUp     ,"Wingdings");
   setObject(next(),"weak up"  ,30,33,ColorLabels); setObject(next(),"¡",10,34,ColorUp     ,"Wingdings");
   setObject(next(),"neutral"  ,30,46,ColorLabels); setObject(next(),"¡",10,47,ColorNeutral,"Wingdings");
   setObject(next(),"weak down",30,59,ColorLabels); setObject(next(),"¡",10,60,ColorDown   ,"Wingdings");
   setObject(next(),"down"     ,30,72,ColorLabels); setObject(next(),"l",11,74,ColorDown   ,"Wingdings");
   corner = 0;      
}

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//
//
//
//
//

void showPair(string pair, int timeFrame, string label, int xdistance, int ydistance,bool& first)
{
   double price = iClose(pair,0,0);
   double adx   = iADX(pair,timeFrame,14,PRICE_CLOSE,0,0);
   double dip   = iADX(pair,timeFrame,14,PRICE_CLOSE,1,0);
   double dim   = iADX(pair,timeFrame,14,PRICE_CLOSE,2,0);
   double sarv  = iSAR(pair,timeFrame ,0.02,0.2,0);
   double aosv  = iAO(pair,timeFrame,0);
   double aosp  = iAO(pair,timeFrame,1);

   //
   //
   //
   //
   //   

      if (first) {
            setObject(next(),pair                                           ,xdistance-1 ,ydistance   ,ColorLabels,"Arial Bold",12,270);
            setObject(next(),DoubleToStr(price,MarketInfo(pair,MODE_DIGITS)),xdistance-16,ydistance-19,ColorPrice ,"Arial Bold",12);
            first = false;
         }            
         
      //
      //
      //
      //
      //

      setAdxColorArrow(adx,dip,dim);
      setSarColorArrow(sarv,price);
      setAosColorArrow(aosv,aosp);
         setLabel(label,xdistance   ,ydistance,adx,adx_color,adx_arrow);
         setLabel(" "  ,xdistance+79,ydistance," ",sar_color,sar_arrow,false);
         setLabel(" "  ,xdistance+91,ydistance," ",aos_color,aos_arrow,false);
}



//+------------------------------------------------------------------+
//| Custom functions and procedures                                  |
//+------------------------------------------------------------------+
string next() { totalLabels++; return(totalLabels); }  
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//
//
//
//
//

void setAosColorArrow(double first,double second)
{
   if (first==second) { aos_color = ColorNeutral; aos_arrow = "¡"; }
   if (first > second)
   {
      aos_color = ColorUp;
         if (first < 0)
               aos_arrow = "¡"; 
         else  aos_arrow = "l";
   }
   if (first < second)
   {
      aos_color = ColorDown;
         if (first > 0)
               aos_arrow = "¡"; 
         else  aos_arrow = "l";
   }
}
void setSarColorArrow(double first,double second)
{
   double diff = first-second;
      if (diff <0) { sar_color = ColorUp;      sar_arrow = "l"; }
      if (diff >0) { sar_color = ColorDown;    sar_arrow = "l"; }
      if (diff==0) { sar_color = ColorNeutral; sar_arrow = "¡"; }
}
void setAdxColorArrow(double first,double second,double third)
{
   if((first < AdxLevel1) && (first != 0)) { adx_color = ColorNeutral; adx_arrow = "¡";}
   if (first >=AdxLevel1)
      if (second > third) {
            adx_color = ColorUp;
               if   (first < AdxLevel2) adx_arrow = "¡";
               else                     adx_arrow = "l";
         }                  
      else {
            adx_color = ColorDown;
               if   (first < AdxLevel2) adx_arrow = "¡";
               else                     adx_arrow = "l";
         }
}  


//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
//
//
//
//
//

void setLabel(string text,int x,int y,string value, color theColor, string arrow, bool isADX=true)
{
     int last = 0;
     
     if (isADX) {last=67;}
     if (isADX) setObject(next(),text                   ,x     ,y,ColorLabels);
     if (isADX) setObject(next(),StringSubstr(value,0,5),x+30  ,y,theColor);
                setObject(next(),arrow                  ,x+last,y,theColor,"Wingdings",9);
}

//
//
//
//
//

void setObject(string name,string text,int x,int y,color theColor, string font = "Arial",int size=10,int angle=0)
{
   string labelName = StringConcatenate(labelNames,name);

   //
   //
   //
   //
   //
      
      if (ObjectFind(labelName) == -1)
          {
             ObjectCreate(labelName,OBJ_LABEL,window,0,0);
             ObjectSet(labelName,OBJPROP_CORNER,corner);
             if (angle != 0)
                  ObjectSet(labelName,OBJPROP_ANGLE,angle);
          }               
       ObjectSet(labelName,OBJPROP_XDISTANCE,x);
       ObjectSet(labelName,OBJPROP_YDISTANCE,y);
       ObjectSetText(labelName,text,size,font,theColor);
}

//+------------------------------------------------------------------+
//+                                                                  +
//+------------------------------------------------------------------+
//
//
//
//
//

int stringToTimeFrame(string tfs)
{
   int tf=0;
       tfs = StringTrimLeft(StringTrimRight(StringUpperCase(tfs)));
         if (tfs=="M1" || tfs=="1")     tf=PERIOD_M1;
         if (tfs=="M5" || tfs=="5")     tf=PERIOD_M5;
         if (tfs=="M15"|| tfs=="15")    tf=PERIOD_M15;
         if (tfs=="M30"|| tfs=="30")    tf=PERIOD_M30;
         if (tfs=="H1" || tfs=="60")    tf=PERIOD_H1;
         if (tfs=="H4" || tfs=="240")   tf=PERIOD_H4;
         if (tfs=="D1" || tfs=="1440")  tf=PERIOD_D1;
         if (tfs=="W1" || tfs=="10080") tf=PERIOD_W1;
         if (tfs=="MN" || tfs=="43200") tf=PERIOD_MN1;
  return(tf);
}
string TimeFrameToString(int tf)
{
   string tfs;
   switch(tf) {
      case PERIOD_M1:  tfs="M1"  ; break;
      case PERIOD_M5:  tfs="M5"  ; break;
      case PERIOD_M15: tfs="M15" ; break;
      case PERIOD_M30: tfs="M30" ; break;
      case PERIOD_H1:  tfs="H1"  ; break;
      case PERIOD_H4:  tfs="H4"  ; break;
      case PERIOD_D1:  tfs="D1"  ; break;
      case PERIOD_W1:  tfs="W1"  ; break;
      case PERIOD_MN1: tfs="MN1";
   }
   return(tfs);
}

//
//
//
//
//

string StringUpperCase(string str)
{
   string   s = str;
   int      lenght = StringLen(str) - 1;
   int      tchar;
   
   while(lenght >= 0)
      {
         tchar = StringGetChar(s, lenght);
         
         //
         //
         //
         //
         //
         
         if((tchar > 96 && tchar < 123) || (tchar > 223 && tchar < 256))
                  s = StringSetChar(s, lenght, tchar - 32);
          else 
              if(tchar > -33 && tchar < 0)
                  s = StringSetChar(s, lenght, tchar + 224);
         lenght--;
   }
   
   //
   //
   //
   //
   //
   
   return(s);
}