Perfect Candlestick Pattern Detector - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

Plot
(C,"",colorLightGrey,styleCandle);
r=CdDoji( threshold = 0.05 );
s=CdHammer( rangefactor= 1.1 );
t=CdBearishEngulfing( bodyfactor = 0.4, rangefactor = 0.5);
u=CdBullishEngulfing( bodyfactor = 0.4, rangefactor = 0.5);
PlotShapes
(r*shapeSmallCircle,colorRed,Layer=0,yposition=H,Offset=12); 
PlotShapes
(s*shapeCircle,colorYellow,Layer=0,yposition=H,Offset=12); 
PlotShapes
(t*shapeHollowSmallCircle,colorLime,Layer=0,yposition=H,Offset=12); 
PlotShapes
(u*shapeHollowCircle,colorBlue,Layer=0,yposition=H,Offset=12); 

for
(i=0;i<BarCount-1;i++) 
{
if(r[i]==True)PlotText("Doji", i, H[i], colorRed, bkcolor = colorDefault); 
if(s[i]==True)PlotText("Hammer", i, H[i], colorYellow, bkcolor = colorDefault); 
if(t[i]==True)PlotText("BearishEngulf", i, H[i], colorLime, bkcolor = colorDefault); 
if(u[i]==True)PlotText("BullishEngulf", i, H[i], colorBlue, bkcolor = colorDefault); 
}