//+------------------------------------------------------------------+
//|                               Top 8 Trenders all brokers v3.mq4  |
//|                                                    Edward Munroe |
//|                                                       Hugh Briss |
//|                                                        GodsClown |
//+------------------------------------------------------------------+
#property copyright "Edward Munroe"

#property indicator_chart_window

extern bool   ShowIndicator         = true;
extern int    ShowPairs             = 8;
extern string change_color_symbol_for_top = "=================";
extern bool   ChangeColor           = false;
extern bool   ChangeChartSymbol     = false;
extern int    topPairs              = 8;
extern color  ForG_Color            = WhiteSmoke;
//extern color  BackG_Color           = C'15,7,0';
extern color  Bull_Color            = Lime;
extern color  Bear_Color            = Red;
//extern bool   SendeMail             = false;
extern string MA_tf1_settings       = "=================";
extern int    tf1                   = 1;
extern int    tf1malength           = 100;
extern int    tf1matype             = 3;
extern int    tf1maprice            = 0;
extern int    tf1lookback           = 15;
extern string MA_tf2_settings       = "=================";
extern int    tf2                   = 5;
extern int    tf2malength           = 100;
extern int    tf2matype             = 3;
extern int    tf2maprice            = 0;
extern int    tf2lookback           = 12;
extern string CCi_settings          = "-1=off;0=tf1;>0=other tf";
extern int    CCi_Alert_tf1         = -1;
extern int    CCi_Pairs_tf1         = 8;
extern int    CCi_Period_tf1        = 14;
extern int    CCi_Alert_tf2         = -1;
extern int    CCi_Pairs_tf2         = 8;
extern int    CCi_Period_tf2        = 14;
extern int    CCi_Level             = 100;
//extern bool   AlertMessage          = false;
//extern bool   SoundOn               = false;
//extern string soundfile_tf1         = "alert.wav";
//extern string soundfile_tf2         = "alert2.wav";
extern bool   OpenNewChart          = false;
extern string Other_settings        = "=================";
extern int    xgap                  = 100;
extern int    ygap                  = 20;
extern int    x                     = 5;
extern int    y                     = 20;
extern int    corner                = 4;
extern int    fontsize              = 8;
extern string prefix                = "";
extern string suffix                = "";

string pairss[28];
double currsma1[28], prevsma1[28], currsma2[28], prevsma2[28],currsma1a[28], prevsma1a[28], currsma2a[28], prevsma2a[28];
double smadifftf1[28], smadiffpercenttf1[28], smadifftf2[28], smadiffpercenttf2[28], smadifftf1a[28], smadiffpercenttf1a[28], smadifftf2a[28], smadiffpercenttf2a[28];
color trendslopecoltf1[28], trendslopecoltf2[28];
double smadiffpercentarraytf1[28][2], smadiffpercentarraytf2[28][2];
string tf1s, tf2s;
int ThisAlert[28];
int ThisAlert2[28];

double currCCi1[28],prevCCi1[28],currCCi2[28],prevCCi2[28];
int CCi1[28],CCi2[28];

