pairsindex

Download script
Author: Copyright 2015, 3rjfx ~ 20/05/2015
pairsindex

This tool is a comprehensive dashboard designed for traders who need a high-level overview of market sentiment, currency trends, and active position performance at a single glance. Rather than looking at individual charts, it aggregates data from multiple timeframes and various currency pairs to provide a "snapshot" of the current trading environment.

Here is a detailed breakdown of how the logic works:

1. Real-Time Market Sentiment & Trend Analysis

The script analyzes the market across several different timeframes simultaneously (ranging from 5 minutes up to daily views). It uses two primary technical methods to determine trend direction:

  • Moving Averages: It calculates the relationship between fast and slow moving averages to see if momentum is shifting.
  • CCI (Commodity Channel Index): This is used to confirm whether the price is overbought, oversold, or showing a specific directional bias.

Based on these calculations, the dashboard displays visual "Traffic Signals." It identifies whether the current trend is Bullish (upward), Bearish (downward), or in a state of Wait (neutral/sideways). These signals are color-coded for quick identification:

  • Lime/Green: Strong Bullish signal.
  • Red: Strong Bearish signal.
  • Yellow/Gold: Neutral or uncertain market conditions.

2. Dynamic Currency Indexing (The "X" Factors)

One of the most sophisticated features of this script is its ability to track the "strength" of major global currencies (AUD, CAD, CHF, EUR, GBP, JPY, NZD, and USD).

  • Broad Market Scanning: The script looks at a wide variety of currency pairs involving these specific bases.
  • Voting System: It checks if the price closed higher or lower across multiple pairs for each currency. If a currency is performing well against the majority of its peers, it marks that currency as "Up" (Green).
  • Trend Visualization: This allows you to see which currencies are gaining power globally and which are weakening, helping you identify where the strongest "flow" of money is moving.

3. Portfolio & Trade Monitoring

The script connects directly to your open trades on the current chart to provide immediate feedback on your active positions:

  • Profit Tracking: It calculates the real-time profit or loss for both Buy and Sell orders in pips.
  • Visual Alerts: It uses "emojis" (Wingdings symbols) to show your status. A "Smile" indicates a profitable trade, while an "Angry" face signals a losing position.
  • Risk Warning: If a price moves dangerously close to a calculated volatility threshold (based on the ATR indicator), it displays a "Stop" warning to alert you of potential risk.

4. Multi-Timeframe Data & Pip Ranges

To help with multi-timeframe analysis, the dashboard provides:

  • Pip Range Tracking: It calculates and displays the price range (in pips) for various timeframes. This helps you see how much "room" a currency has moved during specific intervals.
  • Stochastic & OsMA Integration: The script scans multiple timeframes to check Stochastic oscillators and Oscillator Moving Averages. If these indicators align across different periods, it provides a "Suggestion" signal, helping to confirm if a move has sustained momentum or is likely to exhaust itself.

5. User Interface Features

  • Timezone Awareness: The dashboard automatically adjusts its text based on the server time, identifying specific trading sessions (like NYC, London, or Tokyo).
  • Automatic Updates: The script runs on a timer, ensuring that all labels, profit calculations, and trend arrows update automatically without requiring you to refresh your chart.
Price Data Components
Series array that contains the highest prices of each barSeries array that contains the lowest prices of each barSeries array that contains open prices of each barSeries array that contains close prices for each bar
Orders Execution
Checks for the total of open orders
Indicators Used
Indicator of the average true rangeMoving average indicatorMoving average indicatorCommodity channel indexStochastic oscillatorMoving Average of Oscillator
12 Views
0 Downloads
0 Favorites
pairsindex 
//+------------------------------------------------------------------+
//|                                                   PairsIndex.mq4 |
//|         Copyright 2015,  Roy Roberto Philips Jacobs ~ 20/05/2015 |
//|                              https://www.mql5.com/en/users/3rjfx |
//|                                              http://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2015,  3rjfx ~ 20/05/2015"
#property link      "http://www.mql5.com"
#property link      "https://www.mql5.com/en/users/3rjfx"
#property version   "1.00"
//---
#property indicator_separate_window
//---
extern string PairsIndex="Copyright © 2015 3rjfx";
//--- spacing
int scaleX=60,scaleY=21,scaleYt=18,offsetX=250,offsetY=0,fontSize=9; // coordinate
double scaleXp=71.5;
//--- arrays for various things
int TF[]={5,15,30,60,240,1440}; // Timeframes CCI
int TFM[]={5,5,5,5,15,30}; // Timeframes MA
int TFsto[]={5,15,30,60,240}; // Timeframes Stochastic
int TFosm[]={5,15,30,60,240}; // Timeframes OsMA
int prCCI[]={3,3,3,3,3,3}; // CCI Period
int light=174; // Arrow code wingdings
//---
//PRICE_CLOSE = 0 = Close price. 
//PRICE_OPEN = 1 = Open price. 
//PRICE_HIGH = 2 = High price. 
//PRICE_LOW = 3 = Low price. 
//PRICE_MEDIAN = 4 = Median price, (high+low)/2. 
//PRICE_TYPICAL = 5 = Typical price, (high+low+close)/3. 
//PRICE_WEIGHTED = 6 = Weighted close price, (high+low+close+close)/4.
//---
int maprc=0;
int ccprc=0;
int xdig=0;
int xx;
int rts;
double xr;
//---
string periodStr[]={" 5 MIN","15 MIN","30 MIN"," 1 HR "," 4 HR ","DAILY","SUGGEST","     PROFITPOINTS"}; // Text Timeframes
string labelNameStr[]={"TIMEFRAMES","TRAFFICSIGNAL","DIRECTION","POINTSRANGE","PAIRSINDEX"}; // Indicator labels
//---
string prx0[]={"AUDCHF","AUDNZD","AUDUSD","AUDJPY","AUDCAD","EURAUD","GBPAUD"}; // 7 pairs AUD
string prx1[]={"USDCAD","EURCAD","AUDCAD","NZDCAD","GBPCAD","CADCHF","CADJPY"}; // 7 pairs CAD
string prx2[]={"GBPCHF","USDCHF","EURCHF","AUDCHF","NZDCHF","CADCHF","CHFJPY"}; // 7 pairs CHF
string prx3[]={"EURAUD","EURUSD","EURJPY","EURGBP","EURCHF","EURCAD","EURNZD"}; // 7 pairs EUR
string prx4[]={"GBPUSD","GBPJPY","GBPCHF","GBPCAD","GBPAUD","GBPNZD","EURGBP"}; // 7 pairs GBP
string prx5[]={"GBPJPY","USDJPY","EURJPY","NZDJPY","CHFJPY","AUDJPY","CADJPY"}; // 7 pairs JPY
string prx6[]={"NZDJPY","NZDUSD","NZDCHF","NZDCAD","EURNZD","AUDNZD","GBPNZD"}; // 7 pairs NZD
string prx7[]={"USDCHF","USDCAD","USDJPY","AUDUSD","EURUSD","GBPUSD","NZDUSD"}; // 7 pairs USD
int TFpr[]={5,15,30,60}; // Timeframes Index __Symbols
//---
string CRi;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   CRi="Copyright © 2015 3rjfx";
//--- indicators
   EventSetTimer(60);
