//+------------------------------------------------------------------+
//|                                        Andre Boyka Lines ABL.mq4 |
//|                                                 Swan © 2010-2011 |
//|                                                                  |
//|     Идея - renee (Romania)                                       |
//|   - http://www.onix-trade.net/forum/index.php?showtopic=81964    |
//|     техзадание - поручик - http://www.onix-trade.net/forum       |
//|     памяти Бойки Andre                                           |
//|     оптимизация ForexGrail                                       |
//+------------------------------------------------------------------+
#property copyright "Swan © 2010" // копирайт автора индикатора
#property link      "http://forum.mql4.com/ru"  // линк
#property indicator_chart_window   // индикатор выводится в окне графика

// Параметры индикатора

extern string TimeFrame="H1"; //период графика "M5", "M15", "M30", "H1" ...
extern color Pitchfork_1=Red;  // цвет 1 вил Эндрюса
extern color Pitchfork_2=Blue; //  цвет 2 вил Эндрюса
extern color Boyka_Line=Gold;  // цвет вил Эндрюса с названием Boyka_Line
extern color HLine=Red;  // цвет 1 вил Эндрюса
extern color LLine=Blue; //  цвет 2 вил Эндрюса
extern int Line_Width=2; // толщина линий вил Эндрюса с названием Boyka_Line
extern int Boyka_Line_Width=2; // толщина линий вил Эндрюса с названием Boyka_Line
extern bool DrawVLine=true; // стиль true - отображать в фоновом режиме вертикальные линии
extern color VLine=Green; // цвет вертикальных линий


int TF;
int nTF = 1; // десятичные числовые переменные TF - количество минутных баров в свече, nTF - хз... тоже самое вроди
string sTF, PeriodName; // строковая переменная
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- Присваиваем значения переменным исходя из установленного TimeFrame

if(StringSubstr(TimeFrame,0,2)=="M5"){sTF="M5"; TF=5;}
if(StringSubstr(TimeFrame,0,3)=="M15"){sTF="M15"; TF=15;}
if(StringSubstr(TimeFrame,0,3)=="M30"){sTF="M30"; TF=30;}
if(StringSubstr(TimeFrame,0,2)=="H1"){sTF="H1"; TF=60;}
if(StringSubstr(TimeFrame,0,2)=="H4"){sTF="H4"; TF=240;}
if(StringSubstr(TimeFrame,0,2)=="D1"){sTF="D1"; TF=1440;}
if(StringSubstr(TimeFrame,0,2)=="W1")  {sTF="W1"; TF=10080;}
if(StringSubstr(TimeFrame,0,2)=="MN") {sTF="MN"; TF=43200;}
if(StringSubstr(TimeFrame,0,1)=="Y")  {sTF="Y"; TF=120960;}

