//+------------------------------------------------------------------+
//|                                            ATR Trailing Stop.mq4 |
//|                                                                  |
//|                                                                  |
//+------------------------------------------------------------------+
//edited by Jay to have 3 draw styles, original, arrow lines, single arrows
#property  copyright "Copyright Team Aphid"
#property  link      ""
//---- indicator settings
#property  indicator_chart_window
#property  indicator_buffers 2
#property  indicator_color1 Blue
#property  indicator_color2 Red

//---- indicator parameters
extern int BackPeriod   = 1000;
extern int ATRPeriod   = 3;
extern double Factor = 3;
extern bool TypicalPrice = false;

//edit
extern string Display_Types = "0 = lines, 1 = arrow lines, 2 = single arrows";
extern int Display_Type = 0;
extern color Up_color = Blue;
extern color Down_color = Red;

//---- indicator buffers
double     ind_buffer1[];
double     ind_buffer2[];

//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- drawing settings  

//edit
   SetIndexBuffer(0,ind_buffer1);
   SetIndexBuffer(1,ind_buffer2);
   if(Display_Type == 0)
   {
   SetIndexStyle(0,DRAW_LINE,EMPTY,2, Up_color);
   SetIndexDrawBegin(0,ATRPeriod);
   SetIndexStyle(1,DRAW_LINE,EMPTY,2, Down_color);
   SetIndexDrawBegin(1,ATRPeriod);
   ObjectsDeleteAll(0,"BAT-2", 0, -1);
   ChartRedraw(0);
   }
   else if (Display_Type == 1)
   {
   SetIndexStyle(0,DRAW_ARROW,EMPTY,0, Up_color);
   SetIndexArrow(0, 233);
   SetIndexDrawBegin(0,ATRPeriod);
   SetIndexStyle(1,DRAW_ARROW,EMPTY,0, Down_color);
   SetIndexArrow(1, 234);
   SetIndexDrawBegin(1,ATRPeriod);
   ObjectsDeleteAll(0,"BAT-2", 0, -1);
   ChartRedraw(0);
   }
   if(Display_Type == 2)
   {
   SetIndexStyle(0,DRAW_LINE,EMPTY,0, NULL);
   SetIndexDrawBegin(0,ATRPeriod);
   SetIndexStyle(1,DRAW_LINE,EMPTY,0, NULL);
   SetIndexDrawBegin(1,ATRPeriod);
   }
   
   IndicatorDigits(MarketInfo(Symbol(),MODE_DIGITS)+2);
//---- name for DataWindow and indicator subwindow label
   IndicatorShortName("ATR Trailing Stop("+ATRPeriod+" * "+Factor+")");
   SetIndexLabel(0,"Support");
   SetIndexLabel(1,"Resistance");
//---- initialization done
   return(0);
  }
  
   
//+------------------------------------------------------------------+
//| Moving Averages Convergence/Divergence                           |
//+------------------------------------------------------------------+
int start()
  {
   int limit;
   int counted_bars=IndicatorCounted();
   double PrevUp, PrevDn;
   double CurrUp, CurrDn;
   double PriceLvl;
   double LvlUp = 0;
   double LvlDn = 1000;
   int Dir = 1;
   int InitDir;
//---- check for possible errors
   if(counted_bars<0) return(-1);
//---- last counted bar will be recounted
   if(counted_bars>0) counted_bars--;
   limit=Bars-counted_bars;
//---- fill in buffervalues
   InitDir = 0;
   for(int i=BackPeriod; i>=0; i--)
   {
      if (TypicalPrice) PriceLvl = (High[i] + Low[i] + Close[i])/3;
      else PriceLvl = Close[i];  

      if(InitDir == 0) {
         CurrUp=Close[i] - (iATR(NULL,0,ATRPeriod,i) * Factor);
         PrevUp=Close[i-1] - (iATR(NULL,0,ATRPeriod,i-1) * Factor);
         CurrDn=Close[i] + (iATR(NULL,0,ATRPeriod,i) * Factor);
         PrevDn=Close[i-1] + (iATR(NULL,0,ATRPeriod,i-1) * Factor);
           
         if (CurrUp > PrevUp) Dir = 1;
         LvlUp = CurrUp;
         if (CurrDn < PrevDn) Dir = -1;
         LvlDn = CurrDn;
         InitDir = 1;
       
      }
      
      CurrUp=PriceLvl - (iATR(NULL,0,ATRPeriod,i) * Factor);
      CurrDn=PriceLvl + (iATR(NULL,0,ATRPeriod,i) * Factor);
      //edit
      string edit_obj_name = StringConcatenate("BAT-2 ", IntegerToString(Bars - i));      
      if (Dir == 1) {
         if (CurrUp > LvlUp) {
            ind_buffer1[i] = CurrUp;
            LvlUp = CurrUp;
         }
         else {
            ind_buffer1[i] = LvlUp;
         }
         ind_buffer2[i] = EMPTY_VALUE;
         if (Low[i] < ind_buffer1[i]) {
            Dir = -1;
            LvlDn = 1000;
         }
            //edit
            if(Display_Type == 2 && ind_buffer1[i+1] > ind_buffer2[i+1])
            {
            ObjectCreate(0, edit_obj_name, OBJ_ARROW, 0, Time[i], LvlUp);
            ObjectSetInteger(0, edit_obj_name, OBJPROP_ARROWCODE, 233);
            ObjectSet(edit_obj_name, OBJPROP_COLOR, Up_color);           
            ObjectSet(edit_obj_name, OBJPROP_WIDTH, 2); 
            }
      }
      
      if (Dir == -1) {
         if (CurrDn < LvlDn) {
            ind_buffer2[i] = CurrDn;
            LvlDn = CurrDn;
         }
         else {
            ind_buffer2[i] = LvlDn;
         }
         ind_buffer1[i] = EMPTY_VALUE;
         if (High[i] > ind_buffer2[i]) {
            Dir = 1;
            LvlUp = 0;
         }
            //edit
            if(Display_Type == 2 && ind_buffer1[i+1] < ind_buffer2[i+1])
            {
            ObjectCreate(0, edit_obj_name, OBJ_ARROW, 0, Time[i], LvlDn);
            ObjectSetInteger(0, edit_obj_name, OBJPROP_ARROWCODE, 234);
            ObjectSet(edit_obj_name, OBJPROP_COLOR, Down_color); 
            ObjectSet(edit_obj_name, OBJPROP_WIDTH, 2); 
            }
      }
 
   }  
   

//---- done
   return(0);
  }
//edit  
  void OnDeinit(const int reason)
   {
      ObjectsDeleteAll(0,"BAT-2", 0, -1);
   }