Modified Ichimoku for Amibroker (AFL)

_SECTION_BEGIN("ichimoku");
        GraphXSpace =1;
        Plot( C, "Close", IIf(C>O, colorBrightGreen, IIf(C<O, colorOrange,colorLightYellow)), styleNoTitle | ParamStyle("Price Style",styleCandle,maskPrice));
        prds = Param("Standard Line Periods?", 13,5,26,1);
        prds1 = Param("Turning Line Periods?", 3,3,10,1);
        prds2 = Param("Delayed Line Periods?", 12,4,25,1);
        prds3 = Param("Spans Periods?", 16,10,52,1);
        prds4=Param("Period",20,10,30,1);

        TL = ( HHV( H, prds1) + LLV( L, prds1) )/2;
        SL = ( HHV( H, prds) + LLV( L, prds) )/2;
        DL = Ref( C, prds2);
        Sp1 = Ref( ( SL + TL )/2, -prds2);
        Sp2 = Ref( (HHV( H, prds3) + LLV(L, prds3))/2, -prds2);
        A1=EMA(C,13)-EMA(C,26);
        Color1=IIf(a1<0 AND a1>Ref(a1,-1), colorGreen,IIf(a1>0 AND a1>Ref(a1,-1),colorBrightGreen,IIf(a1>0 AND a1<Ref(a1,-1),colorOrange,colorRed)));
        PlotOHLC (Sp1,Sp1,Sp2,Sp2,"Cloud",IIf(Sp1>Sp2,ParamColor("Span1 Color", colorBrightGreen),ParamColor("Span2 Color",colorOrange)),styleCloud);
_SECTION_END();