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

//--- Inputs
extern int    StopLoss     = 15;
extern int    TakeProfit   = 60;
extern int    Step         = 10;
extern int    Slip         = 30;
extern int    Magic        = 123;
extern double Lots         = 0.1;
extern double KLot         = 5;
extern double MaxLot       = 5;

double Price=0,lot=Lots;
//+------------------------------------------------------------------+
//| 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=clrNONE;
   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);
     }

   if(AccountFreeMarginCheck(Symbol(),type,lot)<=0 || GetLastError()==134)
     {
      Print("Недостаточно средств!!!");
     }

   if(GetLastError()==131)
     {
      Print("Неправильный объем!!!");
     }

   if(lot>MaxLot) lot=Lots;
   r=OrderSend(NULL,type,lot,NormalizeDouble(price,Digits),Slip,sl,tp,"",Magic,0,clr);
   return;
//---
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int LastDealResult()
  {
   int result=0;

   if(OrderSelect(OrdersHistoryTotal()-1,SELECT_BY_POS,MODE_HISTORY))
     {
      if(OrderProfit()>0)
        {
         result=1;//tp  
        }
      if(OrderProfit()<0)
        {
         result=2;//sl  
        }
     }
   return(result);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   if(LastDealResult()>0) lot=Lots;
//--- sell conditions
   if(Bid>Price+Step*Point)
     {
      PutOrder(0,Ask);
      Price=Bid;
      lot*=KLot;
     }

   if(Bid<Price-Step*Point)
     {
      PutOrder(1,Bid);
      Price=Bid;
      lot*=KLot;
     }
   Comment("\n Price: ",Price,"\n Lot: ",lot);
  }
//+------------------------------------------------------------------+