OzFx Signals v1.7_v1

//+------------------------------------------------------------------+
//|                                                 OzFX Signals.mq4 |
//|                                           Copyright © 2008, Daud |
//|                                           http://www.ozfx.com.au |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, Daud"
#property link      "http://www.ozfx.com.au/"
/*
   == Updates ==   
   03/03/08:: by lac_raz. Separate indicator window and signal maximum 20 pairs
   03/03/08:: v1.1 Modified by ydaudw. Add more signal maximum 24 pairs. Integrate with main chart.
   03/04/08:: v1.2 Modified by ydaudw. Add more parameter for filtering Original Method and when 
              signal was generate.
   03/07/08:: v1.3 Modified by ydaudw. Some update & bug fixed.
   03/08/08:: v1.4 Modified by ydaudw. Give options to customize period and fix some bugs.
   03/17/08:: v1.5 Modified by ydaudw. Show when the next bar emerge and fix AES duplication signal.
   03/24/08:: v1.6 Modified by ydaudw. Add Squeeze-More signal.
   03/25/08:: v1.7 Modified by ydaudw. Give options to customize period, filter and fix some bugs.
*/
#property indicator_chart_window
//----
extern string PairsList="EURUSD,EURGBP,EURCHF,USDJPY,AUDUSD,EURJPY,GPBUSD,USDCAD,USDCHF,NZDUSD,CHFJPY,CADJPY,EURAUD,EURCAD,GBPCHF,AUDJPY,AUDNZD";//- This is where you add the currency pairs you want 
extern string SymbolSuffix="";//- If your broker names the currency pairs with a suffix for a mini account (like an "m", for example), enter the suffix here
extern bool ShowTimeTillNextBar=True;
extern bool ShowAESSignal=True;
extern bool Show4HoursSqueezeMore=True;
extern bool SMAFilterOriginal=False;//- Filter Original Method with SMA
extern bool SMAFilterAES=False;//- Filter AES Method with SMA
extern int SMAFilterPeriod=200;
extern int StochKPeriod=5;
extern int StochDPeriod=3;
extern int StochSlowing=3;
extern int ATRPeriod=5;
extern int OriginalAndAESTF=1440;//- Original & AES Signal Timeframe: 1, 15, 30, 60, 240 - Default is Daily (D1)
extern int SqueezeMoreTF=240;//- Squeeze-More Timeframe: 1, 15, 30, 60, 240 - Default is H4 
//----
string Pair[24]; //Pairs array
int SymNo;
int k;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int init()
  {
   string short_name="OZFXPAIRS";
   IndicatorShortName(short_name);
   SetIndexLabel(0,short_name);
//----
   int i,j,k;
   string Cur;
   for(i=0, j=0, k=1; i<24 && k>0;)
     {
      k=StringFind(PairsList,",",j);
      if (k==0) Cur=StringSubstr(PairsList,j,0);
      else Cur=StringSubstr(PairsList,j,k-j);
//----
      Pair[i]=Cur;
      i++;
      j=StringFind(PairsList,",",j)+1;
      if (j==0) break;
     }
   SymNo=i;
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int start() 
  {
   string aesPairs[24];
   string ozfxRegPairs[24];
   string sqzmorePairs[24];
   int i,k,regindex,aesindex,sqzindex;
//----
   for(i=0,regindex=0,aesindex=0,sqzindex=0;i<SymNo;i++)
     {
      string currPair=Pair[i]+SymbolSuffix;
/*------------------*/
/*  Variable Begin  */
/*------------------*/
      double AC0=iAC(currPair,OriginalAndAESTF,0);
      double AC1=iAC(currPair,OriginalAndAESTF,1);
      double AO0=iAO(currPair,OriginalAndAESTF,0);
      double AO1=iAO(currPair,OriginalAndAESTF,1);
      string ATR=DoubleToStr(iATR(currPair,OriginalAndAESTF,ATRPeriod,0),5);
      double STM=iStochastic(currPair,OriginalAndAESTF,StochKPeriod,StochDPeriod,StochSlowing,MODE_SMA,0,MODE_MAIN,0);
      double STS=iStochastic(currPair,OriginalAndAESTF,StochKPeriod,StochDPeriod,StochSlowing,MODE_SMA,0,MODE_SIGNAL,0);
      bool AboveMA=iClose(currPair,OriginalAndAESTF,0) > iMA(currPair,OriginalAndAESTF,SMAFilterPeriod,0,MODE_SMA,PRICE_CLOSE,0);
      bool BelowMA=iClose(currPair,OriginalAndAESTF,0) < iMA(currPair,OriginalAndAESTF,SMAFilterPeriod,0,MODE_SMA,PRICE_CLOSE,0);
      double AC04=iAC(currPair,SqueezeMoreTF,0);
      double AC14=iAC(currPair,SqueezeMoreTF,1);
      double AO04=iAO(currPair,SqueezeMoreTF,0);
      double AO14=iAO(currPair,SqueezeMoreTF,1);
      double STM4=iStochastic(currPair,SqueezeMoreTF,5,3,4,MODE_SMA,0,MODE_MAIN,0);
      double STS4=iStochastic(currPair,SqueezeMoreTF,5,3,4,MODE_SMA,0,MODE_SIGNAL,0);
      string ATR4=DoubleToStr(iATR(currPair,SqueezeMoreTF,ATRPeriod,0),5);
/*---------------------*/
/*  OZFX REGULAR CODE  */
/*---------------------*/
      if (SMAFilterOriginal)
        {
         if (AC0 > 0 && AC1 < 0 && AC0 > AC1 && STM > 50 && AboveMA)
           {
            ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
            regindex++;
           }
         if (AC0 < 0 && AC1 > 0 && AC0 < AC1 && STM < 50 && BelowMA)
           {
            ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short" ;
            regindex++;
           }
         } 
           else 
           {
               if (AC0 > 0 && AC1 < 0 && AC0 > AC1 && STM > 50)
           {
            ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
            regindex++;
           }
         if (AC0 < 0 && AC1 > 0 && AC0 < AC1 && STM < 50)
           {
            ozfxRegPairs[regindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short" ;
            regindex++;
           }
        }
/*-----------------*/
/*  OZFX AES CODE  */
/*-----------------*/
      //if ((AC0 > AC1 && AboveMA && STM > STS) || (AC0 > 0 && AO0 > AO1 && AC0 > AC1 && AboveMA && STM > STS))
      if (SMAFilterAES)
        {
         if (AC0 > AC1 && AboveMA && STM > STS && AO0 > AO1)
           {
            aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
            aesindex++;
           }
         if (AC0 < AC1 && BelowMA && STM < STS && AO0 < AO1)
           {
            aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short";
            aesindex++;
           }
         } 
          else 
         {
         if (AC0 > AC1 && STM > STS && AO0 > AO1)
           {
            aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Long";
            aesindex++;
           }
         if (AC0 < AC1 && STM < STS && AO0 < AO1)
           {
            aesPairs[aesindex]=Pair[i] + " (ATR - " + ATR + ")" + " - Short";
            aesindex++;
           }
        }
/*---------------------*/
/*  OZFX SQUEEZE MORE  */
/*---------------------*/
      if (AC04 > AC14 && AO04 > AO14 && STM4 > STS4 && STM4 > 20 && STM4 < 80)
        {
         sqzmorePairs[sqzindex]=Pair[i] + " (ATR - " + ATR4 + ")" + " - Long";
         sqzindex++;
        }
      if (AC04 < AC14 && AO04 < AO14 && STM4 < STS4 && STM4 < 80 && STM4 > 20)
        {
         sqzmorePairs[sqzindex]=Pair[i] + " (ATR - " + ATR4 + ")" + " - Short";
         sqzindex++;
        }
     }
   ObjectsDeleteAll(0,OBJ_LABEL);
   createTitle();
   if (ShowTimeTillNextBar) BarEnd();
//----
   int count=regindex; //ArraySize(ozfxRegPairs);      
   for(k=0;k<count;k++)
     {
      ObjectCreate("OZFXREG"+k, OBJ_LABEL, 0, 0, 0);
      ObjectSetText("OZFXREG"+k,ozfxRegPairs[k]  ,8, "Arial", Black);
      ObjectSet("OZFXREG"+k, OBJPROP_CORNER, 0);
      ObjectSet("OZFXREG"+k, OBJPROP_XDISTANCE, 10);
      ObjectSet("OZFXREG"+k, OBJPROP_YDISTANCE, 42+k*15);
     }
   if (ShowAESSignal)
     {
      count=aesindex; //ArraySize(aesPairs);
      for(k=0;k<count;k++)
        {
         ObjectCreate("OZFXAES"+k, OBJ_LABEL, 0, 0, 0);
         ObjectSetText("OZFXAES"+k, aesPairs[k] ,8, "Arial", Black);
         ObjectSet("OZFXAES"+k, OBJPROP_CORNER, 0);
         ObjectSet("OZFXAES"+k, OBJPROP_XDISTANCE, 180);
         ObjectSet("OZFXAES"+k, OBJPROP_YDISTANCE, 42+k*15);
        }
     }
   if (Show4HoursSqueezeMore)
     {
      count=sqzindex; //ArraySize(sqzmorePairs);
      for(k=0;k<count;k++)
        {
         ObjectCreate("OZFXSM"+k, OBJ_LABEL, 0, 0, 0);
         ObjectSetText("OZFXSM"+k,sqzmorePairs[k] ,8, "Arial", Black);
         ObjectSet("OZFXSM"+k, OBJPROP_CORNER, 0);
         ObjectSet("OZFXSM"+k, OBJPROP_XDISTANCE, 350);
         ObjectSet("OZFXSM"+k, OBJPROP_YDISTANCE, 42+k*15);
        }
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void createTitle()
  {
   ObjectCreate("OZFXREG", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("OZFXREG","Original Ozfx signal ("+TF(OriginalAndAESTF)+")",9, "Arial Bold", DodgerBlue);
   ObjectSet("OZFXREG", OBJPROP_CORNER, 0);
   ObjectSet("OZFXREG", OBJPROP_XDISTANCE, 10);
   ObjectSet("OZFXREG", OBJPROP_YDISTANCE, 25);
   if (ShowAESSignal)
     {
      ObjectCreate("OZFXAES", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("OZFXAES","AES Signal ("+TF(OriginalAndAESTF)+")" ,9, "Arial Bold", DodgerBlue);
      ObjectSet("OZFXAES", OBJPROP_CORNER, 0);
      ObjectSet("OZFXAES", OBJPROP_XDISTANCE, 180);
      ObjectSet("OZFXAES", OBJPROP_YDISTANCE, 25);
     }
   if (Show4HoursSqueezeMore)
     {
      ObjectCreate("OZFXSM", OBJ_LABEL, 0, 0, 0);
      ObjectSetText("OZFXSM","Squeeze-More Signal ("+TF(SqueezeMoreTF)+")" ,9, "Arial Bold", DodgerBlue);
      ObjectSet("OZFXSM", OBJPROP_CORNER, 0);
      ObjectSet("OZFXSM", OBJPROP_XDISTANCE, 350);
      ObjectSet("OZFXSM", OBJPROP_YDISTANCE, 25);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int deinit()
  {
   ObjectsDeleteAll(0,OBJ_LABEL);
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void BarEnd()
  {
   double i;
   int m,s,k;
   m=Time[0]+Period()*60-CurTime();
   i=m/60.0;
   s=m%60;
   m=(m-m%60)/60;
//----
   ObjectCreate("TIME", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("TIME",m + " minutes " + s + " seconds left to bar end",8,"Arial Bold",Lime);
   ObjectSet("TIME", OBJPROP_CORNER, 0);
   ObjectSet("TIME", OBJPROP_XDISTANCE, 10);
   ObjectSet("TIME", OBJPROP_YDISTANCE, 12);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
string TF(int iTF)
  {
   if (iTF==1) return("M1");
   else if (iTF==15) return("M15");
      else if (iTF==30) return("M30");
         else if (iTF==60) return("H1");
            else if (iTF==240) return("H4");
               else if (iTF==1440) return("D1");
                  else if (iTF==10080) return("W1");
  }
//+------------------------------------------------------------------+