//+------------------------------------------------------------------+
//|                                                         thjw.mq4 |
//+------------------------------------------------------------------+

#property indicator_separate_window
//#property indicator_minimum -10
//#property indicator_maximum 110
#property indicator_level1 70
#property indicator_level2 50
#property indicator_level3 30

#property indicator_levelcolor DarkSlateGray
#property indicator_buffers 8
#property indicator_width1  2
#property indicator_style1  STYLE_SOLID
#property indicator_width2  2
#property indicator_style2  STYLE_SOLID
#property indicator_width3  2
#property indicator_style3  STYLE_SOLID
#property indicator_width4  2
#property indicator_style4  STYLE_SOLID
#property indicator_width5  2
#property indicator_style5  STYLE_SOLID
#property indicator_width6  2
#property indicator_style6  STYLE_SOLID
#property indicator_width7  2
#property indicator_style7  STYLE_SOLID
#property indicator_width8  2
#property indicator_style8  STYLE_SOLID

#include <hanover --- function header b600 (np).mqh>

extern int    LookbackCandles      = 500;
extern int    RSIperiod            = 14;
extern bool   IncludeNZD           = true;
extern color  color_EUR            = HotPink;
extern color  color_USD            = White;
extern color  color_GBP            = Crimson;
extern color  color_AUD            = MediumSeaGreen;
extern color  color_CHF            = Gold;
extern color  color_JPY            = DarkOrchid;
extern color  color_CAD            = Sienna;
extern color  color_NZD            = DodgerBlue;
extern int    LegendSpacing         = 25;

//---- buffers ------------------------------------------------------+
double   Buffer0[], Buffer1[], Buffer2[], Buffer3[], Buffer4[], Buffer5[], Buffer6[], Buffer7[];

string   ccy, sym, IndiName, L[9];
int      dig, tf, tmf, Wnum;
int      RefreshEveryXMins;
double   spr, pnt, tickval, bidp, askp;
datetime prev_time, lastick;


//+------------------------------------------------------------------+
int init()  {
//+------------------------------------------------------------------+

  IndiName = "thjw";
  IndicatorShortName(IndiName);

  if (RefreshEveryXMins > 240)                             RefreshEveryXMins = 240;
  if (RefreshEveryXMins > 60 && RefreshEveryXMins < 240)   RefreshEveryXMins = 60;
  if (RefreshEveryXMins > 30 && RefreshEveryXMins < 60)    RefreshEveryXMins = 30;
  if (RefreshEveryXMins > 15 && RefreshEveryXMins < 30)    RefreshEveryXMins = 15;
  if (RefreshEveryXMins > 5  && RefreshEveryXMins < 15)    RefreshEveryXMins = 5;
  if (RefreshEveryXMins > 1  && RefreshEveryXMins < 5)     RefreshEveryXMins = 1;

  sym     = Symbol();
  ccy     = Symbol();
  tmf     = Period();
  bidp    = MarketInfo(ccy,MODE_BID);
  askp    = MarketInfo(ccy,MODE_ASK);
  pnt     = MarketInfo(ccy,MODE_POINT);
  dig     = MarketInfo(ccy,MODE_DIGITS);
  spr     = MarketInfo(ccy,MODE_SPREAD);
  tickval = MarketInfo(ccy,MODE_TICKVALUE);
  if (dig == 3 || dig == 5) {
    pnt     *= 10;
    spr     /= 10;
    tickval *= 10;
  }  

//  Comment("pnt=" + pnt + "    dig=" + dig + "    spr=" + spr);

  prev_time = -9999;

  //---- set a accuracy of values of the indicator -----------------+
  IndicatorDigits(dig);
  //---- set a style for line --------------------------------------+
  SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,2,color_EUR);   SetIndexLabel(0,"EUR");
  SetIndexStyle(1,DRAW_LINE,STYLE_SOLID,2,color_USD);   SetIndexLabel(1,"USD");
  SetIndexStyle(2,DRAW_LINE,STYLE_SOLID,2,color_GBP);   SetIndexLabel(2,"GBP");
  SetIndexStyle(3,DRAW_LINE,STYLE_SOLID,2,color_AUD);   SetIndexLabel(3,"AUD");
  SetIndexStyle(4,DRAW_LINE,STYLE_SOLID,2,color_CHF);   SetIndexLabel(4,"CHF");
  SetIndexStyle(5,DRAW_LINE,STYLE_SOLID,2,color_JPY);   SetIndexLabel(5,"JPY");
  SetIndexStyle(6,DRAW_LINE,STYLE_SOLID,2,color_CAD);   SetIndexLabel(6,"CAD");
  SetIndexStyle(7,DRAW_LINE,STYLE_SOLID,2,color_NZD);   SetIndexLabel(7,"NZD");

  //---- set a arrays for line -------------------------------------+
  SetIndexBuffer(0,Buffer0);
  SetIndexBuffer(1,Buffer1);
  SetIndexBuffer(2,Buffer2);
  SetIndexBuffer(3,Buffer3);
  SetIndexBuffer(4,Buffer4);
  SetIndexBuffer(5,Buffer5);
  SetIndexBuffer(6,Buffer6);
  SetIndexBuffer(7,Buffer7);
 
  del_obj();
  plot_obj();    
 
  return(0);
}

