//+------------------------------------------------------------------+
//|                                             Bollinger Squeeze v9 |
//|                                      Original code by Nick Bilak |
//|                                         Modifications by Akuma99 |
//|                                                                  |
//|            For help on this indicator, tutorials and information | 
//|            visit http://www.beginnertrader.com                   |
//|                                                                  |
//|   Trigger types: 1-stochastic, 2-cci, 3-rsi, 4-macd, 5-momentum  |
//|                                                                  |
//|                                        Copyright © 2006  Akuma99 |
//|                                    http://www.beginnertrader.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Akuma99"
#property link      "http://www.beginnertrader.com "
//----
#property indicator_separate_window
#property indicator_buffers 6
//----
#property indicator_color1 Pink
#property indicator_color2 DeepSkyBlue
#property indicator_color3 SkyBlue
#property indicator_color4 SkyBlue
#property indicator_color5 Red
#property indicator_color6 LimeGreen
//----
int       bolPrd=20;
double    bolDev=2.0;
int       keltPrd=20;
double    keltFactor=1.5;
//----
extern int       triggerType=4;
extern int       stochPeriod_trigger1=14;
extern int       cciPeriod_trigger2=50;
extern int       rsiPeriod_trigger3=10;
extern int       macd_fastEMA_trigger4=5;
extern int       macd_slowEMA_trigger4=34;
extern int       macd_macdEMA_trigger4=5;
extern int       momentumPeriod_trigger5=14;
//----
int       cciPeriod=50;
double upB[];
double loB[];
double upB2[];
double loB2[];
double mm[];
double histoLine[];
double arrowBuffer[];
int i,j,slippage=3;
double breakpoint=0.0;
double ema=0.0;
int peakf=0;
int peaks=0;
int valleyf=0;
int valleys=0, limit=0;
double ccis[61],ccif[61];
double delta=0;
double ugol=0;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int init() 
  {
   IndicatorBuffers(6);
   SetIndexStyle(0,DRAW_HISTOGRAM,STYLE_SOLID,1,indicator_color1);
   SetIndexBuffer(0,upB);
   SetIndexEmptyValue(0,EMPTY_VALUE);
   //
   SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,1,indicator_color2);
   SetIndexBuffer(1,loB);
   SetIndexEmptyValue(1,EMPTY_VALUE);
   //
   SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,3,indicator_color3);
   SetIndexBuffer(2,upB2);
   SetIndexEmptyValue(2,EMPTY_VALUE);
   //
   SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_SOLID,3,indicator_color4);
   SetIndexBuffer(3,loB2);
   SetIndexEmptyValue(3,EMPTY_VALUE);
   //
   SetIndexStyle(5,DRAW_LINE,0,1,indicator_color5);
   SetIndexBuffer(4,mm);
   //
   SetIndexStyle(5,DRAW_LINE,0,1,indicator_color6);
   SetIndexBuffer(5,histoLine);
   //
   SetIndexStyle(6,DRAW_ARROW);
   SetIndexArrow(6,159);
   SetIndexBuffer(6,arrowBuffer);
//----
   return(0);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int deinit() 
  {
   SetLevelValue(1,NULL);
   SetLevelValue(2,NULL);
   SetLevelValue(3,NULL);
   SetLevelValue(4,NULL);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int start() 
  {
   int counted_bars=IndicatorCounted();
   int shift,limit;
   double diff,d,std,bbs;
//----
   if (counted_bars<0) return(-1);
   if (counted_bars>0) counted_bars--;
   limit=Bars-31;
   if(counted_bars>=31) limit=Bars-counted_bars-1;
     for(shift=limit;shift>=0;shift--)   
     {
        switch(triggerType) 
        {
            case 1:
               d=iStochastic(NULL,0,stochPeriod_trigger1,3,3,MODE_SMA,0,MODE_MAIN,shift)-50;
               SetLevelValue(1,30);
               SetLevelValue(2,-30);
               IndicatorShortName("Bollinger Squeeze with Stochastic ("+stochPeriod_trigger1+",3,3)");
               break;
            case 2:
               d=iCCI(NULL,0,cciPeriod_trigger2,PRICE_CLOSE,shift);
               SetLevelValue(1,-200);
               SetLevelValue(2,-100);
               SetLevelValue(3,100);
               SetLevelValue(4,200);
               IndicatorShortName("Bollinger Squeeze with CCI ("+cciPeriod_trigger2+",CLOSE)");
               break;
            case 3:
               d=iRSI(NULL,0,rsiPeriod_trigger3,PRICE_CLOSE,shift)-50;
               SetLevelValue(1,20);
               SetLevelValue(2,-20);
               IndicatorShortName("Bollinger Squeeze with RSI ("+rsiPeriod_trigger3+",CLOSE)");
               break;
            case 4:
               //d=iMACD(NULL,0,5,13,1,PRICE_CLOSE,MODE_MAIN,shift);
               d=iMACD(NULL,0,macd_fastEMA_trigger4,macd_slowEMA_trigger4,macd_macdEMA_trigger4,PRICE_MEDIAN,MODE_MAIN,shift);
               IndicatorShortName("Bollinger Squeeze with MACD");
               mm[shift]=iMACD(NULL,0,macd_fastEMA_trigger4,macd_slowEMA_trigger4,macd_macdEMA_trigger4,PRICE_MEDIAN,MODE_SIGNAL,shift);
               break;
            case 5:
               d=iMomentum(NULL,0,momentumPeriod_trigger5,PRICE_CLOSE,shift)-100;
               SetLevelValue(1,1);
               SetLevelValue(2,-1);
               IndicatorShortName("Bollinger Squeeze with Momentum ("+momentumPeriod_trigger5+",CLOSE)");
               break;
           }
         histoLine[shift]=d;
           if(d>0) 
           {
            upB[shift]=d;
            }
             else if (d<0)
            {
               loB[shift]=d;
              }
         diff=iATR(NULL,0,keltPrd,shift)*keltFactor;
         std=iStdDev(NULL,0,bolPrd,MODE_SMA,0,PRICE_CLOSE,shift);
         bbs=bolDev * std/diff;
           if(bbs<1) 
           {
            arrowBuffer[shift]=High[shift]+15*Point;
              if (d > 0) 
              {
               upB2[shift]=d;
               upB[shift]=0;
               loB[shift]=0;
               loB2[shift]=0;
               }
                else 
               {
               loB2[shift]=d;
               loB[shift]=0;
               upB[shift]=0;
               upB2[shift]=0;
              }
            }
             else 
            {
              if (d > 0) 
              {
               upB[shift]=d;
               upB2[shift]=0;
               loB[shift]=0;
               loB2[shift]=0;
               }
                else 
               {
               loB[shift]=d;
               loB2[shift]=0;
               upB[shift]=0;
               upB2[shift]=0;
              }
           }
        }
//----
            return(0);
           }
//+------------------------------------------------------------------+