//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
{
//---- При удалении индикатора с графика удаляем графические объекты которые он наложил на график

ObjectDelete(TimeFrame+"_b0");
ObjectDelete(TimeFrame+"_b1");
ObjectDelete(TimeFrame+"_b2");
ObjectDelete(TimeFrame+"_b3");
ObjectDelete(TimeFrame+"_Pitchfork_1");
ObjectDelete(TimeFrame+"_Pitchfork_2");
ObjectDelete(TimeFrame+"_Boyka_Line");
ObjectDelete(TimeFrame+"_H1");
ObjectDelete(TimeFrame+"_L1");
Comment("");
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
 {
if(TF<Period()) return(0); // если заданный в параметрах период меньше или равен тому что на графике, то прекращаем дальнейшую работу

int b0,b1,b2,b3;
double H1,H2,L1,L2;
int iH1,iH2,iL1,iL2;

if(sTF=="Y")// расчет баров для года
   {
   int Y=TimeYear(iTime(NULL,0,0));
   b0=iBarShift(NULL,0,StrToTime(Y+".0.0 00:00"));Y-=nTF;
   b1=iBarShift(NULL,0,StrToTime(Y+".0.0 00:00"));Y-=nTF;
   b2=iBarShift(NULL,0,StrToTime(Y+".0.0 00:00"));Y-=nTF;
   b3=iBarShift(NULL,0,StrToTime(Y+".0.0 00:00"));
   }
else if(sTF=="MN")// расчет баров для месяца
   {
   b0=iBarShift(NULL,0,iTime(NULL,TF,0));
   if(TimeDay(Time[b0])!=1) b0--;
   b1=iBarShift(NULL,0,iTime(NULL,TF,nTF));
   if(TimeDay(Time[b1])!=1) b1--;
   b2=iBarShift(NULL,0,iTime(NULL,TF,2*nTF));
   if(TimeDay(Time[b2])!=1) b2--;
   b3=iBarShift(NULL,0,iTime(NULL,TF,3*nTF));
   if(TimeDay(Time[b3])!=1) b3--;
   }
else if(sTF=="W1")// расчет баров для недели
   {
   b0=iBarShift(NULL,0,iTime(NULL,TF,0));
   if(TimeHour(Time[b0])!=0) b0--;
   b1=iBarShift(NULL,0,iTime(NULL,TF,nTF));
   if(TimeHour(Time[b1])!=0) b1--;
   b2=iBarShift(NULL,0,iTime(NULL,TF,2*nTF));
   if(TimeHour(Time[b2])!=0) b2--;
   b3=iBarShift(NULL,0,iTime(NULL,TF,3*nTF));
   if(TimeMinute(Time[b3])!=0) b3--;
   
   }
else
   {
// определяем бары вертикальных линий для остальных таймфреймов
  b0=iBarShift(NULL,0,iTime(NULL,TF,0));
 //  if(TimeMinute(Time[b0])!=0) b0--;
   b1=iBarShift(NULL,0,iTime(NULL,TF,nTF));
 //  if(TimeMinute(Time[b1])!=0) b1--;
   b2=iBarShift(NULL,0,iTime(NULL,TF,2*nTF));
 //  if(TimeMinute(Time[b2])!=0) b2--;
   b3=iBarShift(NULL,0,iTime(NULL,TF,3*nTF));
 //  if(TimeMinute(Time[b3])!=0) b3--;
   }
   
  //Выводим данные на экран
   if(Period()==1)PeriodName ="М1";
  if(Period()==5)PeriodName ="М5";
  if(Period() == 15)PeriodName ="М15";
  if(Period() == 30)PeriodName ="М30";
   if(Period()==60) PeriodName ="H1";
   if(Period() == 240)PeriodName ="H4";
    if(Period()==1440)PeriodName ="D1";
     if(Period()==10080)PeriodName ="W1";
     if(Period()==43200)PeriodName ="MN";
 Comment("\nВторая линия смещена от первой на - " + (b1-b0)+ " баров назад, потому что в одном баре графика " + TimeFrame + " содержится " + (TF/Period())+ " баров графика "+ PeriodName +"\nТретья линия смещена от второй на - " + (b2-b1) + " баров назад, потому что в одном баре графика " + TimeFrame + " содержится " + (TF/Period())+ " баров графика "+ PeriodName +"\n \nСледующее перестроение графических объектов будет через " + ((b1-b0)-b0) +" бар(ов)");
  
 
//----Рисуем вертикальные линии
if(DrawVLine){

ObjectDelete(TimeFrame+"_b0");
ObjectDelete(TimeFrame+"_b1");
ObjectDelete(TimeFrame+"_b2");
ObjectDelete(TimeFrame+"_b3");



ObjectCreate(TimeFrame+"_b0",OBJ_VLINE,0,Time[b0],1.0);
ObjectCreate(TimeFrame+"_b1",OBJ_VLINE,0,Time[b1],1.0);
ObjectCreate(TimeFrame+"_b2",OBJ_VLINE,0,Time[b2],1.0);
ObjectCreate(TimeFrame+"_b3",OBJ_VLINE,0,Time[b3],1.0);


ObjectSet(TimeFrame+"_b0",OBJPROP_COLOR,VLine);
ObjectSet(TimeFrame+"_b1",OBJPROP_COLOR,VLine);
ObjectSet(TimeFrame+"_b2",OBJPROP_COLOR,VLine);
ObjectSet(TimeFrame+"_b3",OBJPROP_COLOR,VLine);


ObjectSet(TimeFrame+"_b0",OBJPROP_BACK,true);
ObjectSet(TimeFrame+"_b1",OBJPROP_BACK,true);
ObjectSet(TimeFrame+"_b2",OBJPROP_BACK,true);
ObjectSet(TimeFrame+"_b3",OBJPROP_BACK,true);

}

iH1=iHighest(NULL,0,MODE_HIGH,b1-b0,b0+1); H1=High[iH1];// с 1-5 бар поиск хая
iL1=iLowest(NULL,0,MODE_LOW,b1-b0,b0+1);   L1=Low[iL1];

iH2=iHighest(NULL,0,MODE_HIGH,b2-b1,b1+1); H2=High[iH2]; // с 6-10 бар поиск хая
iL2=iLowest(NULL,0,MODE_LOW,b2-b1,b1+1);   L2=Low[iL2];


ObjectDelete(TimeFrame+"_Pitchfork_1");
ObjectCreate(TimeFrame+"_Pitchfork_1",OBJ_PITCHFORK,0,Time[iL2],L2,Time[iH1],H1,Time[iL1],L1);
ObjectSet(TimeFrame+"_Pitchfork_1",OBJPROP_COLOR,Pitchfork_1);

ObjectDelete(TimeFrame+"_Pitchfork_2");
ObjectCreate(TimeFrame+"_Pitchfork_2",OBJ_PITCHFORK,0,Time[iH2],H2,Time[iH1],H1,Time[iL1],L1);
ObjectSet(TimeFrame+"_Pitchfork_2",OBJPROP_COLOR,Pitchfork_2);

ObjectDelete(TimeFrame+"_Boyka_Line");
ObjectCreate(TimeFrame+"_Boyka_Line",OBJ_PITCHFORK,0,Time[(b1+b2)/2],(H2+L2)/2,Time[iH1],H1,Time[iL1],L1);
ObjectSet(TimeFrame+"_Boyka_Line",OBJPROP_COLOR,Boyka_Line);
ObjectSet(TimeFrame+"_Boyka_Line",OBJPROP_WIDTH,Boyka_Line_Width);

ObjectDelete(TimeFrame+"_H1");
ObjectCreate(TimeFrame+"_H1",OBJ_TREND,0,Time[b1],H1,Time[0],H1);
ObjectSet(TimeFrame+"_H1",OBJPROP_COLOR,HLine);
ObjectSet(TimeFrame+"_H1",OBJPROP_RAY,false);
ObjectDelete(TimeFrame+"_L1");
ObjectCreate(TimeFrame+"_L1",OBJ_TREND,0,Time[b1],L1,Time[0],L1);
ObjectSet(TimeFrame+"_L1",OBJPROP_COLOR,LLine);
ObjectSet(TimeFrame+"_L1",OBJPROP_RAY,false);

WindowRedraw();
  return(0);
 }
//+------------------------------------------------------------------+