//+------------------------------------------------------------------+
int deinit()  {
//+------------------------------------------------------------------+
  del_obj();
  return(0);
}

//+------------------------------------------------------------------+
int start()  {
//+------------------------------------------------------------------+
    if (RefreshEveryXMins == 0) {
      del_obj();
      plot_obj();    
    }
    else {
      if(prev_time != iTime(sym,RefreshEveryXMins,0))  {
        del_obj();
        plot_obj();
        prev_time = iTime(sym,RefreshEveryXMins,0);
    } }      
     
//  }  
  return(0);
}

//+------------------------------------------------------------------+
void del_obj()  {
//+------------------------------------------------------------------+
  int k=0;
  while (k<ObjectsTotal())   {
    string objname = ObjectName(k);
    if (StringSubstr(objname,0,StringLen(IndiName)) == IndiName)  
      ObjectDelete(objname);
    else
      k++;
  }    
  return(0);
}

//+------------------------------------------------------------------+
void plot_obj()   {
//+------------------------------------------------------------------+
  lastick = MarketInfo(ccy,MODE_TIME);
  bidp    = MarketInfo(ccy,MODE_BID);
  spr     = MarketInfo(ccy,MODE_SPREAD);
  tickval = MarketInfo(ccy,MODE_TICKVALUE);
  if (dig == 3 || dig == 5) {
    spr     /= 10;
    tickval *= 10;
  }  
  Wnum = WindowFind(IndiName);
  if (Wnum < 0)   Wnum=0;
 
  for (int i=LookbackCandles; i>=0; i--)  {

    double euraud = iRSI("EURAUD",Period(),RSIperiod,PRICE_CLOSE,i);
    double eurcad = iRSI("EURCAD",Period(),RSIperiod,PRICE_CLOSE,i);
    double eurchf = iRSI("EURCHF",Period(),RSIperiod,PRICE_CLOSE,i);
    double eurgbp = iRSI("EURGBP",Period(),RSIperiod,PRICE_CLOSE,i);
    double eurjpy = iRSI("EURJPY",Period(),RSIperiod,PRICE_CLOSE,i);
    double eurnzd = iRSI("EURNZD",Period(),RSIperiod,PRICE_CLOSE,i);
    double eurusd = iRSI("EURUSD",Period(),RSIperiod,PRICE_CLOSE,i);
   
    double gbpaud = iRSI("GBPAUD",Period(),RSIperiod,PRICE_CLOSE,i);
    double gbpcad = iRSI("GBPCAD",Period(),RSIperiod,PRICE_CLOSE,i);
    double gbpchf = iRSI("GBPCHF",Period(),RSIperiod,PRICE_CLOSE,i);
    double gbpjpy = iRSI("GBPJPY",Period(),RSIperiod,PRICE_CLOSE,i);
    double gbpnzd = iRSI("GBPNZD",Period(),RSIperiod,PRICE_CLOSE,i);
    double gbpusd = iRSI("GBPUSD",Period(),RSIperiod,PRICE_CLOSE,i);

    double audcad = iRSI("AUDCAD",Period(),RSIperiod,PRICE_CLOSE,i);
    double audchf = iRSI("AUDCHF",Period(),RSIperiod,PRICE_CLOSE,i);
    double audjpy = iRSI("AUDJPY",Period(),RSIperiod,PRICE_CLOSE,i);
    double audnzd = iRSI("AUDNZD",Period(),RSIperiod,PRICE_CLOSE,i);
    double audusd = iRSI("AUDUSD",Period(),RSIperiod,PRICE_CLOSE,i);

    double nzdcad = iRSI("NZDCAD",Period(),RSIperiod,PRICE_CLOSE,i);
    double nzdchf = iRSI("NZDCHF",Period(),RSIperiod,PRICE_CLOSE,i);
    double nzdjpy = iRSI("NZDJPY",Period(),RSIperiod,PRICE_CLOSE,i);
    double nzdusd = iRSI("NZDUSD",Period(),RSIperiod,PRICE_CLOSE,i);

    double usdcad = iRSI("USDCAD",Period(),RSIperiod,PRICE_CLOSE,i);
    double usdchf = iRSI("USDCHF",Period(),RSIperiod,PRICE_CLOSE,i);
    double usdjpy = iRSI("USDJPY",Period(),RSIperiod,PRICE_CLOSE,i);

    double cadchf = iRSI("CADCHF",Period(),RSIperiod,PRICE_CLOSE,i);
    double cadjpy = iRSI("CADJPY",Period(),RSIperiod,PRICE_CLOSE,i);

    double chfjpy = iRSI("CHFJPY",Period(),RSIperiod,PRICE_CLOSE,i);
/*
    double euraud = iClose("EURAUD",Period(),i);
    double eurcad = iClose("EURCAD",Period(),i);
    double eurchf = iClose("EURCHF",Period(),i);
    double eurgbp = iClose("EURGBP",Period(),i);
    double eurjpy = iClose("EURJPY",Period(),i);
    double eurnzd = iClose("EURNZD",Period(),i);
    double eurusd = iClose("EURUSD",Period(),i);
    double gbpaud = iClose("GBPAUD",Period(),i);
    double gbpcad = iClose("GBPCAD",Period(),i);
    double gbpchf = iClose("GBPCHF",Period(),i);
    double gbpjpy = iClose("GBPJPY",Period(),i);
    double gbpnzd = iClose("GBPNZD",Period(),i);
    double gbpusd = iClose("GBPUSD",Period(),i);
    double audcad = iClose("AUDCAD",Period(),i);
    double audchf = iClose("AUDCHF",Period(),i);
    double audjpy = iClose("AUDJPY",Period(),i);
    double audnzd = iClose("AUDNZD",Period(),i);
    double audusd = iClose("AUDUSD",Period(),i);
    double nzdcad = iClose("NZDCAD",Period(),i);
    double nzdchf = iClose("NZDCHF",Period(),i);
    double nzdjpy = iClose("NZDJPY",Period(),i);
    double nzdusd = iClose("NZDUSD",Period(),i);
    double usdcad = iClose("USDCAD",Period(),i);
    double usdchf = iClose("USDCHF",Period(),i);
    double usdjpy = iClose("USDJPY",Period(),i);
    double cadchf = iClose("CADCHF",Period(),i);
    double cadjpy = iClose("CADJPY",Period(),i);
    double chfjpy = iClose("CHFJPY",Period(),i);
*/
    double eur = ( euraud + eurcad + eurchf + eurgbp + eurjpy + eurusd + eurnzd*IncludeNZD) / (6+IncludeNZD);
    double gbp = ( gbpaud + gbpcad + gbpchf + (100-eurgbp) + gbpjpy + gbpusd + gbpnzd*IncludeNZD) / (6+IncludeNZD);
    double aud = ( (100-gbpaud) + audcad + audchf + (100-euraud) + audjpy + audusd + audnzd*IncludeNZD) / (6+IncludeNZD);
    double usd = ( (100-gbpusd) + (100-audusd) + usdchf + (100-eurusd) + usdcad + usdjpy + (100-nzdusd)*IncludeNZD) / (6+IncludeNZD);
    double cad = ( (100-gbpcad) + (100-audcad) + (100-usdcad) + (100-eurcad) + cadchf + cadjpy + (100-nzdcad)*IncludeNZD) / (6+IncludeNZD);
    double chf = ( (100-gbpchf) + (100-audchf) + (100-usdchf) + (100-eurchf) + (100-cadchf) + cadjpy + (100-nzdchf)*IncludeNZD) / (6+IncludeNZD);
    double jpy = ( (100-gbpjpy) + (100-audjpy) + (100-usdjpy) + (100-eurjpy) + (100-cadjpy) + (100-chfjpy) + (100-nzdjpy)*IncludeNZD) / (6+IncludeNZD);
    double nzd = ( (100-eurnzd) + (100-audnzd) + (100-gbpnzd) + nzdusd + nzdcad + nzdchf + nzdjpy) / 7 * IncludeNZD;

    Buffer0[i] = eur;
    Buffer1[i] = usd;
    Buffer2[i] = gbp;
    Buffer3[i] = aud;
    Buffer4[i] = chf;
    Buffer5[i] = jpy;
    Buffer6[i] = cad;
    if (IncludeNZD)
      Buffer7[i] = nzd;
  }
  L[0] = NumberToStr(Buffer0[0],"2' EUR  '") + NumberToStr(color_EUR,"12");
  L[1] = NumberToStr(Buffer1[0],"2' USD  '") + NumberToStr(color_USD,"12");
  L[2] = NumberToStr(Buffer2[0],"2' GBP  '") + NumberToStr(color_GBP,"12");
  L[3] = NumberToStr(Buffer3[0],"2' AUD  '") + NumberToStr(color_AUD,"12");
  L[4] = NumberToStr(Buffer4[0],"2' CHF  '") + NumberToStr(color_CHF,"12");
  L[5] = NumberToStr(Buffer5[0],"2' JPY  '") + NumberToStr(color_JPY,"12");
  L[6] = NumberToStr(Buffer6[0],"2' CAD  '") + NumberToStr(color_CAD,"12");
  if (IncludeNZD)
    L[7] = NumberToStr(Buffer7[0],"2' NZD  '") + NumberToStr(color_NZD,"12");
  else
    L[7] = "00    ";  
  ShellsortStringArray(L,0,true);

  int p=10;
  for (i=0; i<8; i++)  {  
    PlotLabel (IndiName+StringSubstr(L[i],3,3), false, WindowFind("thjw"), 1, 15, 25+i*LegendSpacing, StringSubstr(L[i],3,3), StrToColor(StringSubstr(L[i],9)), 10, "Arial Black", 0.0, false, 0);       // Plot text label
  }
  return(0);
}

//+------------------------------------------------------------------+
#include <hanover --- extensible functions b600 (np).mqh>