int init()
{  EventSetTimer(1);  
  
  // Define strings
  pairss[0] = prefix + "EURUSD" + suffix; pairss[1] = prefix + "EURGBP" + suffix; pairss[2] = prefix + "EURJPY" + suffix; 
  pairss[3] = prefix + "EURCAD" + suffix; pairss[4] = prefix + "EURAUD" + suffix; pairss[5] = prefix + "EURNZD" + suffix; 
  pairss[6] = prefix + "GBPUSD" + suffix; pairss[7] = prefix + "GBPCHF" + suffix; pairss[8] = prefix + "GBPJPY" + suffix; 
  pairss[9] = prefix + "GBPCAD" + suffix; pairss[10] = prefix + "GBPAUD" + suffix; pairss[11] = prefix + "GBPNZD" + suffix; 
  pairss[12] = prefix + "AUDUSD" + suffix; pairss[13] = prefix + "AUDCHF" + suffix; pairss[14] = prefix + "AUDJPY" + suffix; 
  pairss[15] = prefix + "AUDCAD" + suffix; pairss[16] = prefix + "AUDNZD" + suffix; pairss[17] = prefix + "NZDUSD" + suffix; 
  pairss[18] = prefix + "NZDCHF" + suffix; pairss[19] = prefix + "NZDJPY" + suffix; pairss[20] = prefix + "NZDCAD" + suffix;
  pairss[21] = prefix + "USDCHF" + suffix; pairss[22] = prefix + "USDJPY" + suffix; pairss[23] = prefix + "USDCAD" + suffix;
  pairss[24] = prefix + "CADCHF" + suffix; pairss[25] = prefix + "CADJPY" + suffix; pairss[26] = prefix + "CHFJPY" + suffix;
  pairss[27] = prefix + "EURCHF" + suffix;
  
  if(tf1 == 1) tf1s = "1 Min"; if(tf1 == 5) tf1s = "5 Min"; if(tf1 == 15) tf1s = "15 Min"; if(tf1 == 30) tf1s = "30 Min";
  if(tf1 == 60) tf1s = "Hourly"; if(tf1 == 240) tf1s = "4 Hour"; if(tf1 == 1440) tf1s = "Daily"; if(tf1 == PERIOD_W1) tf1s = "Weekly"; if(tf1 == PERIOD_MN1) tf1s = "Monthly";
  
  if(tf2 == 1) tf2s = "1 Min"; if(tf2 == 5) tf2s = "5 Min"; if(tf2 == 15) tf2s = "15 Min"; if(tf2 == 30) tf2s = "30 Min"; if(tf2 == 60) tf2s = "Hourly"; 
  if(tf2 == 240) tf2s = "4 Hour"; if(tf2 == 1440) tf2s = "Daily"; if(tf2 == PERIOD_W1) tf2s = "Weekly"; if(tf2 == PERIOD_MN1) tf2s = "Monthly";
   
   return(0);
}

int deinit()
  { 
   long currChartd,prevChartd=ChartFirst();
   for (int z=0;z<=127;z++)//change color of every symbol
   {
        currChartd=ChartNext(prevChartd); // Get the new chart ID by using the previous chart ID
        if (ChartGetInteger(prevChartd,CHART_COLOR_FOREGROUND) != ForG_Color) ChartSetInteger(prevChartd,CHART_COLOR_FOREGROUND, ForG_Color); 
        if(currChartd<0) break;          // Have reached the end of the chart list
        prevChartd=currChartd;// let's save the current chart ID for the ChartNext()  
   }
    
   int i = 0; 
   int ObjectsTotal_ = ObjectsTotal();
   string ObjName;
   for(i=ObjectsTotal()-1; i>=0; i--) {
       ObjName = ObjectName(i);
       if(StringFind(ObjectName(i),"tf1_top8")==0) ObjectDelete(ObjectName(i)); 
       if(StringFind(ObjectName(i),"tf2_top8")==0) ObjectDelete(ObjectName(i));      
       if(StringFind(ObjectName(i),"tf1_strongesttrend")==0) ObjectDelete(ObjectName(i));
       if(StringFind(ObjectName(i),"tf2_strongesttrend")==0) ObjectDelete(ObjectName(i));    
       if(StringFind(ObjectName(i),"tf1_settings")==0) ObjectDelete(ObjectName(i));
       if(StringFind(ObjectName(i),"tf2_settings")==0) ObjectDelete(ObjectName(i));   
          continue;    
       }
          
  return(0);
  }



