//+------------------------------------------------------------------+
//|                                              Real Woodie CCI.mq4 |
//|                Based on the code of Jason Robinson (jnrtrading). |
//|                                                                  |
//| After read the Woodie introductory document I started a search   |
//| for the right coloured CCI.                                      |
//| I can´t find anyone in accomplish with the explanation of Woodie |
//| So, I take the code from another CCI, and I added                |
//| the center LSMA line according to the official explanation.      |
//| Everything you see is an exact copy like it´s explained in the   |
//| document new_woodie_do1. Specially the colors.                   |
//| If you have some doubts can obtain a copy                        |
//| from http://woodiescciclub.com/                                  |
//|                                                                  |
//| Linuxser 2007                                                    |
//| for any doubts or suggestions contact me on Forex-TSD forum      |
//|
//+------------------------------------------------------------------+
#property copyright "Under The GNU General Public License"
#property link      "www.gnu.org"


#property indicator_separate_window
#property indicator_buffers    8
#property indicator_color1     clrOlive   
#property indicator_color2     clrChocolate  
#property indicator_color3     clrGray
#property indicator_color4     clrYellow
#property indicator_color5     clrBlack 
#property indicator_color6     clrCadetBlue  
#property indicator_color7     clrLime 
#property indicator_color8     clrRed  
#property indicator_level1     300
#property indicator_level2     200
#property indicator_level3     100
#property indicator_level4     -100
#property indicator_level5     -200
#property indicator_level6     -300
#property indicator_level7     0
#property indicator_width1     2
#property indicator_width2     2
#property indicator_width3     2
#property indicator_width4     10
#property indicator_width5     1
#property indicator_width6     1
#property indicator_width7     2
#property indicator_width8     2
#property indicator_levelcolor clrDimGray
#property indicator_levelstyle STYLE_DOT
#property indicator_levelwidth 1


//---- input parameters
extern int     TrendCCI_Period     = 63;
extern int     EntryCCI_Period     = 5;
extern int     LSMAPeriod          = 25;     
extern int     EMAPeriod           = 60; 
extern int     Trend_period        = 0; 
input  int     yellowBarModifier   = 2;
extern string  text1               = "-----------------------";
extern string  text2               = "Mode 1 Shows LSMA hide EMA";
extern string  text3               = "Mode 2 Shows EMA hide LSMA";
extern int     MODE                = 2;
extern string  text4               = "-----------------------";
extern bool    ZeroLineCross_Alert = true;
extern bool    AlertOnlySound      = false;
extern string  Sound               = "alert2.wav";
extern bool    SendMailPossible    = false;
extern int     CountBars           = 500;

double TrendCCI[],EntryCCI[],CCITrendUp[],CCITrendDown[],CCINoTrend[],CCITimeBar[],ZeroLine[],LSMABuffer1[],LSMABuffer2[];
int FromZero   = 0;     
double LineHighEMA[],LineLowEMA[];

int trendUp, trendDown;

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()  {
//---- indicators
   SetIndexBuffer(0, CCITrendUp);   SetIndexStyle(0, DRAW_HISTOGRAM); SetIndexLabel(0, NULL);
   SetIndexBuffer(1, CCITrendDown); SetIndexStyle(1, DRAW_HISTOGRAM); SetIndexLabel(1, NULL);
   SetIndexBuffer(2, CCINoTrend);   SetIndexStyle(2, DRAW_HISTOGRAM); SetIndexLabel(2, NULL);
   SetIndexBuffer(3, CCITimeBar);   SetIndexStyle(3, DRAW_HISTOGRAM); SetIndexLabel(3, NULL);
   SetIndexBuffer(4, TrendCCI);     SetIndexStyle(4, DRAW_LINE);      SetIndexLabel(4, "TrendCCI");
   SetIndexBuffer(5, EntryCCI);     SetIndexStyle(5, DRAW_LINE);      SetIndexLabel(5, "EntryCCI");
   SetIndexBuffer(6, LSMABuffer2);  SetIndexStyle(6, DRAW_LINE);      SetIndexLabel(6, NULL);
   SetIndexBuffer(7, LSMABuffer1);  SetIndexStyle(7, DRAW_LINE);      SetIndexLabel(7, NULL);
return(0);
}
int deinit() {  return(0);  }

//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+

