SetChartBkGradientFill( ParamColor("BgTop", colorWhite),ParamColor("BgBottom", colorWhite),ParamColor("titlebkcolor",colorPink)); 


_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{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", ParamColor("Color", colorBlack ), 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();

x=EMA(C,3);
y=EMA(C,15);


_SECTION_BEGIN("Volume");
Plot( (Volume), _DEFAULT_NAME(), ParamColor("Color", colorLightBlue ), styleNoTitle | ParamStyle( "Style", styleHistogram | styleOwnScale | styleThick | styleNoLabel, maskHistogram  ), 6 );
_SECTION_END();
Plot(EMA(C,3),"ema3",2,1);
Plot(EMA(C,15),"ema15",0,1);

Buy= Cross(x,y);
Sell= Cross(y,x);

Buy=ExRem(Buy,Sell);
Sell= ExRem(Sell,Buy);


shape=Buy*shapeUpArrow + Sell*shapeDownArrow;
PlotShapes(shape,IIf(Buy,colorBlack,colorBlack),0,IIf(Buy,Low,High));

Buyalert=Cross(x,y);
Sellalert=Cross(y,x) ;
shape=Buyalert*shapeUpTriangle + Sellalert*shapeDownTriangle;
PlotShapes(shape,IIf(Buyalert,colorGreen,colorOrange),0,IIf(Buy,Low,High));


_SECTION_END();

AlertIf( Buy, "SOUND C:\\Windows\\Media\\ringin.wav", "Audio alert", 2 );
AlertIf( Sell, "SOUND C:\\Windows\\Media\\Ding.wav", "Audio alert", 2 );