void OnTimer() 
{
  // Pause and refresh
  Sleep(200);
  

  // Calculate indicators 
  for(int counter1=0;counter1<28;counter1++)
  {
  
  if (tf1matype <= 3){
  currsma1[counter1] = iMA(pairss[counter1],tf1,tf1malength,0,tf1matype,tf1maprice,1);
  prevsma1[counter1] = iMA(pairss[counter1],tf1,tf1malength,0,tf1matype,tf1maprice,tf1lookback);
  }
  if (tf2matype <= 3){
  currsma2[counter1] = iMA(pairss[counter1],tf2,tf2malength,0,tf2matype,tf2maprice,1);
  prevsma2[counter1] = iMA(pairss[counter1],tf2,tf2malength,0,tf2matype,tf2maprice,tf2lookback);
  }
  if (tf1matype > 3 && tf1matype != 8){
  currsma1[counter1]  = iCustom(pairss[counter1],tf1,"TTindy\\AllAverages_v3.3",tf1,tf1maprice,tf1malength,0,tf1matype,0,0,0,"","",0,1);
  prevsma1[counter1]  = iCustom(pairss[counter1],tf1,"TTindy\\AllAverages_v3.3",tf1,tf1maprice,tf1malength,0,tf1matype,0,0,0,"","",0,tf1lookback);
  }
  if (tf2matype > 3 && tf2matype != 8){
  currsma2[counter1]  = iCustom(pairss[counter1],tf2,"TTindy\\AllAverages_v3.3",tf2,tf2maprice,tf2malength,0,tf2matype,0,0,0,"","",0,1);
  prevsma2[counter1]  = iCustom(pairss[counter1],tf2,"TTindy\\AllAverages_v3.3",tf2,tf2maprice,tf2malength,0,tf2matype,0,0,0,"","",0,tf2lookback);
  }
  if (tf1matype == 8){
  currsma1[counter1]  = iCustom(pairss[counter1],tf1,"TTindy\\HMA_v2",tf1maprice,tf1malength,0,0,0,0,0,0,1);
  prevsma1[counter1]  = iCustom(pairss[counter1],tf1,"TTindy\\HMA_v2",tf1maprice,tf1malength,0,0,0,0,0,0,tf1lookback);
  }
  if (tf2matype == 8){
  currsma2[counter1]  = iCustom(pairss[counter1],tf2,"TTindy\\HMA_v2",tf2maprice,tf2malength,0,0,0,0,0,0,1);
  prevsma2[counter1]  = iCustom(pairss[counter1],tf2,"TTindy\\HMA_v2",tf2maprice,tf2malength,0,0,0,0,0,0,tf2lookback);
  }


     if (CCi_Alert_tf1==true)
     {
     currCCi1[counter1] = iCCI(pairss[counter1],tf1,CCi_Period_tf1,PRICE_TYPICAL,1);
     prevCCi1[counter1] = iCCI(pairss[counter1],tf1,CCi_Period_tf1,PRICE_TYPICAL,2);

     CCi1[counter1] = 0;
     if (currCCi1[counter1] > ((-1)*CCi_Level) && prevCCi1[counter1] <= ((-1)*CCi_Level)) CCi1[counter1] =  1;
     if (currCCi1[counter1] < CCi_Level        && prevCCi1[counter1] >= CCi_Level)        CCi1[counter1] = -1;
     } 
      
     if (CCi_Alert_tf2==true)
     {     
     currCCi2[counter1]  = iCCI(pairss[counter1],tf2,CCi_Period_tf2,PRICE_TYPICAL,1);
     prevCCi2[counter1]  = iCCI(pairss[counter1],tf2,CCi_Period_tf2,PRICE_TYPICAL,2); 
     
     CCi2[counter1] = 0;
     if (currCCi2[counter1] >= (-1*CCi_Level) && prevCCi2[counter1] < (-1*CCi_Level)) CCi2[counter1] =  1;
     if (currCCi2[counter1] <= CCi_Level      && prevCCi2[counter1] > CCi_Level)      CCi2[counter1] = -1;     
     }






  // Calculate trend percent
  if(currsma1[counter1] >= prevsma1[counter1]) smadifftf1[counter1] = currsma1[counter1] - prevsma1[counter1];
  if(currsma1[counter1] < prevsma1[counter1]) smadifftf1[counter1] = prevsma1[counter1] - currsma1[counter1];
  if(currsma2[counter1] >= prevsma2[counter1]) smadifftf2[counter1] = currsma2[counter1] - prevsma2[counter1];
  if(currsma2[counter1] < prevsma2[counter1]) smadifftf2[counter1] = prevsma2[counter1] - currsma2[counter1];

    
  int pipMult = 1000000;
  if(StringFind(pairss[counter1],"JPY",0) != -1) pipMult = 10000;
  
  smadiffpercenttf1[counter1] = (smadifftf1[counter1]/tf1lookback) * pipMult;
  smadiffpercenttf2[counter1] = (smadifftf2[counter1]/tf2lookback) * pipMult;


  
  trendslopecoltf1[counter1] = Blue;
  if(currsma1[counter1] > prevsma1[counter1]) trendslopecoltf1[counter1] = Lime; 
  if(currsma1[counter1] < prevsma1[counter1]) trendslopecoltf1[counter1] = Red;
  trendslopecoltf2[counter1] = Blue;
  if(currsma2[counter1] > prevsma2[counter1]) trendslopecoltf2[counter1] = Lime; 
  if(currsma2[counter1] < prevsma2[counter1]) trendslopecoltf2[counter1] = Red;
  
  smadiffpercentarraytf1[counter1][0] = smadiffpercenttf1[counter1];
  smadiffpercentarraytf1[counter1][1] = counter1;
  smadiffpercentarraytf2[counter1][0] = smadiffpercenttf2[counter1];
  smadiffpercentarraytf2[counter1][1] = counter1;
  }

  
    
  // Sort diff array and display strongest 8 pairs
  ArraySort(smadiffpercentarraytf1,WHOLE_ARRAY,0,MODE_DESCEND);
  ArraySort(smadiffpercentarraytf2,WHOLE_ARRAY,0,MODE_DESCEND);
  
  
  
  

  int xt, yt, xt2, yt2,xd, yd, xd2, yd2;
  string tf1_Mode1, tf2_Mode1;
  string tf1_Mode = GetPeriodAndMAtf1(tf1_Mode1);
  string tf2_Mode = GetPeriodAndMAtf2(tf2_Mode1);
  
  
  
  if (ShowIndicator == true)
  {
  for(int counterm=0;counterm<ShowPairs;counterm++)
  { 
   
  if (corner==1) {xt = x+xgap; xt2 = x;      yt  = y;                                        yt2 = y;                                        xd  = x+xgap; xd2 = x;      yd = y+15 + ((ygap * counterm)-20) + (ygap*2); yd2 = y+15 + ((ygap * counterm)-20) + (ygap*2);}
  if (corner==2) {xt = x;      xt2 = x+xgap; yt  = y+90+ ((ygap)* counterm -100) + (ygap*2); yt2 = y+90+ ((ygap)* counterm -100) + (ygap*2); xd  = x;      xd2 = x+xgap; yd = y+90 - ((ygap * counterm)-20) + (ygap*2); yd2 = y+90 - ((ygap * counterm)-20) + (ygap*2);}
  if (corner==3) {xt = x+xgap; xt2 = x;      yt  = y+90+ ((ygap)* counterm -100) + (ygap*2); yt2 = y+90+ ((ygap)* counterm -100) + (ygap*2); xd  = x+xgap; xd2 = x;      yd = y+90 - ((ygap * counterm)-20) + (ygap*2); yd2 = y+90 - ((ygap * counterm)-20) + (ygap*2);}
  if (corner==4) {xt = x;      xt2 = x+xgap; yt  = y;                                        yt2 = y;                                        xd  = x;      xd2 = x+xgap; yd = y+15 + ((ygap * counterm)-20) + (ygap*2); yd2 = y+15 + ((ygap * counterm)-20) + (ygap*2);}

  
  Display("tf1_top8"+tf1, xt,yt);
  ObjectSetText("tf1_top8"+tf1,"Top 8 - " + tf1s,8,"Verdana",Gainsboro);
  Display("tf1_top8under"+tf1,xt,yt);
  ObjectSetText("tf1_top8under"+tf1,"_____",8,"Verdana",Gainsboro);
  Display("tf1_settings"+tf1, xt,yt+15);
  ObjectSetText("tf1_settings"+tf1,tf1malength+" "+tf1_Mode,8,"Verdana",Gainsboro);
  
  Display("tf2_top8"+tf2,xt2,yt2);
  ObjectSetText("tf2_top8"+tf2,"Top 8 - " + tf2s,8,"Verdana",Gainsboro);
  Display("tf2_top8under"+tf2,xt2,yt2);
  ObjectSetText("tf2_top8under"+tf2,"_____",8,"Verdana",Gainsboro);
  Display("tf2_settings"+tf2, xt2,yt2+15);
  ObjectSetText("tf2_settings"+tf2,tf2malength+" "+tf2_Mode,8,"Verdana",Gainsboro);

  
  int pair1 = smadiffpercentarraytf1[counterm][1];
  int pair2 = smadiffpercentarraytf2[counterm][1];
  

  Display("tf1_strongesttrends" + counterm + tf1, xd,yd);
  ObjectSetText("tf1_strongesttrends" + counterm + tf1,pairss[pair1] + " / " + NormalizeDouble(smadiffpercenttf1[pair1],0),fontsize,"Verdana",trendslopecoltf1[pair1]);
  Display("tf2_strongesttrends" + counterm + tf2, xd2,yd2); 
  ObjectSetText("tf2_strongesttrends" + counterm + tf2,pairss[pair2] + " / " + NormalizeDouble(smadiffpercenttf2[pair2],0),fontsize,"Verdana",trendslopecoltf2[pair2]);

  }
  }
  
  
  if (CCi_Alert_tf1 > -1)
  {
     if (CCi_Alert_tf1 == 0) CCi_Alert_tf1 = tf1;
     
     for (int counter5=0;counter5<CCi_Pairs_tf1;counter5++)
     {
           int PAIR1 = smadiffpercentarraytf1[counter5][1];
      
           if (ThisAlert[PAIR1] != Time[0])
                {if ((currsma1[PAIR1] > prevsma1[PAIR1]) && CCi1[PAIR1] ==  1) {ALERT(pairss[PAIR1],CCi_Alert_tf1,"CCi crosses over -100");CCi1[PAIR1] = 0;}
                 if ((currsma1[PAIR1] < prevsma1[PAIR1]) && CCi1[PAIR1] == -1) {ALERT(pairss[PAIR1],CCi_Alert_tf1,"CCi crosses under 100");CCi1[PAIR1] = 0;}
                 ThisAlert[PAIR1] = Time[0];}
     }
  }            
           
  if (CCi_Alert_tf2 > -1)       
  {
     if (CCi_Alert_tf2 == 0) CCi_Alert_tf2 = tf2;
     
     for (int counter8=0;counter8<CCi_Pairs_tf2;counter8++)
     {
           int PAIR2 = smadiffpercentarraytf2[counter8][1];           
           
           if (ThisAlert[PAIR2] != Time[0])     
                {if ((currsma2[PAIR2] > prevsma2[PAIR2]) && CCi2[PAIR2] ==  1) {ALERT(pairss[PAIR2],CCi_Alert_tf2,"CCi crosses over -100");CCi2[PAIR2] = 0;}
                 if ((currsma2[PAIR2] < prevsma2[PAIR2]) && CCi2[PAIR2] == -1) {ALERT(pairss[PAIR2],CCi_Alert_tf2,"CCi crosses under 100");CCi2[PAIR2] = 0;}
                 ThisAlert[PAIR2] = Time[0];}
     }
  }
               /* {
                    if (AlertMessage == true) 
                        Alert(pairss[PAIR1]+" "+tf1s+" / "+"CCi crosses over "+ -CCi_Level);
                    if (SoundOn) 
                        PlaySound(soundfile_tf1);
                    if (OpenNewChart==true) OpenChart(pairss[PAIR1],tf1);
                    //if (ChangeColor == 1) 
                    //   {if (currsma1[counter1] > prevsma1[counter1]) Change_Color(pairss[counter1],Bull_Color); 
                    //    if (currsma1[counter1] < prevsma1[counter1]) Change_Color(pairss[counter1],Bear_Color);}
                    if (SendeMail) 
                        SendMail(tf1s+" / TTindy over "+StringConcatenate(AlertValue_tf1),"On timeframe "+tf1s+" TTindicator is over "+StringConcatenate(AlertValue_tf1)+" on "+pairss[counter1]+" / "+StringConcatenate(MathRound(smadiffpercenttf1[counter1])));
                    */
        


  if (ChangeChartSymbol == true) 
  {
      long currChart,prevChart=ChartFirst();
      int charts=127;
     
      for (int counter2=0;counter2<topPairs;counter2++)// We have certainly not more than 100 open charts
     {
           int PAIr1 = smadiffpercentarraytf1[counter2][1];
           int PAIr2 = smadiffpercentarraytf2[counter2][1];
     
           if (pairss[PAIr1] != ChartSymbol(prevChart)) ChartSetSymbolPeriod(prevChart,pairss[PAIr1],0); 
           if (prevChart<0 ) ChartOpen(pairss[PAIr1],tf1);
           currChart=ChartNext(prevChart);// Get the new chart ID by using the previous chart ID
           prevChart=currChart;// let's save the current chart ID for the ChartNext()
     }
   }
 
  
  if (ChangeColor == true)
  {   
      string backg = CHART_COLOR_BACKGROUND;
      string forg = CHART_COLOR_FOREGROUND;
      
      for (int counter3=0;counter3<29;counter3++)
      {
           Change_Color(pairss[counter3],ForG_Color,forg);//Change_Color(pairss[counters],ForG_Color,backg);}
           
           for (int counter4=0;counter4<topPairs;counter4++)  //change color of every symbol in top(topPairs)
           {
           int Pair1 = smadiffpercentarraytf1[counter4][1];
           int Pair2 = smadiffpercentarraytf2[counter4][1];
  
           Change_Color(pairss[Pair1],ForG_Color,forg);
           if (currsma1[Pair1] > prevsma1[Pair1]) Change_Color(pairss[Pair1],Bull_Color,forg);// Change_Color(pairss[Pair1],Bull_Color,backg);}
           if (currsma1[Pair1] < prevsma1[Pair1]) Change_Color(pairss[Pair1],Bear_Color,forg);// Change_Color(pairss[Pair1],Bull_Color,backg);}
           //if (currsma2[Pair1] > prevsma2[Pair1]) Change_Color(pairss[Pair2],Bull_Color,forg);// Change_Color(pairss[Pair1],Bear_Color,backg);}
           //if (currsma2[Pair2] < prevsma2[Pair2]) Change_Color(pairss[Pair2],Bear_Color,forg);// Change_Color(pairss[Pair1],Bear_Color,backg);}
            
           
           }
       }
  }  
  
}     

   
 

  
void Display(string name, int x2, int y2)
   {
   ObjectCreate(name, OBJ_LABEL, 0, 0, 0);
   ObjectSet(name, OBJPROP_CORNER, corner);
   ObjectSet(name, OBJPROP_XDISTANCE, x2);
   ObjectSet(name, OBJPROP_YDISTANCE, y2);
   ObjectSet(name, OBJPROP_BACK, FALSE);
   } 
   