//---
   IndicatorShortName("PairsIndex ("+_Symbol+","+strTF(_Period)+")");
//--- Checking the Digits Point
   if(Digits==3 || Digits==5)
     {xr=Point*10; xdig=1; xx=10;}
   else {xr=Point; xdig=0; xx=1;}
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   ObjectsDeleteAll();
//---
   EventKillTimer();
   GlobalVariablesDeleteAll();
//---
   return;
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
//---
   if(PairsIndex!=CRi) return(0);
//---
   int r,x,y,aB,aS,aW,dB,dS,dW;
   int stB,stS;
   int osmB,osmS;
   int angry=76;
   int sarca=75;
   int smile=74;
   int stop=251;
//--- Symbols Index -->
   int auu,aud;
   int cau,cad;
   int chu,chd;
   int euu,eud;
   int gbu,gbd;
   int jpu,jpd;
   int nzu,nzd;
   int usu,usd;
//---
   bool AUup;
   bool CAup;
   bool CHup;
   bool EUup;
   bool GBup;
   bool JPup;
   bool NZup;
   bool USup;
//---
   RefreshRates();
   string hr=StringSubstr(TimeToStr(TimeCurrent(),TIME_MINUTES),0,2);
   string mi=StringSubstr(TimeToStr(TimeCurrent(),TIME_MINUTES),3,2);
   string sc=StringSubstr(TimeToStr(TimeCurrent(),TIME_SECONDS),6,2);
   string tztxt;
   int tcurr=TimeHour(TimeCurrent()); // Server Time == GMT+2 == (05:00 AM WIB-Jakarta Time)
   if(tcurr==23) {tztxt="NYC/NZD";} // 04 WIB -> (23+5-24= 04:00 AM WIB -> Server Time + 5 Hours = WIB or Jakarta Time)
   if(tcurr==0) {tztxt="NZD";}  // 05 WIB
   if(tcurr==1) {tztxt="NZD/AUS";} // 06 WIB
   if(tcurr>=2 && tcurr<=4) {tztxt="NZD/AUS/TOK";} // 07 -> <= 09 WIB
   if(tcurr>=5 && tcurr<=8) {tztxt="AUS/TOK";} // 10 -> <= 13 WIB
   if(tcurr>=9 && tcurr<=10) {tztxt="AUS/TOK/LON";} // 14 -> <= 15 WIB
   if(tcurr>=11 && tcurr<=13) {tztxt="LON";}  // 16 -> <= 18 WIB
   if(tcurr>=14 && tcurr<=18) {tztxt="LON/NYC";} // 19 -> <= 23 WIB
   if(tcurr>=19 && tcurr<=22) {tztxt="NYC";} // 24(00) -> <= 03 WIB
//---
   int totalord=OrdersTotal();
   int orb=0,ors=0;
   double bprovit,sprovit;
   double atrB,atrS;
   string ptxt=" ";
//---
   for(int i=0; i<totalord; i++)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)==True)
        {
         if(OrderSymbol()==_Symbol)
           {
            if(OrderType()==OP_BUY)
              {
               bprovit+=((Bid-OrderOpenPrice())/xr);
               atrB=OrderOpenPrice()-iATR(_Symbol,240,20,0)*0.7;
               orb++;
              }
            if(OrderType()==OP_SELL)
              {
               sprovit+=((OrderOpenPrice()-Ask)/xr);
               atrS=OrderOpenPrice()+iATR(_Symbol,240,20,0)*0.7;
               ors++;
              }
           }
        }
     }
//---
   if(orb==0) {bprovit=0;}
   if(ors==0) {sprovit=0;}
