MML Oscillator for Amibroker (AFL)

_SECTION_BEGIN("MML Osscilator");
// Original code from ucsgears from tredingview.com
//https://www.tradingview.com/script/VQPnbiQd-UCS-Murrey-s-Math-Oscillator-V2/
// i have just converte it to AFL
length = 64;
mult = 0.125;

hi = HHV(High, length);
lo = LLV(Low, length);
range = hi - lo;
multiplier = (range) * mult;
midline = lo + multiplier * 4;
oscillator = (Close - midline)/(range/2);
scolor = IIf(oscillator > 0 AND oscillator < mult*6, colorGreen, IIf( oscillator < 0 AND oscillator > -mult*6,colorRed, IIf( oscillator < -mult*6 ,colorBlue, IIf( oscillator > mult*6 , colorOrange,colorYellow))));
a = oscillator > 0 AND oscillator < mult*2;
b = oscillator > 0 AND oscillator < mult*4;
C1 = oscillator > 0 AND oscillator < mult*6;
d = oscillator > 0 AND oscillator < mult*8;
z = oscillator < 0 AND oscillator > -mult*2;
y = oscillator < 0 AND oscillator > -mult*4;
x = oscillator < 0 AND oscillator > -mult*6;
w = oscillator < 0 AND oscillator > -mult*8;
colordef = IIf(a, colorLime, IIf( b ,colorBrightGreen, IIf( C1, colorGreen,IIf( d , colorDarkGreen, IIf( z, colorOrange, IIf( y, colorBrown, IIf( x , colorRed, IIf (w , colorDarkRed , colorBlue))))))));
//Plot (oscillator, color = scolor, Title = "Murrey Math Oscillator", style = columns, transp = 60)
Plot(0, "Zero Line", colorWhite, styleLine);
Plot( mult*2 ,  "", colorWhite, styleLine);
Plot(mult*4 , "", colorWhite, styleLine);
p3 = 
Plot( mult*6  ,"", colorWhite, styleLine);
p4 = 
Plot( mult*8,"", colorWhite, styleLine);
Plot( -mult*2, "", colorWhite, styleLine);
Plot( -mult*4, "", colorWhite, styleLine);
p2 = 
Plot( -mult*6, "", colorWhite, styleLine);
p1 = 
Plot( -mult*8 , "", colorWhite, styleLine);
Plot(Oscillator,"",colordef,ParamStyle( "Style", styleHistogram|styleThick  ), 4);

_SECTION_END();