Breakout AFL for Amibroker (AFL)

chartid = Param("Chart ID",0,1000,9999);

resistance = Study("RE",IIf(chartid>GetChartID(),chartid,GetChartID()));
support = Study("SU",IIf(chartid>GetChartID(),chartid,GetChartID()));

Buy = Cross(H,resistance);
Sell = Cross(support,L);

signalcolor = IIf(Buy,colorGreen,IIf(Sell,colorRed,colorGrey40));

PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-50);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0, L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, H, Offset=40);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0, H, Offset=50);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorWhite, 0, H, Offset=-45);