Amibroker (AFL) - Night Star

Gives good result on 5 mins time frame and above.
developed by:Amibrokerfans

_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartBkGradientFill(ParamColor("Upper Chart",1),ParamColor("Lower Chart",23));
GraphXSpace=Param("GraphXSpace",10,0,100,1);
dec = (Param("Decimals",2,0,7,1)/10)+1;
bi = BarIndex();
Lbi = LastValue(BarIndex());
sbi = SelectedValue(bi);
x1= BarCount-1;
_SECTION_END();
_SECTION_BEGIN("HeikenAshiSmoothed");
GraphXSpace=5;
p=6;
Om=MA(O,p);
hm=MA(H,p);
lm=MA(L,p);
Cm=MA(C,p);
HACLOSE=(Om+Hm+Lm+Cm)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( Hm, Max( HaClose, HaOpen ) );
HaLow = Min( Lm, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), colorBlack, styleCandle | styleNoLabel );
_SECTION_END();
_SECTION_BEGIN("theswing");
SetBarsRequired(200,0);
GraphXSpace = 5;
SetChartOptions(0,chartShowArrows|chartShowDates);
a = 2;
b= 20;
HACLOSE=(O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
d=Haclose;
e=ATR(14);
g = WMA(H-L,b);
k = a * g;
m = 1;
n[0] = 0;
for(i = 1; i < BarCount; i++)
{
if(m[i-1] == 1)
{
if(d[i] < n[i-1])
{
m[i] = -1;
n[i] = d[i] + k[i];
}
else
{
m[i] = 1;
if((d[i] - k[i]) > n[i-1])
{
n[i] = d[i] - k[i];
}
else
{
n[i] = n[i-1];
}
}
}
if(m[i-1] == -1)
{
if(d[i] > n[i-1])
{
m[i] = 1;
n[i] = d[i] - k[i];
}
else
{
m[i] = -1;
if((d[i] + k[i]) < n[i-1])
{
n[i] = d[i] + k[i];
}
else
{
n[i] = n[i-1];
}
}
}
}
Buy=Cover=Cross(d,n);
Sell=Short=Cross(n,d);
SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );
_SECTION_END();
_SECTION_BEGIN("Title");
z = (GetPerformanceCounter()/200)%255;
anim=ColorHSB( ( i + z ) % 256, 155, 250 );
RequestTimedRefresh(1);
if( Status("action") == actionIndicator )
(
Title = EncodeColor(colorWhite) + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorWhite) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+
EncodeColor(colorRed)+
WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"\n"+EncodeColor(colorWhite)+
WriteIf(Sell , "Total Profit/Loss for the Last Trade $."+(C-BuyPrice)+"","")+
WriteIf(Buy , "Total Profit/Loss for the Last trade $."+(SellPrice-C)+"","")+
WriteIf(Long AND NOT Buy, "Trade : Long - Entry price $."+(BuyPrice),"")+
WriteIf(shrt AND NOT Sell, "Trade : Short - Entry price $."+(SellPrice),"")+"\n"+
WriteIf(Long AND NOT Buy, "Current Profit/Loss $."+(C-BuyPrice)+"","")+
WriteIf(shrt AND NOT Sell, "Current Profit/Loss $."+(SellPrice-C)+"",""));
PlotShapes(IIf(Buy, shapeStar, shapeNone),colorCustom11,layer = 0, HaLow,offset = -80);
PlotShapes(IIf(Buy, shapeSmallCircle, shapeNone),colorBlue,layer = 0,HaLow,offset = -80);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),anim,layer = 0,HaLow,offset = -63);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorCustom11,layer = 0,HaLow,offset = -71);
PlotShapes(IIf(Sell, shapeStar, shapeNone),colorYellow,layer = 0, HaHigh,offset = 80);
PlotShapes(IIf(Sell, shapeSmallCircle, shapeNone),colorRed,layer = 0,HaHigh,offset = 80);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),anim,layer = 0,HaHigh,offset = -63);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorYellow,layer = 0,HaHigh,offset = 71);