OK I have changed the color..
Here is the afl
/////SH Intraday Statregy - ELH5/////////////////
_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 )));
}
Plot(a=EMA(H,5),"H5",colorred,1);
Plot(b=EMA(L,5),"L5",colordarkgreen,1);
Buytrigger = C>a AND Ref(C,-1) > Ref(a, -1);
selltrigger = C<b AND Ref(C,-1) < Ref(b, -1);
shape=Buytrigger*shapeUpArrow + selltrigger*shapeDownArrow;
PlotShapes(shape,IIf(Buytrigger,1,1));
//////////////end of code///////////
If anyone wants other color then just change red and darkgreen to whatever color he like..(should be permitted by amibroker
)