string GetPeriodAndMAtf1(string tf1_Mode1)
   {
// List of MAs:
   if (tf1matype == 0) tf1_Mode1 = "SMA";        // Simple Moving Average
   if (tf1matype == 1) tf1_Mode1 = "EMA";        // Exponential Moving Average
   if (tf1matype == 2) tf1_Mode1 = "Wilder";     // Wilder Exponential Moving Average
   if (tf1matype == 3) tf1_Mode1 = "LWMA";       // Linear Weighted Moving Average 
   if (tf1matype == 4) tf1_Mode1 = "SineWMA";    // Sine Weighted Moving Average
   if (tf1matype == 5) tf1_Mode1 = "TriMA";      // Triangular Moving Average
   if (tf1matype == 6) tf1_Mode1 = "LSMA";       // Least Square Moving Average (or EPMA, Linear Regression Line)
   if (tf1matype == 7) tf1_Mode1 = "SMMA";       // Smoothed Moving Average
   if (tf1matype == 8) tf1_Mode1 = "HMA";        // Hull Moving Average by Alan Hull
   if (tf1matype == 9) tf1_Mode1 = "0LagEMA"; // Zero//Lag Exponential Moving Average
   if (tf1matype ==10) tf1_Mode1 = "DEMA";       // Double Exponential Moving Average by Patrick Mulloy
   if (tf1matype ==11) tf1_Mode1 = "T3_basic";   // T3 by T.Tillson (original version)
   if (tf1matype ==12) tf1_Mode1 = "ITrend";     // Instantaneous Trendline by J.Ehlers
   if (tf1matype ==13) tf1_Mode1 = "Median";     // Moving Median
   if (tf1matype ==14) tf1_Mode1 = "GeoMean";    // Geometric Mean
   if (tf1matype ==15) tf1_Mode1 = "REMA";       // Regularized EMA by Chris Satchwell
   if (tf1matype ==16) tf1_Mode1 = "ILRS";       // Integral of Linear Regression Slope 
   if (tf1matype ==17) tf1_Mode1 = "IE/2";       // Combination of LSMA and ILRS 
   if (tf1matype ==18) tf1_Mode1 = "TriMAgen";   // Triangular Moving Average generalized by J.Ehlers
   if (tf1matype ==19) tf1_Mode1 = "VWMA";       // Volume Weighted Moving Average 
   if (tf1matype ==20) tf1_Mode1 = "JSmooth";    // Smoothing by Mark Jurik
   if (tf1matype ==21) tf1_Mode1 = "SMA_eq";     // Simplified SMA
   if (tf1matype ==22) tf1_Mode1 = "ALMA";       // Arnaud Legoux Moving Average
   if (tf1matype ==23) tf1_Mode1 = "TEMA";       // Triple Exponential Moving Average by Patrick Mulloy
   if (tf1matype ==24) tf1_Mode1 = "T3";         // T3 by T.Tillson (correct version)
   if (tf1matype ==25) tf1_Mode1 = "Laguerre";   // Laguerre filter by J.Ehlers
   if (tf1matype ==26) tf1_Mode1 = "MD";         // McGinley Dynamic
   
   return(tf1_Mode1);
   }
   
