//+------------------------------------------------------------------+
//|                                                     лимитник.mq4 |
//|                                            Copyright 2018, axe44 |
//|                                 http://axe44.opentraders.ru/bio/ |
//+------------------------------------------------------------------+
#property copyright "Copyright 2018, axe44"
#property link      "http://axe44.opentraders.ru/bio/"
#property version   "4.00"
#property strict

//--- Inputs
extern double Lots        = 0.1;      // лот
extern int Times          = 30;       // время жизни ордеров
extern int StopLoss       = 30;      // лось
extern int TakeProfit     = 70;      // язь
//extern bool Tr            = 0;        // Обычный трал да/нет
extern int MA             = 40;       // длинна МА
extern bool Stop          = 0;        // Стоп ордера
extern bool Limit         = 1;        // Лимит ордера
extern int Spred          = 4;       // спред 
extern int steps          = 50;      // отступ 
extern int Slip           = 30;       // реквот
extern int Magic          = 123;      // магик

datetime t=1;double xx,yy,zz;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit() //так приблизительно должно выглядеть
  {
//---
   if(Digits==3 || Digits==5)
     {
      TakeProfit*=10;
      StopLoss*=10;
      steps*=10;
      Slip*=10;
      Spred*=10;
     // NoLoss1*=10;
     // MinProfit*=10;
     }
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
   Comment("");
  }
//+------------------------------------------------------------------+
//Берём уровень текущую цену за основу, и пусть это будет икс. Берём скользящую среднию цену за игрек. 
//Так же нам нужны такие величины как время в днях, шаг. 
//Если икс больше/меньше скользящей средней на шаг, то выставляем стоп ордер, прописав время его жизни
//TimeCurrent()+60*60*60*24* время в днях
//в днях, прибыль и лося. Выставляем ордер через час/четыре часа/день по усмотрению.                                                                   |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;
    

   if(type==5||type==3)
     {
      clr=Red;
      if(steps>0) sl=NormalizeDouble(price+StopLoss*Point,Digits);
      if(steps>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
      r=OrderSend(NULL,type,Lots,price,Slip,sl,tp,"",Magic,TimeCurrent()+Times*60*60,clr);// время истечения TimeCurrent()+Times*60*60
      
     }
   if(type==2||type==4)
     {
      clr=Blue;
      if(steps>0) sl=NormalizeDouble(price-StopLoss*Point,Digits);
      if(steps>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
      r=OrderSend(NULL,type,Lots,price,Slip,sl,tp,"",Magic,TimeCurrent()+Times*60*60,clr);
     
     } 

  
   return;
  }

//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   
 if(t!=Time[0]&&(Ask-Bid)<Spred*Point)
 {
 
 NormalizeDouble(xx=Bid,Digits);
 NormalizeDouble(yy=iMA(NULL,0,MA,0,MODE_SMMA,PRICE_MEDIAN,0),Digits);
 NormalizeDouble(zz=xx-yy,Digits);
 if(xx<yy)NormalizeDouble(zz=yy-xx,Digits);
//Если икс больше/меньше скользящей средней на шаг, то выставляем стоп ордер и лимит, прописав время его жизни
   Print("длинна отступа ",steps*Point,", разница равна ",zz);
   if( AccountBalance()>300) if(zz>steps*Point)
     {
      if (Stop==1)
      if (xx<yy){ PutOrder(4,NormalizeDouble(yy+StopLoss*Point,Digits));}
      if (Limit==1)
      if (xx<yy){ PutOrder(3,NormalizeDouble(yy,Digits));}
      if (Stop==1)
      if (xx>yy){ PutOrder(5,NormalizeDouble(yy-StopLoss*Point,Digits));}
      if (Limit==1)
      if (xx>yy){ PutOrder(2,NormalizeDouble(yy,Digits));}
     }
       

      t=Time[0];   
   }
    
}