//-- Author : KelvinHand
//bgTop = ParamColor("BgTop", colorBlack);
//bgBot = ParamColor("BgBottom", colorBlack);
//SetChartBkGradientFill( bgTop ,bgBot);
pStyle = ParamList("Style.Price", "Candle|Solid Candle|Bar|Line|None");
cBull = ParamColor("Color.Bull", colorLime);
CBear = ParamColor("Color.Bear", colorRed);
CChaos = ParamColor("Color.Chaos", colorYellow);
cLine = ParamColor("Color.Line", colorGrey50);
ShowMAs = ParamToggle("Show MAs", "No|Yes");
SetChartOptions(0,chartShowArrows|chartShowDates|chartWrapTitle );
_N(Title = StrFormat("{{NAME}}- {{INTERVAL}} {{DATE}} O= %g, H= %g, L= %g, C= %g (%.1f%%) V= " +WriteVal( V, 1.0 ) +"\n{{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
ThisStyle = styleCandle;
ThisTitle = "";
_O=O; _C=C; _H=H; _L=L;
MA5 = MA(C,5);
MA15 = MA(C,15);
MA30 = MA(C,30);
Cond_1 = MA5>MA15 AND MA5>MA30;
Cond_2 = MA5<MA15 AND MA5<MA30;
Cond_3 = MA5<MA15 AND MA5>MA30 OR MA5 > MA15 AND MA5 < MA30;
ThisColor = IIf (Cond_1, cBull,
IIf (Cond_2, CBear,
IIf (Cond_3, CChaos,
cLine)));
switch (pStyle )
{
case "Solid Candle":
SetBarFillColor( ThisColor );
break;
case "Bar":
ThisStyle = styleBar;
break;
case "Line":
ThisStyle = styleLine;
break;
case "None":
break;
default:
SetBarFillColor( ThisColor );
ThisColor = cLine;
break;
}
if (pStyle !="None")
PlotOHLC( _O, _H, _L, _C, ThisTitle, ThisColor, ThisStyle);
GraphXSpace = 8;
if (ShowMAs)
{
Plot(MA5,"ma5",colorYellow,styleNoLabel);
Plot(MA15,"ma15",colorRed,styleNoLabel);
Plot(MA30,"ma30",colorAqua,styleNoLabel);
}