//by trash
upcolor = ParamColor("Up color ", colorGreen);
downcolor = ParamColor("Down color ", colorDarkRed);
Coloutline = ParamColor("(Out-)Line Color", colorGrey40);
styleLine_ = ParamStyle("Style Line/Bar");
zordershift = Param("Price Z-Order shift", 0, -10, 10, 1);
barcolor = IIf(Close > Ref(Close, -1), upcolor, downcolor);
gps = GetPriceStyle();
style = styleLine_ | gps | styleNoTitle;
SetBarFillColor(barcolor);
SetChartOptions(0,chartShowArrows|chartShowDates);
if(gps == styleBar) Plot( C, " " , barcolor, style, 0, 1, 0, zordershift);
else Plot( C, " " , Coloutline, style, 0, 1, 0, zordershift);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));