Modified Ichimoku Crossover for Amibroker (AFL)

prds = Param( "Standard Line Periods", 13, 5, 26, 1 );
turn = Param( "Turning Line Periods", 3, 3, 10, 1 );


TL = ( HHV( H, turn ) + LLV( L, turn ) ) / 2;
SL = ( HHV( H, prds ) + LLV( L, prds ) ) / 2;

Plot( SL, "SL", colorOrange, styleLine | styleNoLabel );
Plot( TL, "TL", colorLightBlue, styleLine | styleNoLabel );

r=Cross(TL,SL);
r2= Cross(SL,TL);
r_status= WriteIf(r, "Bullish", WriteIf(r2, "Bearish", "Neutral"));
r_Col=IIf(r, colorGreen, IIf(r2, colorRed, colorLightGrey));
Filter = r OR r2;
AddTextColumn(r_status,"RSI-14",1, colorWhite, r_Col);
AddColumn( Close, "Close" );
AddColumn( TL, "Blue - TL" );
AddColumn( SL, "Orange - SL" );