string GetPeriodAndMAtf2(string tf2_Mode1)
   {
// List of MAs:
   if (tf2matype == 0) tf2_Mode1 = "SMA";      
   if (tf2matype == 1) tf2_Mode1 = "EMA";       
   if (tf2matype == 2) tf2_Mode1 = "Wilder"; 
   if (tf2matype == 3) tf2_Mode1 = "LWMA";      
   if (tf2matype == 4) tf2_Mode1 = "SineWMA";  
   if (tf2matype == 5) tf2_Mode1 = "TriMA";     
   if (tf2matype == 6) tf2_Mode1 = "LSMA";     
   if (tf2matype == 7) tf2_Mode1 = "SMMA";     
   if (tf2matype == 8) tf2_Mode1 = "HMA";        
   if (tf2matype == 9) tf2_Mode1 = "0LagEMA";
   if (tf2matype ==10) tf2_Mode1 = "DEMA";      
   if (tf2matype ==11) tf2_Mode1 = "T3_basic";  
   if (tf2matype ==12) tf2_Mode1 = "ITrend";   
   if (tf2matype ==13) tf2_Mode1 = "Median";    
   if (tf2matype ==14) tf2_Mode1 = "GeoMean";   
   if (tf2matype ==15) tf2_Mode1 = "REMA";      
   if (tf2matype ==16) tf2_Mode1 = "ILRS";       
   if (tf2matype ==17) tf2_Mode1 = "IE/2";      
   if (tf2matype ==18) tf2_Mode1 = "TriMAgen";  
   if (tf2matype ==19) tf2_Mode1 = "VWMA";       
   if (tf2matype ==20) tf2_Mode1 = "JSmooth";   
   if (tf2matype ==21) tf2_Mode1 = "SMA_eq";    
   if (tf2matype ==22) tf2_Mode1 = "ALMA";      
   if (tf2matype ==23) tf2_Mode1 = "TEMA";      
   if (tf2matype ==24) tf2_Mode1 = "T3";        
   if (tf2matype ==25) tf2_Mode1 = "Laguerre";  
   if (tf2matype ==26) tf2_Mode1 = "MD";  
   
   return(tf2_Mode1);
   }
  

