BULLSEYE-MONEYLINE for Amibroker (AFL)

// bulls eye forecastorby ford7k-banned from traderji
//This one is very easy to code. I tell you the trick you go AND do it yourself

//Money Line Indicator - Use Wilders( C, 88); 
//by default, selection of other MA, EMA, WMA - up to you.

//_BullsEye Indicator - Use MACD(EMA13, EMA34, SMA8);
//When MACD() < Signal(), Plot Red Ribbon else Lime Riibbon





_SECTION_BEGIN("Price");
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, "Close", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() ); 
_SECTION_END();

_SECTION_BEGIN("Wilders");
P = ParamField("Price field",-1);
Periods = Param("Periods", 88, 2, 300, 1, 10 );
wlc = Ref(C,-1);
Plot( Wilders( wlc, 88 ), "Money line",  colorAqua, styleThick ); 
_SECTION_END();


_SECTION_BEGIN("MACD");
r1 = Param( "Fast avg", 13, 2, 200, 1 );
r2 = Param( "Slow avg", 34, 2, 200, 1 );
r3 = Param( "Signal avg", 8, 2, 200, 1 );
Plot( ml = MACD(r1, r2), StrFormat(_SECTION_NAME()+"(%g,%g)", r1, r2),  colorYellow , styleOwnScale);
//ribbon
mcd =MACD(13,34);
sig =Signal(13,34,8);

upt=mcd>sig ;
downt=mcd<sig ;


Plot( 1,"bulls eye ribbon",IIf( upt, colorGreen, IIf( downt, colorRed, 0 )),styleOwnScale|styleArea|styleNoLabel, -1, 100 );