//+------------------------------------------------------------------+
//|                                 Clives Strongest Weakest v5B.mq4 |
//|                                                    Edward Munroe |
//|                                           www.hughbrissforex.com |
//+------------------------------------------------------------------+
#property copyright "Edward Munroe"
#property link      "www.hughbrissforex.com"

#property indicator_separate_window

extern int indwindow = 2;
extern int oneminma = 200;
extern int horizgap = 20;
extern int fontsize = 10;

int eurscore1, audscore1, gbpscore1, chfscore1, nzdscore1, jpyscore1, usdscore1, cadscore1;
int eurscore15, audscore15, gbpscore15, chfscore15, nzdscore15, jpyscore15, usdscore15, cadscore15;
int eurscore60, audscore60, gbpscore60, chfscore60, nzdscore60, jpyscore60, usdscore60, cadscore60;
int eurscored, audscored, gbpscored, chfscored, nzdscored, jpyscored, usdscored, cadscored;
int x,y;
color eurcolour1, gbpcolour1, audcolour1, chfcolour1, usdcolour1, nzdcolour1, jpycolour1, cadcolour1;
color eurcolour15, gbpcolour15, audcolour15, chfcolour15, usdcolour15, nzdcolour15, jpycolour15, cadcolour15;
color eurcolour60, gbpcolour60, audcolour60, chfcolour60, usdcolour60, nzdcolour60, jpycolour60, cadcolour60;
color eurcolourd, gbpcolourd, audcolourd, chfcolourd, usdcolourd, nzdcolourd, jpycolourd, cadcolourd;