//--- create timeframe text labels 
   for(x=0;x<8;x++)
     {
      ObjectCreate("txPeriod"+x+y,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txPeriod"+x+y,periodStr[x],fontSize,"Bodoni MT Black",Snow);
      ObjectSet("txPeriod"+x+y,OBJPROP_CORNER,0);
      ObjectSet("txPeriod"+x+y,OBJPROP_XDISTANCE,x*scaleX+offsetX);
      ObjectSet("txPeriod"+x+y,OBJPROP_YDISTANCE,y*scaleY+offsetY+7);
     }
//--- create indicator labels time
   ObjectCreate("txTime"+y+"0",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("txTime"+y+"0",StringConcatenate("H: ",hr),11,"Arial Bold",Gold);
   ObjectSet("txTime"+y+"0",OBJPROP_CORNER,0);
   ObjectSet("txTime"+y+"0",OBJPROP_XDISTANCE,offsetX-230);
   ObjectSet("txTime"+y+"0",OBJPROP_YDISTANCE,0*scaleYt+offsetY+29);
//---
   ObjectCreate("txTime"+y+"1",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("txTime"+y+"1",StringConcatenate("M: ",mi),11,"Arial Bold",Gold);
   ObjectSet("txTime"+y+"1",OBJPROP_CORNER,0);
   ObjectSet("txTime"+y+"1",OBJPROP_XDISTANCE,offsetX-232);
   ObjectSet("txTime"+y+"1",OBJPROP_YDISTANCE,1*scaleYt+offsetY+29);
//---
   ObjectCreate("txTime"+y+"2",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("txTime"+y+"2",StringConcatenate("S: ",sc),11,"Arial Bold",Gold);
   ObjectSet("txTime"+y+"2",OBJPROP_CORNER,0);
   ObjectSet("txTime"+y+"2",OBJPROP_XDISTANCE,offsetX-229);
   ObjectSet("txTime"+y+"2",OBJPROP_YDISTANCE,2*scaleYt+offsetY+29);
//---
   ObjectCreate("txTime"+y+"3",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("txTime"+y+"3",StringConcatenate("EST TZ:  ",tztxt),8,"Arial Bold",Gold);
   ObjectSet("txTime"+y+"3",OBJPROP_CORNER,0);
   ObjectSet("txTime"+y+"3",OBJPROP_XDISTANCE,offsetX-243);
   ObjectSet("txTime"+y+"3",OBJPROP_YDISTANCE,3*scaleYt+offsetY+38);
//--- create indicator arrow trend consideration
   RefreshRates();
   ObjectDelete("txCons"+y+"0");
   ObjectDelete("txCons"+y+"0"+"a");
   ObjectDelete("txCons"+y+"0"+"a"+"1");
//---
   double mcdm[],mcds[];
   ArrayResize(mcdm,100);
   ArrayResize(mcds,100);
   ArraySetAsSeries(mcdm,true);
   ArraySetAsSeries(mcds,true);
//---
   for(int mm=99; mm>=0; mm--)
     {mcdm[mm]=iMA(_Symbol,0,12,0,1,0,mm)-iMA(_Symbol,0,26,0,1,0,mm);}
   for(int ms=99; ms>=0; ms--)
     {mcds[ms]=iMAOnArray(mcdm,0,9,0,0,ms);}
//---
   if((mcdm[0]>mcds[0])&&(mcdm[0]>mcdm[1])) {bool bulls=true;}
   if((mcdm[0]<mcds[0])&&(mcdm[0]<mcdm[1])) {bool bears=true;}
   if((mcdm[1]<=mcds[1])&&(mcdm[0]>=mcds[0])&&(mcdm[0]>mcdm[1])) {bulls=true; bears=false;}
   if((mcdm[1]>=mcds[1])&&(mcdm[0]<=mcds[0])&&(mcdm[0]<mcdm[1])) {bears=true; bulls=false;}
//---
   if(bulls==true)
     {
      ObjectCreate("txCons"+y+"0",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0",CharToStr(164),25,"Wingdings",Lime);
      ObjectSet("txCons"+y+"0",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0",OBJPROP_XDISTANCE,offsetX-172);
      ObjectSet("txCons"+y+"0",OBJPROP_YDISTANCE,1*scaleYt+offsetY+19);
      //---
      ObjectCreate("txCons"+y+"0"+"a",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0"+"a",CharToStr(217),18,"Wingdings",Lime);
      ObjectSet("txCons"+y+"0"+"a",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0"+"a",OBJPROP_XDISTANCE,offsetX-168);
      ObjectSet("txCons"+y+"0"+"a",OBJPROP_YDISTANCE,0*scaleYt+offsetY+24);
      //---
      ObjectCreate("txCons"+y+"0"+"a"+"1",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0"+"a"+"1","BULLISH",6,"Bodoni MT Black",Yellow);
      ObjectSet("txCons"+y+"0"+"a"+"1",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0"+"a"+"1",OBJPROP_XDISTANCE,offsetX-178);
      ObjectSet("txCons"+y+"0"+"a"+"1",OBJPROP_YDISTANCE,2*scaleYt+offsetY+32);
     }
//---
   if(bears==true)
     {
      ObjectCreate("txCons"+y+"0",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0",CharToStr(164),25,"Wingdings",Red);
      ObjectSet("txCons"+y+"0",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0",OBJPROP_XDISTANCE,offsetX-172);
      ObjectSet("txCons"+y+"0",OBJPROP_YDISTANCE,1*scaleYt+offsetY+19);
      //---
      ObjectCreate("txCons"+y+"0"+"a",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0"+"a",CharToStr(218),18,"Wingdings",Red);
      ObjectSet("txCons"+y+"0"+"a",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0"+"a",OBJPROP_XDISTANCE,offsetX-168);
      ObjectSet("txCons"+y+"0"+"a",OBJPROP_YDISTANCE,2*scaleYt+offsetY+22);
      //---
      ObjectCreate("txCons"+y+"0"+"a"+"1",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0"+"a"+"1","BEARISH",6,"Bodoni MT Black",Yellow);
      ObjectSet("txCons"+y+"0"+"a"+"1",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0"+"a"+"1",OBJPROP_XDISTANCE,offsetX-178);
      ObjectSet("txCons"+y+"0"+"a"+"1",OBJPROP_YDISTANCE,0*scaleYt+offsetY+31);
     }
//---
   else
     {
      ObjectCreate("txCons"+y+"0",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txCons"+y+"0",CharToStr(164),25,"Wingdings",Yellow);
      ObjectSet("txCons"+y+"0",OBJPROP_CORNER,0);
      ObjectSet("txCons"+y+"0",OBJPROP_XDISTANCE,offsetX-172);
      ObjectSet("txCons"+y+"0",OBJPROP_YDISTANCE,1*scaleYt+offsetY+19);
     }
//--- create indicator text labels
   for(y=0;y<5;y++)
     {
      ObjectCreate("txLabel"+y,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txLabel"+y,labelNameStr[y],fontSize,"Bodoni MT Black",Snow);
      ObjectSet("txLabel"+y,OBJPROP_CORNER,0);
      ObjectSet("txLabel"+y,OBJPROP_XDISTANCE,offsetX-120);
      ObjectSet("txLabel"+y,OBJPROP_YDISTANCE,y*scaleY+offsetY+7);
     }
//---
   ObjectCreate("arInd"+x+y,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("arInd"+x+y,StringConcatenate("BUY :  ",DoubleToStr(NormalizeDouble(bprovit*xx,xdig),xdig),ptxt),
                 fontSize,"Bodoni MT Black",Lime);
   ObjectSet("arInd"+x+y,OBJPROP_CORNER,0);
   ObjectSet("arInd"+x+y,OBJPROP_XDISTANCE,7*scaleX+offsetX+15); // scaleX == 83, offsetX == 220
   ObjectSet("arInd"+x+y,OBJPROP_YDISTANCE,1*scaleY+offsetY+15);
//--- create order profit BUY and smile
   if(orb==0)
     {
      ObjectCreate("arInd"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("arInd"+x+y+3,CharToStr(69),21,"Wingdings",Lime);
      ObjectSet("arInd"+x+y+3,OBJPROP_CORNER,0);
      ObjectSet("arInd"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+108); // scaleX == 83, offsetX == 220
      ObjectSet("arInd"+x+y+3,OBJPROP_YDISTANCE,1*scaleY+offsetY+7);
     }
   if(orb>0)
     {
      if(bprovit>0)
        {
         ObjectCreate("arInd"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("arInd"+x+y+3,CharToStr(smile),21,"Wingdings",Snow);
         ObjectSet("arInd"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("arInd"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("arInd"+x+y+3,OBJPROP_YDISTANCE,1*scaleY+offsetY+7);
        }
      else if(bprovit<0)
        {
         ObjectCreate("arInd"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("arInd"+x+y+3,CharToStr(angry),21,"Wingdings",Red);
         ObjectSet("arInd"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("arInd"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("arInd"+x+y+3,OBJPROP_YDISTANCE,1*scaleY+offsetY+7);
        }
      else if(Bid<atrB)
        {
         ObjectCreate("arInd"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("arInd"+x+y+3,CharToStr(stop),21,"Wingdings",Red);
         ObjectSet("arInd"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("arInd"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("arInd"+x+y+3,OBJPROP_YDISTANCE,1*scaleY+offsetY+7);
        }
      else
        {
         ObjectCreate("arInd"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("arInd"+x+y+3,CharToStr(sarca),21,"Wingdings",Yellow);
         ObjectSet("arInd"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("arInd"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("arInd"+x+y+3,OBJPROP_YDISTANCE,1*scaleY+offsetY+7);
        }
     }
//---  
   ObjectCreate("txDir"+x+y,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("txDir"+x+y,StringConcatenate("SELL:  ",DoubleToStr(NormalizeDouble(sprovit*xx,xdig),xdig),ptxt),
                 fontSize,"Bodoni MT Black",LightYellow);
   ObjectSet("txDir"+x+y,OBJPROP_CORNER,0);
   ObjectSet("txDir"+x+y,OBJPROP_XDISTANCE,7*scaleX+offsetX+15); // scaleX == 83, offsetX == 220
   ObjectSet("txDir"+x+y,OBJPROP_YDISTANCE,2*scaleY+offsetY+21);
//--- create order profit SELL and smile
   if(ors==0)
     {
      ObjectCreate("txDir"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txDir"+x+y+3,CharToStr(69),21,"Wingdings",LightYellow);
      ObjectSet("txDir"+x+y+3,OBJPROP_CORNER,0);
      ObjectSet("txDir"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+108); // scaleX == 83, offsetX == 220
      ObjectSet("txDir"+x+y+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+13);
     }
   if(ors>0)
     {
      if(sprovit>0)
        {
         ObjectCreate("txDir"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txDir"+x+y+3,CharToStr(smile),21,"Wingdings",Snow);
         ObjectSet("txDir"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("txDir"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("txDir"+x+y+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+13);
        }
      else if(sprovit<0)
        {
         ObjectCreate("txDir"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txDir"+x+y+3,CharToStr(angry),21,"Wingdings",Red);
         ObjectSet("txDir"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("txDir"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("txDir"+x+y+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+13);
        }
      else if(Ask>atrS)
        {
         ObjectCreate("txDir"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txDir"+x+y+3,CharToStr(stop),21,"Wingdings",Red);
         ObjectSet("txDir"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("txDir"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("txDir"+x+y+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+13);
        }
      else
        {
         ObjectCreate("txDir"+x+y+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txDir"+x+y+3,CharToStr(sarca),21,"Wingdings",Yellow);
         ObjectSet("txDir"+x+y+3,OBJPROP_CORNER,0);
         ObjectSet("txDir"+x+y+3,OBJPROP_XDISTANCE,7*scaleX+offsetX+110); // scaleX == 83, offsetX == 220
         ObjectSet("txDir"+x+y+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+13);
        }
     }
//--- create count light arrows
   for(x=0;x<6;x++)
     {
      if((iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,0)>iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,1))
         && (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)>0)) // if entry cci above zero
        {
         if((iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)>iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)) || 
            (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)>0 && iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)<0))
           {
            ObjectCreate("arrow"+x+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
            ObjectSetText("arrow"+x+1,CharToStr(light),22,"Wingdings",Lime); aB++;
            ObjectSet("arrow"+x+1,OBJPROP_CORNER,0);
            ObjectSet("arrow"+x+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+9); // scaleX == 83, offsetX == 220
            ObjectSet("arrow"+x+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
           }
         else
           {
            ObjectCreate("arrow"+x+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
            ObjectSetText("arrow"+x+1,CharToStr(light),22,"Wingdings",Red); aS++;
            ObjectSet("arrow"+x+1,OBJPROP_CORNER,0);
            ObjectSet("arrow"+x+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+9); // scaleX == 83, offsetX == 220
            ObjectSet("arrow"+x+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
           }
        }
      else if((iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,0)<iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,1))
         && (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)<0)) // if entry cci below zero
           {
            if((iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)<iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)) || 
               (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)<0 && iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)>0))
              {
               ObjectCreate("arrow"+x+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
               ObjectSetText("arrow"+x+1,CharToStr(light),22,"Wingdings",Red); aS++;
               ObjectSet("arrow"+x+1,OBJPROP_CORNER,0);
               ObjectSet("arrow"+x+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+9); // scaleX == 83, offsetX == 220
               ObjectSet("arrow"+x+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
              }
            else
              {
               ObjectCreate("arrow"+x+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
               ObjectSetText("arrow"+x+1,CharToStr(light),22,"Wingdings",Lime); aB++;
               ObjectSet("arrow"+x+1,OBJPROP_CORNER,0);
               ObjectSet("arrow"+x+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+9); // scaleX == 83, offsetX == 220
               ObjectSet("arrow"+x+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
              }
           }
         else
           {
            ObjectCreate("arrow"+x+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
            ObjectSetText("arrow"+x+1,CharToStr(light),23,"Wingdings",Yellow); aW++;
            ObjectSet("arrow"+x+1,OBJPROP_CORNER,0);
            ObjectSet("arrow"+x+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+9); // scaleX == 83, offsetX == 220
            ObjectSet("arrow"+x+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
           }
     }
//--- create count text direction
   for(x=0;x<6;x++)
     {
      if((iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,0)>iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,1))
         && (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)>0)) // if entry cci above zero
        {
         if((iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)>iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)) || 
            (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)>0 && iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)<0))
           {
            ObjectCreate("txDir"+x+"2",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
            ObjectSetText("txDir"+x+"2"," BUY",fontSize,"Bodoni MT Black",Aqua); dB++;
            ObjectSet("txDir"+x+"2",OBJPROP_CORNER,0);
            ObjectSet("txDir"+x+"2",OBJPROP_XDISTANCE,x*scaleX+offsetX+5); // scaleX == 83, offsetX == 220
            ObjectSet("txDir"+x+"2",OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
           }
         else
           {
            ObjectCreate("txDir"+x+"2",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
            ObjectSetText("txDir"+x+"2","SELL",fontSize,"Bodoni MT Black",Red); dS++;
            ObjectSet("txDir"+x+"2",OBJPROP_CORNER,0);
            ObjectSet("txDir"+x+"2",OBJPROP_XDISTANCE,x*scaleX+offsetX+5); // scaleX == 83, offsetX == 220
            ObjectSet("txDir"+x+"2",OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
           }
        }
      else if((iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,0)<iMA(_Symbol,TFM[x],3,0,MODE_EMA,maprc,1))
         && (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)<0)) // if entry cci below zero
           {
            if((iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)<iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)) || 
               (iCCI(_Symbol,TF[x],prCCI[x],ccprc,0)<0 && iCCI(_Symbol,TF[x],prCCI[x],ccprc,1)>0))
              {
               ObjectCreate("txDir"+x+"2",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
               ObjectSetText("txDir"+x+"2","SELL",fontSize,"Bodoni MT Black",Red); dS++;
               ObjectSet("txDir"+x+"2",OBJPROP_CORNER,0);
               ObjectSet("txDir"+x+"2",OBJPROP_XDISTANCE,x*scaleX+offsetX+5); // scaleX == 83, offsetX == 220
               ObjectSet("txDir"+x+"2",OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
              }
            else
              {
               ObjectCreate("txDir"+x+"2",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
               ObjectSetText("txDir"+x+"2"," BUY",fontSize,"Bodoni MT Black",Aqua); dB++;
               ObjectSet("txDir"+x+"2",OBJPROP_CORNER,0);
               ObjectSet("txDir"+x+"2",OBJPROP_XDISTANCE,x*scaleX+offsetX+5); // scaleX == 83, offsetX == 220
               ObjectSet("txDir"+x+"2",OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
              }
           }
         else
           {
            ObjectCreate("txDir"+x+"2",OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
            ObjectSetText("txDir"+x+"2","WAIT",fontSize,"Bodoni MT Black",Yellow); dW++;
            ObjectSet("txDir"+x+"2",OBJPROP_CORNER,0);
            ObjectSet("txDir"+x+"2",OBJPROP_XDISTANCE,x*scaleX+offsetX+5); // scaleX == 83, offsetX == 220
            ObjectSet("txDir"+x+"2",OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
           }
     }
//--- create suggest light arrows
   RefreshRates();
   if(aB>aS && aW<3)
     {
      ObjectCreate("arInd"+6+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("arInd"+6+1,CharToStr(light),22,"Wingdings",Lime);
      ObjectSet("arInd"+6+1,OBJPROP_CORNER,0);
      ObjectSet("arInd"+6+1,OBJPROP_XDISTANCE,6*scaleX+offsetX+15); // scaleX == 83, offsetX == 220
      ObjectSet("arInd"+6+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
     }
//---
   else if(aS>aB && aW<3)
     {
      ObjectCreate("arInd"+6+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("arInd"+6+1,CharToStr(light),22,"Wingdings",Red);
      ObjectSet("arInd"+6+1,OBJPROP_CORNER,0);
      ObjectSet("arInd"+6+1,OBJPROP_XDISTANCE,6*scaleX+offsetX+15); // scaleX == 83, offsetX == 220
      ObjectSet("arInd"+6+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
     }
//---
   else
     {
      ObjectCreate("arInd"+6+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("arInd"+6+1,CharToStr(light),22,"Wingdings",Yellow);
      ObjectSet("arInd"+6+1,OBJPROP_CORNER,0);
      ObjectSet("arInd"+6+1,OBJPROP_XDISTANCE,6*scaleX+offsetX+15); // scaleX == 83, offsetX == 220
      ObjectSet("arInd"+6+1,OBJPROP_YDISTANCE,1*scaleY+offsetY-1);
     }
//--- create suggest text direction
   if(dB>dS && dW<3)
     {
      ObjectCreate("txDir"+6+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txDir"+6+2," BUY",fontSize,"Bodoni MT Black",Aqua);
      ObjectSet("txDir"+6+2,OBJPROP_CORNER,0);
      ObjectSet("txDir"+6+2,OBJPROP_XDISTANCE,6*scaleX+offsetX+10); // scaleX == 83, offsetX == 220
      ObjectSet("txDir"+6+2,OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
     }
//---
   else if(dS>dB && dW<3)
     {
      ObjectCreate("txDir"+6+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txDir"+6+2,"SELL",fontSize,"Bodoni MT Black",Red);
      ObjectSet("txDir"+6+2,OBJPROP_CORNER,0);
      ObjectSet("txDir"+6+2,OBJPROP_XDISTANCE,6*scaleX+offsetX+12); // scaleX == 83, offsetX == 220
      ObjectSet("txDir"+6+2,OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
     }
//---
   else
     {
      ObjectCreate("txDir"+6+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txDir"+6+2,"WAIT",fontSize,"Bodoni MT Black",Yellow);
      ObjectSet("txDir"+6+2,OBJPROP_CORNER,0);
      ObjectSet("txDir"+6+2,OBJPROP_XDISTANCE,6*scaleX+offsetX+10); // scaleX == 83, offsetX == 220
      ObjectSet("txDir"+6+2,OBJPROP_YDISTANCE,2*scaleY+offsetY+8);
     }
//---
   RefreshRates();
//--- create count of pips range
   RefreshRates();
   for(x=0;x<6;x++)
     {
      double hilo=iHigh(_Symbol,TF[x],0)-iLow(_Symbol,TF[x],0);
      string tcent=DoubleToStr(NormalizeDouble((hilo/xr)*xx,xdig),xdig);
      if(xdig==1)
        {
         if(StringLen(tcent)<=4) {double ltx=3.5-StringLen(tcent);}
         else if(StringLen(tcent)==5) {ltx=4.2-StringLen(tcent);}
         else {ltx=4-StringLen(tcent);}
        }
      else {ltx=3-StringLen(tcent);}
      if(iClose(_Symbol,TF[x],0)>iOpen(_Symbol,TF[x],0))
        {
         ObjectCreate("txPips"+x+y+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txPips"+x+y+1,tcent,9,"Bodoni MT Black",Lime);
         ObjectSet("txPips"+x+y+1,OBJPROP_CORNER,0);
         ObjectSet("txPips"+x+y+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+10+(ltx*4.5)); // scaleX == 83, offsetX == 220
         ObjectSet("txPips"+x+y+1,OBJPROP_YDISTANCE,2*scaleY+offsetY+29);
        }
      else if(iClose(_Symbol,TF[x],0)<iOpen(_Symbol,TF[x],0))
        {
         ObjectCreate("txPips"+x+y+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txPips"+x+y+1,tcent,9,"Bodoni MT Black",LightYellow);
         ObjectSet("txPips"+x+y+1,OBJPROP_CORNER,0);
         ObjectSet("txPips"+x+y+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+10+(ltx*4.5)); // scaleX == 83, offsetX == 220
         ObjectSet("txPips"+x+y+1,OBJPROP_YDISTANCE,2*scaleY+offsetY+29);
        }
      else
        {
         ObjectCreate("txPips"+x+y+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
         ObjectSetText("txPips"+x+y+1,tcent,9,"Bodoni MT Black",Yellow);
         ObjectSet("txPips"+x+y+1,OBJPROP_CORNER,0);
         ObjectSet("txPips"+x+y+1,OBJPROP_XDISTANCE,x*scaleX+offsetX+10+(ltx*4.5)); // scaleX == 83, offsetX == 220
         ObjectSet("txPips"+x+y+1,OBJPROP_YDISTANCE,2*scaleY+offsetY+29);
        }
     }
//--- create suggest text pips range
   RefreshRates();
   double dhp=MarketInfo(_Symbol,MODE_HIGH);
   double dpc1=dhp-iClose(_Symbol,5,1);
   double dpc0=dhp-iClose(_Symbol,5,0);
//---
   for(x=0;x<5;x++)
     {
      if(iStochastic(_Symbol,TFsto[x],5,3,3,MODE_SMA,0,MODE_MAIN,0)
         >iStochastic(_Symbol,TFsto[x],5,3,3,MODE_SMA,0,MODE_SIGNAL,0))
        {stB++;}
      if(iStochastic(_Symbol,TFsto[x],5,3,3,MODE_SMA,0,MODE_MAIN,0)
         <iStochastic(_Symbol,TFsto[x],5,3,3,MODE_SMA,0,MODE_SIGNAL,0))
        {stS++;}
     }
//---
   for(x=0;x<5;x++)
     {
      if(iOsMA(_Symbol,TFosm[x],12,26,9,0,0)>iOsMA(_Symbol,TFosm[x],12,26,9,0,1))
        {osmB++;}
      if(iOsMA(_Symbol,TFosm[x],12,26,9,0,0)<iOsMA(_Symbol,TFosm[x],12,26,9,0,1))
        {osmS++;}
     }
//---
   if(dpc0<dpc1 && stB>stS && osmB>osmS)
     {
      ObjectCreate("txPips"+6+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txPips"+6+3," BUY",fontSize,"Bodoni MT Black",Lime);
      ObjectSet("txPips"+6+3,OBJPROP_CORNER,0);
      ObjectSet("txPips"+6+3,OBJPROP_XDISTANCE,6*scaleX+offsetX+10); // scaleX == 83, offsetX == 220
      ObjectSet("txPips"+6+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+29);
     }
   else if(dpc0>dpc1 && stB<stS && osmB<osmS)
     {
      ObjectCreate("txPips"+6+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txPips"+6+3,"SELL",fontSize,"Bodoni MT Black",LightYellow);
      ObjectSet("txPips"+6+3,OBJPROP_CORNER,0);
      ObjectSet("txPips"+6+3,OBJPROP_XDISTANCE,6*scaleX+offsetX+12); // scaleX == 83, offsetX == 220
      ObjectSet("txPips"+6+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("txPips"+6+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("txPips"+6+3,"WAIT",fontSize,"Bodoni MT Black",Yellow);
      ObjectSet("txPips"+6+3,OBJPROP_CORNER,0);
      ObjectSet("txPips"+6+3,OBJPROP_XDISTANCE,6*scaleX+offsetX+10); // scaleX == 83, offsetX == 220
      ObjectSet("txPips"+6+3,OBJPROP_YDISTANCE,2*scaleY+offsetY+29);
     }
//--- create __Symbols index
//--- delete indicator __Symbols index
   ObjectDelete("prIdx"+8+0);
   ObjectDelete("prIdx"+8+1);
   ObjectDelete("prIdx"+8+2);
   ObjectDelete("prIdx"+8+3);
   ObjectDelete("prIdx"+8+4);
   ObjectDelete("prIdx"+8+5);
   ObjectDelete("prIdx"+8+6);
   ObjectDelete("prIdx"+8+7);
//--- Index Symbol AUD
   RefreshRates();
//---
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx0[x],0,3)=="AUD")
           {
            if(iClose(prx0[x],TFpr[r],0)>iClose(prx0[x],TFpr[r],1))
              {auu++;}
            else {aud++;}
           }
         else if(StringSubstr(prx0[x],3,3)=="AUD")
           {
            if(iClose(prx0[x],TFpr[r],0)>iClose(prx0[x],TFpr[r],1))
              {aud++;}
            else {auu++;}
           }
        }
     }
   if(auu>=aud) {AUup=true;}
   else {AUup=false;}
//---   
   ObjectCreate("prIdx"+x+y+8+0,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+0,"AUDX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+0,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+0,OBJPROP_XDISTANCE,0*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+0,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(AUup==true)
     {
      ObjectCreate("prIdx"+8+0,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+0,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+0,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+0,OBJPROP_XDISTANCE,0*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+0,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(AUup==false)
     {
      ObjectCreate("prIdx"+8+0,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+0,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+0,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+0,OBJPROP_XDISTANCE,0*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+0,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+0,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+0,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+0,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+0,OBJPROP_XDISTANCE,0*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+0,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol CAD
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx1[x],0,3)=="CAD")
           {
            if(iClose(prx1[x],TFpr[r],0)>iClose(prx1[x],TFpr[r],1))
              {cau++;}
            else {cad++;}
           }
         else if(StringSubstr(prx1[x],3,3)=="CAD")
           {
            if(iClose(prx1[x],TFpr[r],0)>iClose(prx1[x],TFpr[r],1))
              {cad++;}
            else {cau++;}
           }
        }
     }
   if(cau>=cad) {CAup=true;}
   else {CAup=false;}
//---    
   ObjectCreate("prIdx"+x+y+8+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+1,"CADX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+1,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+1,OBJPROP_XDISTANCE,1*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+1,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(CAup==true)
     {
      ObjectCreate("prIdx"+8+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+1,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+1,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+1,OBJPROP_XDISTANCE,1*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+1,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(CAup==false)
     {
      ObjectCreate("prIdx"+8+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+1,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+1,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+1,OBJPROP_XDISTANCE,1*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+1,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+1,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+1,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+1,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+1,OBJPROP_XDISTANCE,1*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+1,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol CHF
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx2[x],0,3)=="CHF")
           {
            if(iClose(prx2[x],TFpr[r],0)>iClose(prx2[x],TFpr[r],1))
              {chu++;}
            else {chd++;}
           }
         else if(StringSubstr(prx2[x],3,3)=="CHF")
           {
            if(iClose(prx2[x],TFpr[r],0)>iClose(prx2[x],TFpr[r],1))
              {chd++;}
            else {chu++;}
           }
        }
     }
   if(chu>=chd) {CHup=true;}
   else {CHup=false;}
//---
   ObjectCreate("prIdx"+x+y+8+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+2,"CHFX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+2,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+2,OBJPROP_XDISTANCE,2*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+2,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(CHup==true)
     {
      ObjectCreate("prIdx"+8+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+2,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+2,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+2,OBJPROP_XDISTANCE,2*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+2,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(CHup==false)
     {
      ObjectCreate("prIdx"+8+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+2,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+2,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+2,OBJPROP_XDISTANCE,2*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+2,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+2,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+2,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+2,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+2,OBJPROP_XDISTANCE,2*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+2,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol EUR
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx3[x],0,3)=="EUR")
           {
            if(iClose(prx3[x],TFpr[r],0)>iClose(prx3[x],TFpr[r],1))
              {euu++;}
            else {eud++;}
           }
         else if(StringSubstr(prx3[x],3,3)=="EUR")
           {
            if(iClose(prx3[x],TFpr[r],0)>iClose(prx3[x],TFpr[r],1))
              {eud++;}
            else {euu++;}
           }
        }
     }
   if(euu>=eud) {EUup=true;}
   else {EUup=false;}
//---       
   ObjectCreate("prIdx"+x+y+8+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+3,"EURX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+3,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+3,OBJPROP_XDISTANCE,3*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+3,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(EUup==true)
     {
      ObjectCreate("prIdx"+8+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+3,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+3,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+3,OBJPROP_XDISTANCE,3*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+3,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(EUup==false)
     {
      ObjectCreate("prIdx"+8+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+3,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+3,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+3,OBJPROP_XDISTANCE,3*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+3,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+3,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+3,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+3,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+3,OBJPROP_XDISTANCE,3*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+3,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol GBP
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx4[x],0,3)=="GBP")
           {
            if(iClose(prx4[x],TFpr[r],0)>iClose(prx4[x],TFpr[r],1))
              {gbu++;}
            else {gbd++;}
           }
         else if(StringSubstr(prx4[x],3,3)=="GBP")
           {
            if(iClose(prx4[x],TFpr[r],0)>iClose(prx4[x],TFpr[r],1))
              {gbd++;}
            else {gbu++;}
           }
        }
     }
   if(gbu>=gbd) {GBup=true;}
   else {GBup=false;}
//---       
   ObjectCreate("prIdx"+x+y+8+4,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+4,"GBPX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+4,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+4,OBJPROP_XDISTANCE,4*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+4,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(GBup==true)
     {
      ObjectCreate("prIdx"+8+4,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+4,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+4,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+4,OBJPROP_XDISTANCE,4*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+4,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(GBup==false)
     {
      ObjectCreate("prIdx"+8+4,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+4,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+4,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+4,OBJPROP_XDISTANCE,4*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+4,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+4,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+4,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+4,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+4,OBJPROP_XDISTANCE,4*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+4,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol JPY
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx5[x],0,3)=="JPY")
           {
            if(iClose(prx5[x],TFpr[r],0)>iClose(prx5[x],TFpr[r],1))
              {jpu++;}
            else {jpd++;}
           }
         else if(StringSubstr(prx5[x],3,3)=="JPY")
           {
            if(iClose(prx5[x],TFpr[r],0)>iClose(prx5[x],TFpr[r],1))
              {jpd++;}
            else {jpu++;}
           }
        }
     }
   if(jpu>=jpd) {JPup=true;}
   else {JPup=false;}
//---
   ObjectCreate("prIdx"+x+y+8+5,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+5,"JPYX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+5,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+5,OBJPROP_XDISTANCE,5*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+5,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(JPup==true)
     {
      ObjectCreate("prIdx"+8+5,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+5,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+5,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+5,OBJPROP_XDISTANCE,5*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+5,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(JPup==false)
     {
      ObjectCreate("prIdx"+8+5,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+5,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+5,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+5,OBJPROP_XDISTANCE,5*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+5,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+5,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+5,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+5,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+5,OBJPROP_XDISTANCE,5*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+5,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol NZD
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx6[x],0,3)=="NZD")
           {
            if(iClose(prx6[x],TFpr[r],0)>iClose(prx6[x],TFpr[r],1))
              {nzu++;}
            else {nzd++;}
           }
         else if(StringSubstr(prx6[x],3,3)=="NZD")
           {
            if(iClose(prx6[x],TFpr[r],0)>iClose(prx6[x],TFpr[r],1))
              {nzd++;}
            else {nzu++;}
           }
        }
     }
   if(nzu>=nzd) {NZup=true;}
   else {NZup=false;}
//---     
   ObjectCreate("prIdx"+x+y+8+6,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+6,"NZDX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+6,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+6,OBJPROP_XDISTANCE,6*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+6,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(NZup==true)
     {
      ObjectCreate("prIdx"+8+6,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+6,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+6,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+6,OBJPROP_XDISTANCE,6*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+6,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(NZup==false)
     {
      ObjectCreate("prIdx"+8+6,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+6,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+6,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+6,OBJPROP_XDISTANCE,6*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+6,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+6,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+6,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+6,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+6,OBJPROP_XDISTANCE,6*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+6,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- Index Symbol USD
   for(x=0;x<7;x++)
     {
      for(r=0;r<4;r++)
        {
         if(StringSubstr(prx7[x],0,3)=="USD")
           {
            if(iClose(prx7[x],TFpr[r],0)>iClose(prx7[x],TFpr[r],1))
              {usu++;}
            else {usd++;}
           }
         else if(StringSubstr(prx7[x],3,3)=="USD")
           {
            if(iClose(prx7[x],TFpr[r],0)>iClose(prx7[x],TFpr[r],1))
              {usd++;}
            else {usu++;}
           }
        }
     }
   if(usu>=usd) {USup=true;}
   else {USup=false;}
//---       
   ObjectCreate("prIdx"+x+y+8+7,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
   ObjectSetText("prIdx"+x+y+8+7,"USDX",8,"Bodoni MT Black",Snow);
   ObjectSet("prIdx"+x+y+8+7,OBJPROP_CORNER,0);
   ObjectSet("prIdx"+x+y+8+7,OBJPROP_XDISTANCE,7*scaleXp+offsetX+3); // scaleX == 83, offsetX == 220
   ObjectSet("prIdx"+x+y+8+7,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
//---
   if(USup==true)
     {
      ObjectCreate("prIdx"+8+7,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+7,CharToStr(217),12,"Wingdings",Lime);
      ObjectSet("prIdx"+8+7,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+7,OBJPROP_XDISTANCE,7*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+7,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else if(USup==false)
     {
      ObjectCreate("prIdx"+8+7,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+7,CharToStr(218),12,"Wingdings",Red);
      ObjectSet("prIdx"+8+7,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+7,OBJPROP_XDISTANCE,7*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+7,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
   else
     {
      ObjectCreate("prIdx"+8+7,OBJ_LABEL,WindowFind("PairsIndex ("+_Symbol+","+strTF(_Period)+")"),0,0);
      ObjectSetText("prIdx"+8+7,CharToStr(164),12,"Wingdings",Yellow);
      ObjectSet("prIdx"+8+7,OBJPROP_CORNER,0);
      ObjectSet("prIdx"+8+7,OBJPROP_XDISTANCE,7*scaleXp+offsetX+38); // scaleX == 83, offsetX == 220
      ObjectSet("prIdx"+8+7,OBJPROP_YDISTANCE,3*scaleY+offsetY+29);
     }
//--- end __Symbols index     
   OnTimer();
   ChartRedraw(0);
   Sleep(500);
   RefreshRates();
//---
   return(0);
//---
  } //---end start()
//+------------------------------------------------------------------+
void OnTimer()
  {
//---
   MqlRates rates[];
   ArraySetAsSeries(rates,true);
   rts=CopyRates(_Symbol,0,0,100,rates);
   if(rts==0) return;
  }
//+------------------------------------------------------------------+

//+------------------------------------------------------------------+
string strTF(int period)
  {
   switch(period)
     {
      //---
      case PERIOD_M1: return("M1");
      case PERIOD_M5: return("M5");
      case PERIOD_M15: return("M15");
      case PERIOD_M30: return("M30");
      case PERIOD_H1: return("H1");
      case PERIOD_H4: return("H4");
      case PERIOD_D1: return("D1");
      case PERIOD_W1: return("W1");
      case PERIOD_MN1: return("MN");
     }
   return(period);
  }
//+------------------------------------------------------------------+

Similar scripts

HighAndLow_TF

fmoneea

Waddah_Attar_HTML

This script parses historical price action and volume metrics to generate a structured HTML report featuring calculated price ranges and percentage changes.

b-clock

All_TF_v03

All_TF_v02

#MTF PCCI-as a filter

This indicator calculates the residual difference between actual market prices and a weighted digital signal response to isolate underlying price noise.

_2523MTF PCCI-as a filter

This indicator calculates the difference between current market price and a weighted predictive response derived from a fixed coefficient array to isolate structural noise.

BEEP_v1_0

Hi-low mod

#MTF SR_v1

Comments