_SECTION_BEGIN("MS");
/////////////////////////////////////////
F1=ValueWhen(H<Ref(H,-2) AND Ref(H,-1)<Ref(H,-2) AND Ref(H,-3)<Ref(H,-2)
AND Ref(H,-4)<Ref(H,-2),Ref(H,-2),1);
F2=ValueWhen(L>Ref(L,-2) AND Ref(L,-1)>Ref(L,-2) AND Ref(L,-3)>Ref(L,-2)
AND Ref(L,-4)>Ref(L,-2),Ref(L,-2),1);
a=Cross(H,F1);
b=Cross(F2,L);
state=IIf(BarsSince(a)<BarsSince(b),1,0);
Buy = Cover = state>Ref(state,-1);
Sell = Short = state<Ref(state,-1);
PlotShapes( IIf(Buy, shapeUpArrow,0) , colorGreen,0,L,-10);
PlotShapes( IIf(Sell, shapeDownArrow,0) , colorOrange,0,H,-10);

SetChartOptions( 0, chartShowDates | chartShowArrows | chartWrapTitle );
_N( Title = StrFormat( "{{NAME}} - " + SectorID( 1 ) + " - {{INTERVAL}}
{{Date}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " + WriteVal( V,
1.0 ) + " {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ) );
Plot( C, "Close", colorBlack, styleCandle | styleNoTitle | ParamStyle(
"Style" ) | GetPriceStyle() );

if ( ParamToggle( "Tooltip shows", "All Values|Only Prices" ) )
{
    ToolTip = StrFormat( "Open: %g\nHigh:  %g\nLow:   %g\nClose:  %g
(%.1f%%)\nVolume: " + NumToStr( V, 1 ), O, H, L, C, SelectedValue( ROC(
C, 1 ) ) );
}
/////////////////////////////////////////
_SECTION_END();