int start() 
  {
  
  // Pause and refresh
  Sleep(2000); int eurscore1 = 0, audscore1 = 0, gbpscore1 = 0, chfscore1 = 0, nzdscore1 = 0, jpyscore1 = 0, usdscore1 = 0, cadscore1 = 0;
  int eurscore15 = 0, audscore15 = 0, gbpscore15 = 0, chfscore15 = 0, nzdscore15 = 0, jpyscore15 = 0, usdscore15 = 0, cadscore15 = 0;
  int eurscore60 = 0, audscore60 = 0, gbpscore60 = 0, chfscore60 = 0, nzdscore60 = 0, jpyscore60 = 0, usdscore60 = 0, cadscore60 = 0;
  int eurscored = 0, audscored = 0, gbpscored = 0, chfscored = 0, nzdscored = 0, jpyscored = 0, usdscored = 0, cadscored = 0; y = 0;
  
  
  // Setup indicator window
  Display("eurh", x+150,y); ObjectSetText("eurh","EUR",fontsize,"Verdana", Yellow); Display("usdh", x+200,y); ObjectSetText("usdh","USD",fontsize,"Verdana", Yellow);
  Display("gbph", x+250,y); ObjectSetText("gbph","GBP",fontsize,"Verdana", Yellow); Display("chfh", x+300,y); ObjectSetText("chfh","CHF",fontsize,"Verdana", Yellow);
  Display("cadh", x+350,y); ObjectSetText("cadh","CAD",fontsize,"Verdana", Yellow); Display("audh", x+400,y); ObjectSetText("audh","AUD",fontsize,"Verdana", Yellow);
  Display("jpyh", x+450,y); ObjectSetText("jpyh","JPY",fontsize,"Verdana", Yellow); Display("nzdh", x+500,y); ObjectSetText("nzdh","NZD",fontsize,"Verdana", Yellow);
  
  
  // 1 min calc
  double smaeurusd1 = iMA("EURUSD",1,oneminma,0,0,0,0), smaeurgbp1 = iMA("EURGBP",1,oneminma,0,0,0,0), smaeurjpy1 = iMA("EURJPY",1,oneminma,0,0,0,0),
  smaeurcad1 = iMA("EURCAD",1,oneminma,0,0,0,0), smaeurnzd1 = iMA("EURNZD",1,oneminma,0,0,0,0), smaeuraud1 = iMA("EURAUD",1,oneminma,0,0,0,0);
  double smagbpusd1 = iMA("GBPUSD",1,oneminma,0,0,0,0), smagbpchf1 = iMA("GBPCHF",1,oneminma,0,0,0,0), smagbpjpy1 = iMA("GBPJPY",1,oneminma,0,0,0,0),
  smagbpcad1 = iMA("GBPCAD",1,oneminma,0,0,0,0), smagbpaud1 = iMA("GBPAUD",1,oneminma,0,0,0,0), smagbpnzd1 = iMA("GBPNZD",1,oneminma,0,0,0,0);
  double smaaudusd1 = iMA("AUDUSD",1,oneminma,0,0,0,0), smaaudchf1 = iMA("AUDCHF",1,oneminma,0,0,0,0), smaaudjpy1 = iMA("AUDJPY",1,oneminma,0,0,0,0),
  smaaudcad1 = iMA("AUDCAD",1,oneminma,0,0,0,0), smaaudnzd1 = iMA("AUDNZD",1,oneminma,0,0,0,0);
  double smausdchf1 = iMA("USDCHF",1,oneminma,0,0,0,0), smausdcad1 = iMA("USDCAD",1,oneminma,0,0,0,0), smausdjpy1 = iMA("USDJPY",1,oneminma,0,0,0,0);
  double smanzdusd1 = iMA("NZDUSD",1,oneminma,0,0,0,0), smanzdchf1 = iMA("NZDCHF",1,oneminma,0,0,0,0), smanzdjpy1 = iMA("NZDJPY",1,oneminma,0,0,0,0),
  smanzdcad1 = iMA("NZDCAD",1,oneminma,0,0,0,0);
  double smacadchf1 = iMA("CADCHF",1,oneminma,0,0,0,0), smacadjpy1 = iMA("CADJPY",1,oneminma,0,0,0,0), smachfjpy1 = iMA("CHFJPY",1,oneminma,0,0,0,0);
  
  // Calculate eurchf
  double closeeurchf1 = (iClose("USDCHF",1,0)*iClose("EURUSD",1,0));
  int Counter1 = 0;
  double smaeurchf1 = 0;
  double smaeurchfcounter1 = 0;
  int countto = oneminma - 1;
  while(Counter1 <= countto)
{
smaeurchfcounter1 = (iClose("USDCHF",1,Counter1)*iClose("EURUSD",1,Counter1));
smaeurchf1 = smaeurchf1 + smaeurchfcounter1;
Counter1++;
}
smaeurchf1 = smaeurchf1/oneminma;
  
  if((iClose("EURUSD",1,0) > smaeurusd1)) eurscore1++; else usdscore1++; if((iClose("EURGBP",1,0) > smaeurgbp1)) eurscore1++; else gbpscore1++;
  if((closeeurchf1 > smaeurchf1)) eurscore1++; else chfscore1++; if((iClose("EURJPY",1,0) > smaeurjpy1)) eurscore1++; else jpyscore1++;
  if((iClose("EURCAD",1,0) > smaeurcad1)) eurscore1++; else cadscore1++; if((iClose("EURAUD",1,0) > smaeuraud1)) eurscore1++; else audscore1++;
  if((iClose("EURNZD",1,0) > smaeurnzd1)) eurscore1++; else nzdscore1++; if((iClose("GBPUSD",1,0) > smagbpusd1)) gbpscore1++; else usdscore1++;
  if((iClose("GBPCHF",1,0) > smagbpchf1)) gbpscore1++; else chfscore1++; if((iClose("GBPJPY",1,0) > smagbpjpy1)) gbpscore1++; else jpyscore1++;
  if((iClose("GBPCAD",1,0) > smagbpcad1)) gbpscore1++; else cadscore1++; if((iClose("GBPAUD",1,0) > smagbpaud1)) gbpscore1++; else audscore1++;
  if((iClose("GBPNZD",1,0) > smagbpnzd1)) gbpscore1++; else nzdscore1++; if((iClose("AUDUSD",1,0) > smaaudusd1)) audscore1++; else usdscore1++;
  if((iClose("AUDCHF",1,0) > smaaudchf1)) audscore1++; else chfscore1++; if((iClose("AUDJPY",1,0) > smaaudjpy1)) audscore1++; else jpyscore1++;
  if((iClose("AUDCAD",1,0) > smaaudcad1)) audscore1++; else cadscore1++; if((iClose("AUDNZD",1,0) > smaaudnzd1)) audscore1++; else nzdscore1++;
  if((iClose("USDCHF",1,0) > smausdchf1)) usdscore1++; else chfscore1++; if((iClose("USDCAD",1,0) > smausdcad1)) usdscore1++; else cadscore1++;
  if((iClose("USDJPY",1,0) > smausdjpy1)) usdscore1++; else jpyscore1++; if((iClose("CADCHF",1,0) > smacadchf1)) cadscore1++; else chfscore1++;
  if((iClose("CADJPY",1,0) > smacadjpy1)) cadscore1++; else jpyscore1++; if((iClose("CHFJPY",1,0) > smachfjpy1)) chfscore1++; else jpyscore1++;
  if((iClose("NZDUSD",1,0) > smanzdusd1)) nzdscore1++; else usdscore1++; if((iClose("NZDCHF",1,0) > smanzdchf1)) nzdscore1++; else chfscore1++;
  if((iClose("NZDJPY",1,0) > smanzdjpy1)) nzdscore1++; else jpyscore1++; if((iClose("NZDCAD",1,0) > smanzdcad1)) nzdscore1++; else cadscore1++;
  
  // Display M1
  
  if(eurscore1 < 2) eurcolour1 = Blue; else if(eurscore1 > 5) eurcolour1 = Red; else eurcolour1 = White;
  if(gbpscore1 < 2) gbpcolour1 = Blue; else if(gbpscore1 > 5) gbpcolour1 = Red; else gbpcolour1 = White;
  if(audscore1 < 2) audcolour1 = Blue; else if(audscore1 > 5) audcolour1 = Red; else audcolour1 = White;
  if(chfscore1 < 2) chfcolour1 = Blue; else if(chfscore1 > 5) chfcolour1 = Red; else chfcolour1 = White;
  if(jpyscore1 < 2) jpycolour1 = Blue; else if(jpyscore1 > 5) jpycolour1 = Red; else jpycolour1 = White;
  if(nzdscore1 < 2) nzdcolour1 = Blue; else if(nzdscore1 > 5) nzdcolour1 = Red; else nzdcolour1 = White;
  if(cadscore1 < 2) cadcolour1 = Blue; else if(cadscore1 > 5) cadcolour1 = Red; else cadcolour1 = White;
  if(usdscore1 < 2) usdcolour1 = Blue; else if(usdscore1 > 5) usdcolour1 = Red; else usdcolour1 = White;
  
  y = 15;
  
  Display("m1", x,y); ObjectSetText("m1", "M1:              ",fontsize,"Verdana", Yellow);
  Display("eurm1", x+158,y); ObjectSetText("eurm1", DoubleToStr(eurscore1,0),fontsize, "Verdana", eurcolour1);
  Display("usdm1", x+208,y); ObjectSetText("usdm1", DoubleToStr(usdscore1,0),fontsize, "Verdana", usdcolour1);
  Display("gbpm1", x+258,y); ObjectSetText("gbpm1", DoubleToStr(gbpscore1,0),fontsize, "Verdana", gbpcolour1);
  Display("chfm1", x+308,y); ObjectSetText("chfm1", DoubleToStr(chfscore1,0),fontsize, "Verdana", chfcolour1);
  Display("cadm1", x+358,y); ObjectSetText("cadm1", DoubleToStr(cadscore1,0),fontsize, "Verdana", cadcolour1);
  Display("audm1", x+408,y); ObjectSetText("audm1", DoubleToStr(audscore1,0),fontsize, "Verdana", audcolour1);
  Display("jpym1", x+458,y); ObjectSetText("jpym1", DoubleToStr(jpyscore1,0),fontsize, "Verdana", jpycolour1);
  Display("nzdm1", x+508,y); ObjectSetText("nzdm1", DoubleToStr(nzdscore1,0),fontsize, "Verdana", nzdcolour1);
  
  // 15 min calc
  double smaeurusd15 = iMA("EURUSD",15,200,0,0,0,0), smaeurgbp15 = iMA("EURGBP",15,200,0,0,0,0), smaeurjpy15 = iMA("EURJPY",15,200,0,0,0,0),
  smaeurcad15 = iMA("EURCAD",15,200,0,0,0,0), smaeurnzd15 = iMA("EURNZD",15,200,0,0,0,0), smaeuraud15 = iMA("EURAUD",15,200,0,0,0,0);
  double smagbpusd15 = iMA("GBPUSD",15,200,0,0,0,0), smagbpchf15 = iMA("GBPCHF",15,200,0,0,0,0), smagbpjpy15 = iMA("GBPJPY",15,200,0,0,0,0),
  smagbpcad15 = iMA("GBPCAD",15,200,0,0,0,0), smagbpaud15 = iMA("GBPAUD",15,200,0,0,0,0), smagbpnzd15 = iMA("GBPNZD",15,200,0,0,0,0);
  double smaaudusd15 = iMA("AUDUSD",15,200,0,0,0,0), smaaudchf15 = iMA("AUDCHF",15,200,0,0,0,0), smaaudjpy15 = iMA("AUDJPY",15,200,0,0,0,0),
  smaaudcad15 = iMA("AUDCAD",15,200,0,0,0,0), smaaudnzd15 = iMA("AUDNZD",15,200,0,0,0,0);
  double smausdchf15 = iMA("USDCHF",15,200,0,0,0,0), smausdcad15 = iMA("USDCAD",15,200,0,0,0,0), smausdjpy15 = iMA("USDJPY",15,200,0,0,0,0);
  double smanzdusd15 = iMA("NZDUSD",15,200,0,0,0,0), smanzdchf15 = iMA("NZDCHF",15,200,0,0,0,0), smanzdjpy15 = iMA("NZDJPY",15,200,0,0,0,0),
  smanzdcad15 = iMA("NZDCAD",15,200,0,0,0,0);
  double smacadchf15 = iMA("CADCHF",15,200,0,0,0,0), smacadjpy15 = iMA("CADJPY",15,200,0,0,0,0), smachfjpy15 = iMA("CHFJPY",15,200,0,0,0,0);
  
  // Calculate eurchf
  double closeeurchf15 = (iClose("USDCHF",15,0)*iClose("EURUSD",15,0));
  int Counter15 = 0;
  double smaeurchf15 = 0;
  double smaeurchfcounter15 = 0;
  while(Counter15 <= 199)
{
smaeurchfcounter15 = (iClose("USDCHF",15,Counter15)*iClose("EURUSD",15,Counter15));
smaeurchf15 = smaeurchf15 + smaeurchfcounter15;
Counter15++;
}
smaeurchf15 = smaeurchf15/200;
  
  if((iClose("EURUSD",15,0) > smaeurusd15)) eurscore15++; else usdscore15++; if((iClose("EURGBP",15,0) > smaeurgbp15)) eurscore15++; else gbpscore15++;
  if((closeeurchf15 > smaeurchf15)) eurscore15++; else chfscore15++; if((iClose("EURJPY",15,0) > smaeurjpy15)) eurscore15++; else jpyscore15++;
  if((iClose("EURCAD",15,0) > smaeurcad15)) eurscore15++; else cadscore15++; if((iClose("EURAUD",15,0) > smaeuraud15)) eurscore15++; else audscore15++;
  if((iClose("EURNZD",15,0) > smaeurnzd15)) eurscore15++; else nzdscore15++; if((iClose("GBPUSD",15,0) > smagbpusd15)) gbpscore15++; else usdscore15++;
  if((iClose("GBPCHF",15,0) > smagbpchf15)) gbpscore15++; else chfscore15++; if((iClose("GBPJPY",15,0) > smagbpjpy15)) gbpscore15++; else jpyscore15++;
  if((iClose("GBPCAD",15,0) > smagbpcad15)) gbpscore15++; else cadscore15++; if((iClose("GBPAUD",15,0) > smagbpaud15)) gbpscore15++; else audscore15++;
  if((iClose("GBPNZD",15,0) > smagbpnzd15)) gbpscore15++; else nzdscore15++; if((iClose("AUDUSD",15,0) > smaaudusd15)) audscore15++; else usdscore15++;
  if((iClose("AUDCHF",15,0) > smaaudchf15)) audscore15++; else chfscore15++; if((iClose("AUDJPY",15,0) > smaaudjpy15)) audscore15++; else jpyscore15++;
  if((iClose("AUDCAD",15,0) > smaaudcad15)) audscore15++; else cadscore15++; if((iClose("AUDNZD",15,0) > smaaudnzd15)) audscore15++; else nzdscore15++;
  if((iClose("USDCHF",15,0) > smausdchf15)) usdscore15++; else chfscore15++; if((iClose("USDCAD",15,0) > smausdcad15)) usdscore15++; else cadscore15++;
  if((iClose("USDJPY",15,0) > smausdjpy15)) usdscore15++; else jpyscore15++; if((iClose("CADCHF",15,0) > smacadchf15)) cadscore15++; else chfscore15++;
  if((iClose("CADJPY",15,0) > smacadjpy15)) cadscore15++; else jpyscore15++; if((iClose("CHFJPY",15,0) > smachfjpy15)) chfscore15++; else jpyscore15++;
  if((iClose("NZDUSD",15,0) > smanzdusd15)) nzdscore15++; else usdscore15++; if((iClose("NZDCHF",15,0) > smanzdchf15)) nzdscore15++; else chfscore15++;
  if((iClose("NZDJPY",15,0) > smanzdjpy15)) nzdscore15++; else jpyscore15++; if((iClose("NZDCAD",15,0) > smanzdcad15)) nzdscore15++; else cadscore15++;
  
  // Display M15
  
  if(eurscore15 < 2) eurcolour15 = Blue; else if(eurscore15 > 5) eurcolour15 = Red; else eurcolour15 = White;
  if(gbpscore15 < 2) gbpcolour15 = Blue; else if(gbpscore15 > 5) gbpcolour15 = Red; else gbpcolour15 = White;
  if(audscore15 < 2) audcolour15 = Blue; else if(audscore15 > 5) audcolour15 = Red; else audcolour15 = White;
  if(chfscore15 < 2) chfcolour15 = Blue; else if(chfscore15 > 5) chfcolour15 = Red; else chfcolour15 = White;
  if(jpyscore15 < 2) jpycolour15 = Blue; else if(jpyscore15 > 5) jpycolour15 = Red; else jpycolour15 = White;
  if(nzdscore15 < 2) nzdcolour15 = Blue; else if(nzdscore15 > 5) nzdcolour15 = Red; else nzdcolour15 = White;
  if(cadscore15 < 2) cadcolour15 = Blue; else if(cadscore15 > 5) cadcolour15 = Red; else cadcolour15 = White;
  if(usdscore15 < 2) usdcolour15 = Blue; else if(usdscore15 > 5) usdcolour15 = Red; else usdcolour15 = White;
  
  y = y + horizgap;
  
  Display("m15", x,y); ObjectSetText("m15", "M15:              ",fontsize,"Verdana", Yellow);
  Display("eurm15", x+158,y); ObjectSetText("eurm15", DoubleToStr(eurscore15,0),fontsize, "Verdana", eurcolour15);
  Display("usdm15", x+208,y); ObjectSetText("usdm15", DoubleToStr(usdscore15,0),fontsize, "Verdana", usdcolour15);
  Display("gbpm15", x+258,y); ObjectSetText("gbpm15", DoubleToStr(gbpscore15,0),fontsize, "Verdana", gbpcolour15);
  Display("chfm15", x+308,y); ObjectSetText("chfm15", DoubleToStr(chfscore15,0),fontsize, "Verdana", chfcolour15);
  Display("cadm15", x+358,y); ObjectSetText("cadm15", DoubleToStr(cadscore15,0),fontsize, "Verdana", cadcolour15);
  Display("audm15", x+408,y); ObjectSetText("audm15", DoubleToStr(audscore15,0),fontsize, "Verdana", audcolour15);
  Display("jpym15", x+458,y); ObjectSetText("jpym15", DoubleToStr(jpyscore15,0),fontsize, "Verdana", jpycolour15);
  Display("nzdm15", x+508,y); ObjectSetText("nzdm15", DoubleToStr(nzdscore15,0),fontsize, "Verdana", nzdcolour15);
  
  // 60 min calc
  double smaeurusd60 = iMA("EURUSD",60,200,0,0,0,0), smaeurgbp60 = iMA("EURGBP",60,200,0,0,0,0), smaeurjpy60 = iMA("EURJPY",60,200,0,0,0,0),
  smaeurcad60 = iMA("EURCAD",60,200,0,0,0,0), smaeurnzd60 = iMA("EURNZD",60,200,0,0,0,0), smaeuraud60 = iMA("EURAUD",60,200,0,0,0,0);
  double smagbpusd60 = iMA("GBPUSD",60,200,0,0,0,0), smagbpchf60 = iMA("GBPCHF",60,200,0,0,0,0), smagbpjpy60 = iMA("GBPJPY",60,200,0,0,0,0),
  smagbpcad60 = iMA("GBPCAD",60,200,0,0,0,0), smagbpaud60 = iMA("GBPAUD",60,200,0,0,0,0), smagbpnzd60 = iMA("GBPNZD",60,200,0,0,0,0);
  double smaaudusd60 = iMA("AUDUSD",60,200,0,0,0,0), smaaudchf60 = iMA("AUDCHF",60,200,0,0,0,0), smaaudjpy60 = iMA("AUDJPY",60,200,0,0,0,0),
  smaaudcad60 = iMA("AUDCAD",60,200,0,0,0,0), smaaudnzd60 = iMA("AUDNZD",60,200,0,0,0,0);
  double smausdchf60 = iMA("USDCHF",60,200,0,0,0,0), smausdcad60 = iMA("USDCAD",60,200,0,0,0,0), smausdjpy60 = iMA("USDJPY",60,200,0,0,0,0);
  double smanzdusd60 = iMA("NZDUSD",60,200,0,0,0,0), smanzdchf60 = iMA("NZDCHF",60,200,0,0,0,0), smanzdjpy60 = iMA("NZDJPY",60,200,0,0,0,0),
  smanzdcad60 = iMA("NZDCAD",60,200,0,0,0,0);
  double smacadchf60 = iMA("CADCHF",60,200,0,0,0,0), smacadjpy60 = iMA("CADJPY",60,200,0,0,0,0), smachfjpy60 = iMA("CHFJPY",60,200,0,0,0,0);
  
  // Calculate eurchf
  double closeeurchf60 = (iClose("USDCHF",60,0)*iClose("EURUSD",60,0));
  int Counter60 = 0;
  double smaeurchf60 = 0;
  double smaeurchfcounter60 = 0;
  while(Counter60 <= 199)
{
smaeurchfcounter60 = (iClose("USDCHF",60,Counter60)*iClose("EURUSD",60,Counter60));
smaeurchf60 = smaeurchf60 + smaeurchfcounter60;
Counter60++;
}
smaeurchf60 = smaeurchf60/200;
  
  if((iClose("EURUSD",60,0) > smaeurusd60)) eurscore60++; else usdscore60++; if((iClose("EURGBP",60,0) > smaeurgbp60)) eurscore60++; else gbpscore60++;
  if((closeeurchf60 > smaeurchf60)) eurscore60++; else chfscore60++; if((iClose("EURJPY",60,0) > smaeurjpy60)) eurscore60++; else jpyscore60++;
  if((iClose("EURCAD",60,0) > smaeurcad60)) eurscore60++; else cadscore60++; if((iClose("EURAUD",60,0) > smaeuraud60)) eurscore60++; else audscore60++;
  if((iClose("EURNZD",60,0) > smaeurnzd60)) eurscore60++; else nzdscore60++; if((iClose("GBPUSD",60,0) > smagbpusd60)) gbpscore60++; else usdscore60++;
  if((iClose("GBPCHF",60,0) > smagbpchf60)) gbpscore60++; else chfscore60++; if((iClose("GBPJPY",60,0) > smagbpjpy60)) gbpscore60++; else jpyscore60++;
  if((iClose("GBPCAD",60,0) > smagbpcad60)) gbpscore60++; else cadscore60++; if((iClose("GBPAUD",60,0) > smagbpaud60)) gbpscore60++; else audscore60++;
  if((iClose("GBPNZD",60,0) > smagbpnzd60)) gbpscore60++; else nzdscore60++; if((iClose("AUDUSD",60,0) > smaaudusd60)) audscore60++; else usdscore60++;
  if((iClose("AUDCHF",60,0) > smaaudchf60)) audscore60++; else chfscore60++; if((iClose("AUDJPY",60,0) > smaaudjpy60)) audscore60++; else jpyscore60++;
  if((iClose("AUDCAD",60,0) > smaaudcad60)) audscore60++; else cadscore60++; if((iClose("AUDNZD",60,0) > smaaudnzd60)) audscore60++; else nzdscore60++;
  if((iClose("USDCHF",60,0) > smausdchf60)) usdscore60++; else chfscore60++; if((iClose("USDCAD",60,0) > smausdcad60)) usdscore60++; else cadscore60++;
  if((iClose("USDJPY",60,0) > smausdjpy60)) usdscore60++; else jpyscore60++; if((iClose("CADCHF",60,0) > smacadchf60)) cadscore60++; else chfscore60++;
  if((iClose("CADJPY",60,0) > smacadjpy60)) cadscore60++; else jpyscore60++; if((iClose("CHFJPY",60,0) > smachfjpy60)) chfscore60++; else jpyscore60++;
  if((iClose("NZDUSD",60,0) > smanzdusd60)) nzdscore60++; else usdscore60++; if((iClose("NZDCHF",60,0) > smanzdchf60)) nzdscore60++; else chfscore60++;
  if((iClose("NZDJPY",60,0) > smanzdjpy60)) nzdscore60++; else jpyscore60++; if((iClose("NZDCAD",60,0) > smanzdcad60)) nzdscore60++; else cadscore60++;
  
  // Display 60 min
  
  if(eurscore60 < 2) eurcolour60 = Blue; else if(eurscore60 > 5) eurcolour60 = Red; else eurcolour60 = White;
  if(gbpscore60 < 2) gbpcolour60 = Blue; else if(gbpscore60 > 5) gbpcolour60 = Red; else gbpcolour60 = White;
  if(audscore60 < 2) audcolour60 = Blue; else if(audscore60 > 5) audcolour60 = Red; else audcolour60 = White;
  if(chfscore60 < 2) chfcolour60 = Blue; else if(chfscore60 > 5) chfcolour60 = Red; else chfcolour60 = White;
  if(jpyscore60 < 2) jpycolour60 = Blue; else if(jpyscore60 > 5) jpycolour60 = Red; else jpycolour60 = White;
  if(nzdscore60 < 2) nzdcolour60 = Blue; else if(nzdscore60 > 5) nzdcolour60 = Red; else nzdcolour60 = White;
  if(cadscore60 < 2) cadcolour60 = Blue; else if(cadscore60 > 5) cadcolour60 = Red; else cadcolour60 = White;
  if(usdscore60 < 2) usdcolour60 = Blue; else if(usdscore60 > 5) usdcolour60 = Red; else usdcolour60 = White;
  
  y = y + horizgap;
  
  Display("m60", x,y); ObjectSetText("m60", "Hourly:              ",fontsize,"Verdana", Yellow);
  Display("eurm60", x+158,y); ObjectSetText("eurm60", DoubleToStr(eurscore60,0),fontsize, "Verdana", eurcolour60);
  Display("usdm60", x+208,y); ObjectSetText("usdm60", DoubleToStr(usdscore60,0),fontsize, "Verdana", usdcolour60);
  Display("gbpm60", x+258,y); ObjectSetText("gbpm60", DoubleToStr(gbpscore60,0),fontsize, "Verdana", gbpcolour60);
  Display("chfm60", x+308,y); ObjectSetText("chfm60", DoubleToStr(chfscore60,0),fontsize, "Verdana", chfcolour60);
  Display("cadm60", x+358,y); ObjectSetText("cadm60", DoubleToStr(cadscore60,0),fontsize, "Verdana", cadcolour60);
  Display("audm60", x+408,y); ObjectSetText("audm60", DoubleToStr(audscore60,0),fontsize, "Verdana", audcolour60);
  Display("jpym60", x+458,y); ObjectSetText("jpym60", DoubleToStr(jpyscore60,0),fontsize, "Verdana", jpycolour60);
  Display("nzdm60", x+508,y); ObjectSetText("nzdm60", DoubleToStr(nzdscore60,0),fontsize, "Verdana", nzdcolour60);
  
  // Daily calc
  double smaeurusd1440 = iMA("EURUSD",1440,200,0,0,0,0), smaeurgbp1440 = iMA("EURGBP",1440,200,0,0,0,0), smaeurjpy1440 = iMA("EURJPY",1440,200,0,0,0,0),
  smaeurcad1440 = iMA("EURCAD",1440,200,0,0,0,0), smaeurnzd1440 = iMA("EURNZD",1440,200,0,0,0,0), smaeuraud1440 = iMA("EURAUD",1440,200,0,0,0,0);
  double smagbpusd1440 = iMA("GBPUSD",1440,200,0,0,0,0), smagbpchf1440 = iMA("GBPCHF",1440,200,0,0,0,0), smagbpjpy1440 = iMA("GBPJPY",1440,200,0,0,0,0),
  smagbpcad1440 = iMA("GBPCAD",1440,200,0,0,0,0), smagbpaud1440 = iMA("GBPAUD",1440,200,0,0,0,0), smagbpnzd1440 = iMA("GBPNZD",1440,200,0,0,0,0);
  double smaaudusd1440 = iMA("AUDUSD",1440,200,0,0,0,0), smaaudchf1440 = iMA("AUDCHF",1440,200,0,0,0,0), smaaudjpy1440 = iMA("AUDJPY",1440,200,0,0,0,0),
  smaaudcad1440 = iMA("AUDCAD",1440,200,0,0,0,0), smaaudnzd1440 = iMA("AUDNZD",1440,200,0,0,0,0);
  double smausdchf1440 = iMA("USDCHF",1440,200,0,0,0,0), smausdcad1440 = iMA("USDCAD",1440,200,0,0,0,0), smausdjpy1440 = iMA("USDJPY",1440,200,0,0,0,0);
  double smanzdusd1440 = iMA("NZDUSD",1440,200,0,0,0,0), smanzdchf1440 = iMA("NZDCHF",1440,200,0,0,0,0), smanzdjpy1440 = iMA("NZDJPY",1440,200,0,0,0,0),
  smanzdcad1440 = iMA("NZDCAD",1440,200,0,0,0,0);
  double smacadchf1440 = iMA("CADCHF",1440,200,0,0,0,0), smacadjpy1440 = iMA("CADJPY",1440,200,0,0,0,0), smachfjpy1440 = iMA("CHFJPY",1440,200,0,0,0,0);
  
  // Calculate eurchf
  double closeeurchf1440 = (iClose("USDCHF",1440,0)*iClose("EURUSD",1440,0));
  int Counter1440 = 0;
  double smaeurchf1440 = 0;
  double smaeurchfcounter1440 = 0;
  while(Counter1440 <= 199)
{
smaeurchfcounter1440 = (iClose("USDCHF",1440,Counter1440)*iClose("EURUSD",1440,Counter1440));
smaeurchf1440 = smaeurchf1440 + smaeurchfcounter1440;
Counter1440++;
}
smaeurchf1440 = smaeurchf1440/200;
  
  if((iClose("EURUSD",1440,0) > smaeurusd1440)) eurscored++; else usdscored++; if((iClose("EURGBP",1440,0) > smaeurgbp1440)) eurscored++; else gbpscored++;
  if((closeeurchf1440 > smaeurchf1440)) eurscored++; else chfscored++; if((iClose("EURJPY",1440,0) > smaeurjpy1440)) eurscored++; else jpyscored++;
  if((iClose("EURCAD",1440,0) > smaeurcad1440)) eurscored++; else cadscored++; if((iClose("EURAUD",1440,0) > smaeuraud1440)) eurscored++; else audscored++;
  if((iClose("EURNZD",1440,0) > smaeurnzd1440)) eurscored++; else nzdscored++; if((iClose("GBPUSD",1440,0) > smagbpusd1440)) gbpscored++; else usdscored++;
  if((iClose("GBPCHF",1440,0) > smagbpchf1440)) gbpscored++; else chfscored++; if((iClose("GBPJPY",1440,0) > smagbpjpy1440)) gbpscored++; else jpyscored++;
  if((iClose("GBPCAD",1440,0) > smagbpcad1440)) gbpscored++; else cadscored++; if((iClose("GBPAUD",1440,0) > smagbpaud1440)) gbpscored++; else audscored++;
  if((iClose("GBPNZD",1440,0) > smagbpnzd1440)) gbpscored++; else nzdscored++; if((iClose("AUDUSD",1440,0) > smaaudusd1440)) audscored++; else usdscored++;
  if((iClose("AUDCHF",1440,0) > smaaudchf1440)) audscored++; else chfscored++; if((iClose("AUDJPY",1440,0) > smaaudjpy1440)) audscored++; else jpyscored++;
  if((iClose("AUDCAD",1440,0) > smaaudcad1440)) audscored++; else cadscored++; if((iClose("AUDNZD",1440,0) > smaaudnzd1440)) audscored++; else nzdscored++;
  if((iClose("USDCHF",1440,0) > smausdchf1440)) usdscored++; else chfscored++; if((iClose("USDCAD",1440,0) > smausdcad1440)) usdscored++; else cadscored++;
  if((iClose("USDJPY",1440,0) > smausdjpy1440)) usdscored++; else jpyscored++; if((iClose("CADCHF",1440,0) > smacadchf1440)) cadscored++; else chfscored++;
  if((iClose("CADJPY",1440,0) > smacadjpy1440)) cadscored++; else jpyscored++; if((iClose("CHFJPY",1440,0) > smachfjpy1440)) chfscored++; else jpyscored++;
  if((iClose("NZDUSD",1440,0) > smanzdusd1440)) nzdscored++; else usdscored++; if((iClose("NZDCHF",1440,0) > smanzdchf1440)) nzdscored++; else chfscored++;
  if((iClose("NZDJPY",1440,0) > smanzdjpy1440)) nzdscored++; else jpyscored++; if((iClose("NZDCAD",1440,0) > smanzdcad1440)) nzdscored++; else cadscored++;
  
  // Display daily
  
  if(eurscored < 2) eurcolourd = Blue; else if(eurscored > 5) eurcolourd = Red; else eurcolourd = White;
  if(gbpscored < 2) gbpcolourd = Blue; else if(gbpscored > 5) gbpcolourd = Red; else gbpcolourd = White;
  if(audscored < 2) audcolourd = Blue; else if(audscored > 5) audcolourd = Red; else audcolourd = White;
  if(chfscored < 2) chfcolourd = Blue; else if(chfscored > 5) chfcolourd = Red; else chfcolourd = White;
  if(jpyscored < 2) jpycolourd = Blue; else if(jpyscored > 5) jpycolourd = Red; else jpycolourd = White;
  if(nzdscored < 2) nzdcolourd = Blue; else if(nzdscored > 5) nzdcolourd = Red; else nzdcolourd = White;
  if(cadscored < 2) cadcolourd = Blue; else if(cadscored > 5) cadcolourd = Red; else cadcolourd = White;
  if(usdscored < 2) usdcolourd = Blue; else if(usdscored > 5) usdcolourd = Red; else usdcolourd = White;
  
  y = y + horizgap;
  
  Display("daily", x,y); ObjectSetText("daily", "Daily:              ",fontsize,"Verdana", Yellow);
  Display("eur", x+158,y); ObjectSetText("eur", DoubleToStr(eurscored,0),fontsize, "Verdana", eurcolourd);
  Display("usd", x+208,y); ObjectSetText("usd", DoubleToStr(usdscored,0),fontsize, "Verdana", usdcolourd);
  Display("gbp", x+258,y); ObjectSetText("gbp", DoubleToStr(gbpscored,0),fontsize, "Verdana", gbpcolourd);
  Display("chf", x+308,y); ObjectSetText("chf", DoubleToStr(chfscored,0),fontsize, "Verdana", chfcolourd);
  Display("cad", x+358,y); ObjectSetText("cad", DoubleToStr(cadscored,0),fontsize, "Verdana", cadcolourd);
  Display("aud", x+408,y); ObjectSetText("aud", DoubleToStr(audscored,0),fontsize, "Verdana", audcolourd);
  Display("jpy", x+458,y); ObjectSetText("jpy", DoubleToStr(jpyscored,0),fontsize, "Verdana", jpycolourd);
  Display("nzd", x+508,y); ObjectSetText("nzd", DoubleToStr(nzdscored,0),fontsize, "Verdana", nzdcolourd);
    
return(0);
  }

void Display(string name, int x, int y)
   {
   ObjectCreate(name, OBJ_LABEL, indwindow, 0, 0);
   ObjectSet(name, OBJPROP_CORNER, 0);
   ObjectSet(name, OBJPROP_XDISTANCE, x);
   ObjectSet(name, OBJPROP_YDISTANCE, y);
   ObjectSet(name, OBJPROP_BACK, FALSE);
   }