Mountains for Amibroker (AFL)

_SECTION_BEGIN("Mountains");

SetChartOptions(3,chartHideQuoteMarker);
M = Param("Average", 14, 2, 200, 1);

AllPrice = (H+L+O+C)/4;
BB1 = (BBandTop(AllPrice,25,2)+BBandBot(AllPrice,25,2))/2;
BB2 = BBandTop(AllPrice,25,2)-BBandBot(AllPrice,25,2);
BB3 = ((AllPrice-BB1)/BB2)*100;
RSI1 = RSIa(AllPrice,14);
STOCHF = ((AllPrice-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
STOC = MA(STOCHF,3);
MOUNTAIN = (RSI1+BB3+(STOC/3))/2;

Buy = MOUNTAIN <= 0;
WR = -100 * ( HHV( H, 100 ) - C )/( HHV( H, 100 ) - LLV( L, 100 ) ); 

Filter = Buy ;
AddColumn( C, "Precio" );
AddColumn( WR, " Willams " );
AddColumn( V, "          vol          " );

Plot(0,"",ColorRGB(0,0,0),styleLine|styleNoLabel);
Plot(MOUNTAIN,"Mountain",ColorRGB(165,42,42),styleLine|styleNoLabel);
PlotOHLC(MOUNTAIN,MOUNTAIN,0,0,"",ColorRGB(165,42,42),styleCloud|styleNoLabel);
_SECTION_END();