int start() 
{
   int i,counted_bars=IndicatorCounted();
      if(counted_bars<0) return(-1);
      if(counted_bars>0) counted_bars--;
           int limit=MathMin(Bars-counted_bars,Bars-1);
   
      SetIndexDrawBegin(0,Bars-CountBars);
      SetIndexDrawBegin(1,Bars-CountBars);
      SetIndexDrawBegin(2,Bars-CountBars);
      SetIndexDrawBegin(3,Bars-CountBars);
      SetIndexDrawBegin(4,Bars-CountBars);
      SetIndexDrawBegin(5,Bars-CountBars);
      SetIndexDrawBegin(6,Bars-CountBars);
      SetIndexDrawBegin(7,Bars-CountBars);
   

      int trendCCI = TrendCCI_Period, entryCCI = EntryCCI_Period;
   if (MODE==1) 
   { 
      IndicatorShortName("[CCI: " + trendCCI + "] [TCCI: " + entryCCI + "] [per LSMA: " + LSMAPeriod + "] "); 
   } else 
     if (MODE==2)
     {
        IndicatorShortName("[CCI: " + trendCCI + "] [TCCI: " + entryCCI + "] [per EMA: " + EMAPeriod + "] ");  
     } else { IndicatorShortName("[CCI: " + trendCCI + "] [TCCI: " + entryCCI + "] [per LSMA: " + LSMAPeriod + "] [per EMA: " + EMAPeriod + "] [Trend: " + Trend_period + "] "); }
   
   for(i = limit; i >= 0; i--) 
   {
      CCINoTrend[i]   = 0;
      CCITrendDown[i] = 0;
      CCITimeBar[i]   = 0;
      CCITrendUp[i]   = 0;
      ZeroLine[i]     = 0;
      TrendCCI[i] = iCCI(NULL,0,trendCCI,PRICE_TYPICAL, i);
      EntryCCI[i] = iCCI(NULL,0,entryCCI,PRICE_TYPICAL, i);

      if(TrendCCI[i]>0 && TrendCCI[i+1]<0) 
      {
         if (trendDown>Trend_period) trendUp = 0;
      }
      if (TrendCCI[i]>0) 
      {
         if (trendUp<Trend_period)
         {
            CCINoTrend[i] = TrendCCI[i];
            trendUp++;
         }
         if (trendUp ==  Trend_period) 
         {
            CCITimeBar[i] = TrendCCI[i]*yellowBarModifier;
            trendUp++;
         }
         if (trendUp >  Trend_period) 
         {
            CCITrendUp[i] = TrendCCI[i];
         }
      }
      if(TrendCCI[i]<0 && TrendCCI[i+1]>0) 
      {
         if (trendUp>Trend_period) trendDown = 0;
      }
      if (TrendCCI[i]<0) 
      {
         
         if (trendDown<Trend_period)
         {
            CCINoTrend[i] = TrendCCI[i];
            trendDown++;
         }
         if (trendDown ==  Trend_period) 
         {
            CCITimeBar[i] = TrendCCI[i]*yellowBarModifier;
            trendDown++;
         }
         if (trendDown >  Trend_period) 
         {
            CCITrendDown[i] = TrendCCI[i];
         }
      }
      LSMABuffer1[i] = 0;
      LSMABuffer2[i] = 0;
      if (MODE==1)
      {
        double Lsma = 3*iMA(NULL,0,LSMAPeriod,0,MODE_SMA,PRICE_CLOSE,i)-2.0*iMA(NULL,0,LSMAPeriod,0,MODE_LWMA,PRICE_CLOSE,i);
        if (Lsma>Close[i]) LSMABuffer2[i] = EMPTY_VALUE;
        if (Lsma<Close[i]) LSMABuffer1[i] = EMPTY_VALUE;
      }
      if (MODE==2)
      {
        double Ema = iMA(NULL,0,EMAPeriod,0,MODE_EMA,PRICE_CLOSE,i);
        if (Close[i]>Ema) LSMABuffer1[i] = EMPTY_VALUE;
        if (Close[i]<Ema) LSMABuffer2[i] = EMPTY_VALUE;
      }
   }
   static datetime prevtime = 0;
   if (ZeroLineCross_Alert == true) {
      if (prevtime == Time[0]) 
      {
         return(0);
      }
      else 
      {
         if(EntryCCI[0] < 0) 
         {
            if((TrendCCI[0] < 0) && (TrendCCI[1] >= 0)) 
            {
               if (AlertOnlySound) {PlaySound(Sound);} else 
               {
               Alert(Symbol(), " M", Period(), " TrendCCI(",TrendCCI_Period,") & EntryCCI(",EntryCCI_Period,") Have both crossed below zero"); PlaySound(Sound);
               if (SendMailPossible) SendMail(Symbol()+ " M"+ Period()+ " TrendCCI("+TrendCCI_Period+") and EntryCCI("+EntryCCI_Period+") crossed below zero", "");               
               }                          
            }
         }
         else if(EntryCCI[0] > 0) 
         {
            if((TrendCCI[0] > 0) && (TrendCCI[1] <= 0)) 
            {
               if (AlertOnlySound) {PlaySound(Sound);} else 
               {
               Alert(Symbol(), " M", Period(), " TrendCCI(",TrendCCI_Period,") & EntryCCI(",EntryCCI_Period,") Have both crossed above zero"); PlaySound(Sound);
               if (SendMailPossible) SendMail(Symbol()+ " M"+ Period()+ " TrendCCI("+TrendCCI_Period+") and EntryCCI("+EntryCCI_Period+") crossed above zero", "");               
               } 
            }
         }
         prevtime = Time[0];
      }
  }
return(0);
}
//+------------------------------------------------------------------+