//+------------------------------------------------------------------+
//|                                                     Piramida.mq4 |
//|                                              Copyright 2017, AM2 |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, AM2"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict

//--- Inputs
input double  Lot         = 0.01;     // объем первого ордера
input double  MaxLot      = 100;      // максимальный лот 
input double  KLot        = 2;        // умножение лота ордеров 
input double  KStep       = 2;        // увеличение шага

input int StopLoss        = 0;        // стоплосс
input int TakeProfit      = 0;        // тейкпрофит

input int Step            = 100;      // шаг ордеров
input int Delta           = 100;      // отступ от цены
input int DeltaMA         = 400;      // отступ от MA

input int Expiration      = 55;       // истечение ордера в часах
input int Count           = 5;        // количество ордеров

input int Slip            = 3;        // проскальзывание
input int MAPeriod        = 600;      // период МА

input int MATakeProfit    = 0;        // 1-тейк по МА
input int Magic           = 123;      // магик

bool b=true,s=true;
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---

//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---

  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void PutOrder(int type,double price)
  {
   int r=0;
   color clr=Green;
   double sl=0,tp=0;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
      if(StopLoss>0)   sl=NormalizeDouble(price+StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price-TakeProfit*Point,Digits);
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
      if(StopLoss>0)   sl=NormalizeDouble(price-StopLoss*Point,Digits);
      if(TakeProfit>0) tp=NormalizeDouble(price+TakeProfit*Point,Digits);
     }

   r=OrderSend(NULL,type,Lots(type),NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,TimeCurrent()+Expiration*3600,clr);
  }
//+------------------------------------------------------------------+
//| Подсчет ордеров по типу                                          |
//+------------------------------------------------------------------+
int CountOrders(int type=-1)
  {
   int count=0;
   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==type || (OrderType()>=0 && type==-1)) count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//| Лот                                                              |
//+------------------------------------------------------------------+
double Lots(int type)
  {
   double lots=Lot;
   double MaximumLot=MarketInfo(NULL,MODE_MAXLOT);
   double MinimumLot=MarketInfo(NULL,MODE_MINLOT);

   if(Lot==0) lots=AccountEquity()/(Count*2*10000);
   lots=NormalizeDouble(lots*MathPow(KLot,CountOrders(type)),2);
   if(lots>MaximumLot) lots=MaximumLot;
   if(lots<MinimumLot) lots=MinimumLot;
   return(lots);
  }
//+------------------------------------------------------------------+
//| Шаг для гридера                                                  |
//+------------------------------------------------------------------+
double Steps(int ot)
  {
   double step=Step;
   step=NormalizeDouble(Step*MathPow(KStep,CountOrders(ot)),2);
   return(step);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void MATake(double ma)
  {
   bool m;
   double tp=0;

   for(int i=OrdersTotal()-1;i>=0;i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0)
              {
               tp=NormalizeDouble(ma,Digits);
               if(OrderTakeProfit()==0 && OrderTakeProfit()!=tp && OrderOpenPrice()<ma)
                  m=OrderModify(OrderTicket(),OrderOpenPrice(),0,tp,0,Yellow);
              }

            if(OrderType()==1)
              {
               tp=NormalizeDouble(ma,Digits);
               if(OrderTakeProfit()==0 && OrderTakeProfit()!=tp && OrderOpenPrice()>ma)
                  m=OrderModify(OrderTicket(),OrderOpenPrice(),0,tp,0,Yellow);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double ma=iMA(NULL,0,MAPeriod,0,0,0,0);

   if(MATakeProfit>0) MATake(ma);

   if(ma-Bid>DeltaMA*Point && b)
     {
      PutOrder(0,Ask);//buy
      PutOrder(1,Bid);//sell

      for(int i=0;i<Count;i++)
        {
           {
            PutOrder(4,Bid+Delta*Point+Steps(4)*Point*i);//buystop
            b=false;
            s=true;
           }
        }
     }

   if(Bid-ma>DeltaMA*Point && s)
     {
      PutOrder(0,Ask);//buy
      PutOrder(1,Bid);//sell

      for(int i=0;i<Count;i++)
        {
         PutOrder(5,Bid-Delta*Point-Steps(5)*Point*i);//sellstop
         s=false;
         b=true;
        }
     }
  }
//+------------------------------------------------------------------+