void OpenChart (string symbol,int TF)
{ 
     long currChart,prevChart=ChartFirst();
     int charts=127;
     int Counter=0,divCounter=0;
          
     for (int f=0;f<charts;f++)// We have certainly not more than 100 open charts
     {
          Counter++;
          if (symbol == ChartSymbol(prevChart)) divCounter++;
          currChart=ChartNext(prevChart);// Get the new chart ID by using the previous chart ID
          if (currChart<0) {if ((Counter - divCounter) == Counter) {ChartOpen(symbol,TF);break;}// Have reached the end of the chart list
                            else break;}
          prevChart=currChart;// let's save the current chart ID for the ChartNext()
     }
}


void Change_Color(string symbol,color G_Color,string place)
{
     long currChart,prevChart=ChartFirst();
     int charts=127;
     
     for (int i=0;i<charts;i++)// We have certainly not more than 100 open charts
     {
          if (symbol == ChartSymbol(prevChart)) ChartSetInteger(prevChart,place,G_Color);
          currChart=ChartNext(prevChart); // Get the new chart ID by using the previous chart ID
          if (currChart<0) break;
          prevChart=currChart;// let's save the current chart ID for the ChartNext()
     }
}


void ALERT(string symbol, string TF, string text)
{     
       Alert(symbol+" "+TF+" / "+text);
   //  if (SoundOn) 
   //      PlaySound(soundfile_tf1);
     if (OpenNewChart==true) OpenChart(symbol,TF);
   //if (ChangeColor == 1) 
   //   {if (currsma1[counter1] > prevsma1[counter1]) Change_Color(pairss[counter1],Bull_Color); 
   //    if (currsma1[counter1] < prevsma1[counter1]) Change_Color(pairss[counter1],Bear_Color);}
   //   if (SendeMail) 
   //       SendMail(tf1s+" / TTindy over "+StringConcatenate(AlertValue_tf1),"On timeframe "+tf1s+" TTindicator is over "+StringConcatenate(AlertValue_tf1)+" on "+pairss[counter1]+" / "+StringConcatenate(MathRound(smadiffpercenttf1[counter1])));
}
int start()
{
return(0);
}