CCI trading for Amibroker (AFL)

SetChartBkColor(ParamColor("backround color ",colorBlack));

_SECTION_BEGIN("CCI NEW");
periods = Param( "Periods", 20, 2, 200, 1 );
em = Param("EMA Of CCI",1,1,20,1);
p = EMA(CCI(periods),em);
Colore =IIf( p > 0 AND p  >= Ref(p ,-1),colorBrightGreen ,IIf( p > 0 AND p  < Ref(p ,-1),colorDarkGreen, IIf(p <0 AND p  <= Ref(p ,-1), colorRed,colorLightOrange)));
Plot( p , _DEFAULT_NAME(), Colore, ParamStyle("Style")  );
_SECTION_END();

_SECTION_BEGIN("CCI divergence");
//================cci divergence
ST33= CCI(30);
bars=50;
TR1= LLVBars(ST33,5);
COND1=TR1> 0 AND Ref(TR1,-1)==0 AND Ref(ST33,-1)<0;
TR2= IIf(COND1,Ref(ST33,-1),0);
M1= ValueWhen(COND1,ST33);
P1= ValueWhen(COND1,LLV(L,3));
DM1=M1- Ref(M1,-1);DP1=P1-Ref(P1,-1);
DT= Ref(BarsSince(COND1),-1);
POSDIV2=DM1> 0 AND DP1<0 AND DT<BARS; 
TR11= HHVBars(ST33,5);
COND11=TR11> 0 AND Ref(TR11,-1)==0 AND Ref(ST33,-1)>0;
TR21= IIf(COND11,Ref(ST33,-1),0);
M11= ValueWhen(COND11,ST33);
P11= ValueWhen(COND11,HHV(H,3));
DM11=M11- Ref(M11,-1);DP11=P11-Ref(P11,-1);
DT1= Ref(BarsSince(COND11),-1);
NEGDIV2=DM11< 0 AND DP11>0 AND DT1<BARS;
PlotShapes(shapeSmallCircle*POSDIV2,colorBlue);
PlotShapes(shapeSmallCircle*NEGDIV2,colorOrange); 
_SECTION_END();

_SECTION_BEGIN("CCI ribbons");  
periods = Param( "Periods", 14, 2, 200, 1 );
em = Param("EMA Of CCI",5,1,20,1);
p = EMA(CCI(periods),em);
Colore =IIf( p > 0 AND p  >= 100,colorBrightGreen ,IIf( p > 0 AND p  < 50,colorGreen,IIf(p <0 AND p  > -50, colorPink,IIf( p > 0 AND p  < 100,colorDarkGreen, IIf(p <0 AND p  <= -100, colorRed,colorDarkRed)))));
Plot(6, " ", Colore, styleOwnScale|styleArea|styleNoLabel, -0.5,200);
_SECTION_END();

Plot(200,"",colorBlue,styleLine);
Plot(-200,"",colorBlue,styleLine);
Plot(0,"",colorSkyblue,styleLine);
PlotGrid(100, colorWhite);
PlotGrid(-100, colorWhite);
PlotGrid(-50,colorBrightGreen); 
PlotGrid(50,colorRed);