Isfandi Profit Taker Channel for Amibroker (AFL)

_SECTION_BEGIN("Isfandi Profit Taker Channel");
HaClose =EMA((O+H+L+C)/4,3);
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );

ProfitTaker = EMA( H, 13 ) + 2 * ATR(10);
LosserTaker = EMA( L, 13 ) - 2 * ATR(10);
MidTaker = (LosserTaker+ProfitTaker)/2;
MidHigh = (MidTaker+ProfitTaker)/2;
MidLow = (MidTaker+LosserTaker)/2;
secure= (MidTaker+MidHigh)/2;
worry= (MidTaker+MidLow)/2;

outsidebar = C < secure AND C > MidTaker;
insidebar = C < MidTaker  AND C > worry;
upbar = C > MidTaker AND C > secure ;
downbar = C < MidTaker AND C < worry;

barcolor = IIf(outsidebar, colorGold,
               IIf(downbar, colorRed,
                   IIf(upbar, colorBrightGreen,
                       IIf(insidebar, 11, colorYellow)
                      )
                  ) 
              );

Title = Name() + "\\c" + barcolor + " - Color Bar Chart : " +
         WriteIf(Outsidebar, "Outside Bar",
                  WriteIf(insidebar, "Inside Bar",
                             WriteIf(upbar, "Up Bar",
                                      WriteIf(downbar, "Down Bar", "Neutral Bar")
                                   )
                         )
                );

Plot(Close, Title, barcolor, styleThick + styleCandle);
Plot( ProfitTaker, "Profit taker", colorViolet, styleLine );
Plot( LosserTaker, "LosserTaker", colorDarkBlue, styleLine );
Plot( MidTaker, "MidTaker", colorLightGrey, styleLine );
Plot( MidHigh, "MidHigh", colorDarkGreen, styleLine );
Plot( MidLow, "MidLow", colorPlum, styleLine );
Plot( secure, "secure", colorPlum, styleLine );
Plot( worry, "worry", colorPlum, styleLine );
PlotOHLC(MidHigh, MidHigh, secure, secure, "", IIf(MidHigh > secure,colorDarkGreen, colorDarkGreen),styleNoLabel|styleCloud );
PlotOHLC(MidLow, MidLow, worry, worry, "", IIf(MidLow > worry,colorPlum, colorPlum),styleNoLabel|styleCloud );
_SECTION_END();