ImT

//----------------------------------------------------------------------------------------------------------------------------------------------------//
datetime T0,T1,     mas_time[2,1000]; 
double  sh=0.0030,  mas_Ap  [2,1000];
int sp,y, sx, m,b2, s2, s3,   b1=1, s1=0; 
string mas_line[1,1000];

int start(){m=m+1; mas_line[0,m]=m; if(y==0){mas_Ap[0,0]=((Ask+Bid)/2); mas_time[0,0]=iTime(NULL,0,0); y=1;} if(y<1000){sx1();}}
int sx1(){if(((Ask+Bid)/2)>mas_Ap[0,y-1]+sh || ((Ask+Bid)/2)<mas_Ap[0,y-1]-sh){mas_Ap[0,y]=((Ask+Bid)/2); mas_time[0,y]=iTime(NULL,0,0); y=y+1; sx2(y,mas_Ap[0,y-2]);}}
int sx2(int id1, double id2){if(((Ask+Bid)/2)>id2+sh){sx=1;} if(((Ask+Bid)/2)<id2-sh){sx=2;} mes_func(id1,sx);}

int mes_func(int id1, int id2){ s3=s3+1;
  if(b1==1){
  if(id2==1){s2=0;      Print("Buy - âûéãð     ",s2); b1=1; s1=0; return;}
  if(id2==2){s2=s2+1;   Print("Buy - ïðîèãð    ",s2); if(s2>=2 && s2<5){open_order(0);} b1=0; s1=1; return;}
  }
  if(s1==1){
  if(id2==1){s2=s2+1;   Print("Sell - ïðîèãð   ",s2); if(s2>=2 && s2<5){open_order(0);} b1=1; s1=0; return;}
  if(id2==2){s2=0;      Print("Sell - âûéãð    ",s2); b1=0; s1=1; return;}
  }
}

int open_order(int id){
if(id==1){int ticket1=OrderSend(Symbol(),OP_BUY , 0.1,Ask,3,Bid-300*Point,Ask+300*Point);}
if(id==2){int ticket2=OrderSend(Symbol(),OP_SELL, 0.1,Bid,3,Ask+300*Point,Bid-300*Point);}
}         

int deinit(){ Print(s3);
ObjectCreate("Vline0", OBJ_VLINE,0, mas_time[0,0],0 );/*ObjectCreate("Hline0", OBJ_HLINE,0, 0,mas_Ap[0,0]);*/ int n=-5,w=-1;while(w<s3-2){w++; n=n+5; 
//----------------------------------------------------------------------------------------------------------------------------------------------------//
ObjectCreate(mas_line[0,1+n],OBJ_TREND,0,mas_time[0,0+w],mas_Ap[0,0+w],mas_time[0,1+w],mas_Ap[0,0+w]); ObjectSet(mas_line[0,1+n],OBJPROP_RAY,false);//h
ObjectCreate(mas_line[0,2+n],OBJ_TREND,0,mas_time[0,0+w],mas_Ap[0,1+w],mas_time[0,1+w],mas_Ap[0,1+w]); ObjectSet(mas_line[0,2+n],OBJPROP_RAY,false);//h
//----------------------------------------------------------------------------------------------------------------------------------------------------//
ObjectCreate(mas_line[0,3+n],OBJ_TREND,0,mas_time[0,0+w],mas_Ap[0,0+w],mas_time[0,1+w],mas_Ap[0,1+w]); ObjectSet(mas_line[0,3+n],OBJPROP_RAY,false);//t
//----------------------------------------------------------------------------------------------------------------------------------------------------//
ObjectCreate(mas_line[0,4+n],OBJ_TREND,0,mas_time[0,0+w],mas_Ap[0,0+w],mas_time[0,0+w],mas_Ap[0,1+w]); ObjectSet(mas_line[0,4+n],OBJPROP_RAY,false);//v
ObjectCreate(mas_line[0,5+n],OBJ_TREND,0,mas_time[0,1+w],mas_Ap[0,1+w],mas_time[0,1+w],mas_Ap[0,0+w]); ObjectSet(mas_line[0,5+n],OBJPROP_RAY,false);//v
}}//--------------------------------------------------------------------------------------------------------------------------------------------------//