//��������������������������������������������������������������������������������������������������������������������������
#property copyright "runik"
#property link      "ngb2008@mail.ru"
// 19.3
// + ���������� ��������� �����
// + �������� �������� OpenNewCycle
// + �������� ������ ���������, ��� ��������� ������ (������������) ������ ��� �  ���������� ���������� ���������  SPer � SPermall � ��������� ��������
// ��������� ��� Rigal � �������� ������� �����, "��������" ��� !

//19
// + �� 5 ������ ������� ��������� �������� ���������� (� ������ ������������� ������� ����������� ���������� ��������� � ������� �� 5 ������)
// + ��� ���������� ��������� �� ���� ��, � ������� ��������� ������ ���� ���������� � �����������, � ���� � �����, ���� ���� ��������� ����� ������� ����� �� ��� ��������� ���������
// + ����� ���������� ����������� ������� ����,  ����� �������� lotdecimal (� ������ ������������� ������� ����������� ���������� ���)
// + ������ ��� (�� ������ �������� ������ ��� ������) ����� ������������ ��� � �� ��� �� �������� ���������� �� �����, ����� ���� ������
// + �������� ��������� ���������� � ��������� � ���� ������� ��� �������� (��. ��������� FDir, IndOff1, IndOff2)

// �������� ����� ������ �� ����� ������ �� �1 �� �1
// ��� ������ ����� ��������� i-Regr

// ������ ��� �������� � ���� ������������ ����� ���������� "�������" ���� ������ 1.4 - 1.5 - 1.6

// ������� !!! ���������� ����� ��������� � ������� ! 
// �� ������ �������� ������� �����-������ ...

// ���� ����������� ���� �� �������� �� ������� � ������ ������� ��������� ��� ����������� �� ���������.
// ��������� ������ ����� �����, ������� ���� ����������� ���� �������� ��������� ��� ngb2008[a]mail.ru
// ���� �� ������ �������������� ������ ��������, �� ����������. ��� ������ ���� ���������� � �������� GNU.
// �� ���������� �������� ���������������� ��� � �� ���������� ��� �����.
// ���� ��� ���������� ������ �������� � �� �� �������������, 
// �� ������ ������� ������� :)  � ������� ������� Z182368142593
// ���������� ��� ��� �� �������� (��� �����) � ���� ��. ����� (������ ����� ������, ��� ������� �� ��������� �����)
// � ��. �����

extern string �2= "�������� ���������";
// ����� ��� ��� � ������� �����, ������� �������� ����� ��� ��� ���� �� ������� ����������� � ����� �� ������������ ������ ��������, 
// ������ �������������, ������ ����� �� ������ ����
extern double LotExponent = 1.2;  // ��������� ����� � ����� �� ���������� ��� ������ � ���������. ������ ��� 0.1, �����: 0.15, 0.26, 0.43 ...
double learr[25]={1.3,1.4,1.5,1.6,1.7,2,2,2,2,1.3,1.3,1.3,1.3,1.3,1.3,1.3,1.3,1.6,1.6,1.6,1.6,1.6,1.6,1.6}; // dec �� ������ ��� ���� LotExponent=0 
extern double TakeProfit = 50;  //dec ����������� ���� ������, ���� = 0 �� ���������� ������ �������� ������ ��� ��������� �����
int tparr[25]={10,10,10,10,20,30,30,30,30,30,30,30,30,30,30,30,30,10,10,10,10,10,10,10,10,10}; // dec(�������� ��� 5 ������ ���� ����� ��������!)
extern double PipStep = 50;     //dec ��� ������� ������
double psarr[25]={70,110,110,110,110,110,110,110,110,110,110,110,90,90,90,90,90,90,170,180,190,200,200,200,200,200}; //dec �������� ���� PipStep=0(�������� ��� 5 ������ ���� ����� �������� !)
                                                                                                
extern string c9 = "MM";
extern double Lots = 0.1;         // ������ ����� � ��������� 0.01 ��� ���� ���� ����� 0.1 �� ��������� ��� � ����� ����� 0.15
extern double Risk = 2;          // ������ ������ �������� � % �� ����, ���� = 0 �� ������ ������ ����������� �������� Lots
// ��� ��������� ����� � ��� ������ ����� ����� �� ��������� ����� �� ���������� ��������� ������ � � �� �������������� �������� 0,1 - 0,2 - 0,4 - 0,8 - 1,6 - 1,6 - 1,6 ...
extern double LastTrade=100; // ����� ����� ������ ������� ������� ����������� = ���������� ��������� � ���� ����������� � ����� ��������� + lastradeprofit
extern double TakeProfitLast = 10.0;  //dec ����������� ���� ������ ����� ������� ������ ������ ��� LastTrade
extern double LasTradeSize=17; // ������������ ������ �������� ������ � % �� ����, �������� ��� ���� 10 000 ������ ��������� ������� �� ������ 1 ����
extern int    MaxTrades = 50;                // ����������� ���������� ������������ �������� �������
extern bool OpenNewCycle    = true; // ���� false, �� �� ��������� ��������� ����� ������, �.�. ��� ��������� ���������

extern string s11 ="��������� ������ �� ������";
// ��� ��������� �������� �� ������ ��������� ����� ���� ���������� (��� ����������) �� ������, ����� ����� ����� ��� ����  NumTr = 2 �� �� ������ �� ���������� ���� ��������� �����
// ����� ������� �������� �������� ��� ���������� ������ ���� ������� ������������ �������������� ��� ��������� ���������, ����������� ��� �������, � �������� NumTr (5-6)
// �� ���� �� ������� � ������� ����������� � �������� ����������� ��� � ������� �����, �� � ��� ����� ��������� "�����"
extern double TrendPS = 7;     //dec ��� �������� ����� �� ������, ���� =0 �� �� ������ �� ��������, ������ ������ ������ ��� ������ ������ ������
extern double ProfitPerc= 5;   //dec ���� �� ������ ��������� ������� ����� 10% ��������, �� ��������� ��� ����� � ��������
extern double MinProfitPips =15; //dec ���� � ��� ������ ����� �� ������ � ���� ����� ������ ���, �� ����������� �� ���������, ������� ���������� � + �� ������ MinProfitPips �� ����� ���������
extern double MinProfitPipsOne =2; //dec ���� � ��� ������ ����� �� ������ � ���� ����� ������ ���, �� ����������� �� ���������, ������� ���������� � + �� ������ MinProfitPips �� ����� ���������
extern double NumTr=2; // ������� ������� ��������� ���� ���� ����� �� � ���� �������                           
extern int FDir = 2;     //  �������������� ����� �����������
  // ���� =-1 �������� �� ������� ���������� ���������� ������,
  // ���� = 0 �� ������ ������ ������ � ����� ����������� �� ���, 
  // (=1 ����) �� ������ ������� �� ��������� � ��������� ����, 
  // =2 - �� ������ ���������� ���������, � ����������� �� ����������� ������

extern string c3= "��������������� ���������";
extern int MagicNumber = 54321;    // �����
extern double slip = 3.0;          //dec ���������������
// ������ ����� ...
extern double PercDown=0; // �.�. ���� �� "�������������" (�.�. ���� ������� ������ �� � ����� �����������) �������� �� �������� �� ����� ������ ������ 30 % �� �������� �������, �� ��� ���� ����������� � ����� �� ���������
extern double PercClose=0; // ������� ���� �� ����� �� 10 % �������� ����� 30 ���� ����������� � ����� �������, ������ ����������� ��������������, ���� �� 60 % ������� � ��������, �� ��������� ��� 20 %
                           // ����� �� ������������ ������ �������� ���� ��������� ��� ��������� ������� 0
extern int ComOn=0; // ��������� ����� ������������ ��� =0                           
extern string c4= "��������� ��������� � ��������";
extern int TFIlanX=0;    // ��������� �� ������� ���� ��������� ������ ��. mper ��� = 5 - H1
// ���� ������ �������
extern int nH1=0;       //   =3 ����� 3 ������ ������������� �� �� �1
extern int nH4=0;       //   =5 ����� 5 ������ ������������� �� �� �4

extern string c8= "��������� ����";
// ���� ���� � ��� �������� ��� � ��������, �� ����� �����: ������ ��� ���� ��������� trendmagic 
// ������� ������ ����������� ��� ����� �����, ���� ��� ��������� �������� � ���� ����� ������ ����, �� ���������� ����� ������� ����� � ����������������� �������
// ������� �� ����� �������� (����� ���. ������, ������, ����������� ������) �������� ��� ��������� ���� ����������, ��������, ���������, �����
extern double LockS=0; // �������� ���������� ����� ������� � �������� �������������� �������, ���� =0 �� �� ��������, ���� =0.5, �� �������� 50% ������� �����
extern int LMagN=689; // ���������� ����� ��� ������� ����
extern int NumLockMin=10; // ����� ������ �� ����� ������ ��������� ������� ����� ���� ��������� ����������� ������ ������� �����������
extern int NumLoc=15; // ����� ������ �� ����� ������ ��������� ������� ����� ���� ���������� ������� ������ ����� �������
extern int MaxDist=400; //dec ������������ ���������� �� ������ ������ ����� �������� ��� �� ��������� ���
extern int LockProfitPerc=1; // ��������� ��������� � % �� �������� ��� �������� ���� ������� ������� � �����
extern int koridor = 50; // dec ���������� � ����� ������� ��� ���������������� � �������
extern double Lmul = 2; // ��������� ������� � ����������� ������� �������
extern int MaxLockTrades = 4; // ������������� ���������� ������� �������
extern int CCPeriod = 50; // �������� ���������� ���������� ��� �������� ���� TrendMagic
extern int ATRPeriod = 5; // �������� ���������� ���������� ��� �������� ���� TrendMagic
extern int TMTF = 7; // ��������� �� ������� �������� ��������� ���������
int TradeAfterLock = 0; // ��� =0 ���� � ��� �������� ���, �� �� ��������� ���������, = 1 ���������� ���������

extern string _tmp2_ = " --- i-Regr --- � ������� �������� ����������� ���������� �����";
// �� ������� ���������� � ����� ����������� ���������� "���������� �����" ������ �������� ������� �� ����������� (������ ������)
// ������� ��� � ���������� ����������� ������� ���������, ���� �������� � ��������� �� ����, �� �� 2000 ������� �������� (���� ��� ���� � ����� ������ ��� 5 % ����, �� �������� ������ � ��������)
// ������� ����� ���� ����������� ������� �������� ����������� ������ !
// ��� ����� ������ ������ ����� ������ ������ � ��������� ������, �������� (��������� ���������) 3, 1.5, 2, 0, 800, 5, 0
extern bool IndOff1=false; // ���������� ��������� ��� = TRUE
extern int Regr.degree1 = 6; // ������� ��������� 
extern double Regr.kstd1 = 5; // ������ ������, ���� =0 �� �������� ������ ������� �����
extern int kanal=2; // ������� ������ � ��������� �����, ��� =2 �� ���������� ������� �� ��������� ������, =1 ������ �� ��������� ����� �������, = 0 �� ��������� ������� ������ ���������� �������� ����� �������
int Regr.shift1 = 0; // �������� ������������ �������� ����
extern int SPer = 170; // ������ �����
extern int TFS=8;     // ��������� �� ������� �������� ���������, 
extern int invert=0; // ���� = 0 �� �� ������, ���� =1 �� �������� ������ ����������� ������, ����� ������������ � �����
// ���� ��� �������� ������ ����� �������� ������� � �����, �� ������������� ��� invert=1; �� ������ ��������� � +

extern string _tmp3_ = " --- i-Regr --- � ����� ��������";
// �� ������� ���������� � ����� ����������� �� ���������� ���� ���� ����� ������ ���, ���� �� ��������� ������������ ��� �������� � �������� ������� �������
// ��� ����� ���������� ������ ����� ����������� ������ � ��, �������� (��������� ���������) 1, 3,1.5, 0, 800, 5
extern bool IndOff2=false; // ���������� ��������� ��� = TRUE
extern int Regr.degree1mall = 3; // ������� ��������� 
extern double Regr.kstd1mall = 1.5; // ������ ������, ���� =0 �� �������� ������ ������� �����
int Regr.shift1mall = 0; // �������� ������������ �������� ����
extern int SPermall = 50; // ������ �����
extern int TFSmall=3;     // ��������� �� ������� �������� ���������


//��������������������������������������������������������������������������������������������������������������������������
extern bool UseEquityStop = FALSE;
extern double TotalEquityRisk = 20.0;

bool UseTimeOut = FALSE;
double MaxTradeOpenHours = 48.0;
extern string t2 = " ��������� ���������";
// ��� ���������� ����������, �������� ...
extern int UseTrailingStop = 0; // 0-�� ���������� ����, 1 - ����������� ����, 2 - ���� ���� ������
extern int ProfitTrailDist = 30; //dec ���������� �� ����� ���������, ����� ������� �������� ����  //+------------------------------------------------------------------+
extern int TrailDist = 80; //dec ���������� �� ������� ������� ��������                            //| �������� �����������-������������                                |
extern int TrailStep = 10; //dec ������������ ������ ������ 5 �������                              //| ������� ��������� ����� �������, ���������� �� ����� ��������,  |
extern int NumIT = 3; // ����� ������ ���������� ������ ���������� ����                         //| �� ������� �������� ����������� (�������) � "���", � ������� �� ����������� (�������)   |
                                                                                                //| ������: ��� +30 ���� �� +10, ��� +40 - ���� �� +20 � �.�.        |
extern double xtral=2; // �������� ���, ���������� �� ����� ��������� �� ��������� � xtral ��� ������ ��� �� ����� �� �� ����, �������� ���� ���� �� 90 � � +, ������ ���� �� ������ 30 � � ���� ���������                                                                                              
                                                                                                
//��������������������������������������������������������������������������������������������������������������������������

int mper[10]={0,1,5,15,30,60,240,1440,10080,43200};
int TFIlan=0;
int ccc=0;
double lota[100]; // ����
int modea[100];   // ��� ������ OP_BUY 0 , OP_SELL 1 , OP_BUYLIMIT 2 , OP_SELLLIMIT 3 , OP_BUYSTOP 4 , OP_SELLSTOP 5 
double opa[100];       // ���� ��������
double sla[100];      // ��������
double tpa[100];      // ������
string comma[100];     // �����������
datetime tima[100];    // ����� �������� ������ 
double profa[100];
int ticka[100]; 
//��������������������������������������������������������������������������������������������������������������������������
double PriceTarget, StartEquity, BuyTarget, SellTarget, AveragePrice, SellLimit, BuyLimit,LastBuyPrice, LastSellPrice, Spread,mac;
bool flag;
string EAName = "Ilan_extr19";
int timeprev = 0, expiration;
int NumOfTrades = 0;
double iLots;
int cnt = 0, total;
double Stopper = 0.0;
bool TradeNow = FALSE, LongTrade = FALSE, ShortTrade = FALSE;
int ticket;
bool NewOrdersPlaced = FALSE;
double AccountEquityHighAmt, PrevEquity;
int TrendRe=1; // ��� =0 ����� �������� �����, ��� =1 ����� �����, �.�. ���������� �� ������
double LastDD=0; // ����� ����������� ������������ �������� ��� ������� ����� ������
double FirstTr=0; // ����� ���������� ����� ������ ������ � �����
int ClLock=0;  // ���� ��� �������� ����
double LocSummP =0; // ����� ���������� ������� ���������� �� ���� ��� ������ �����
double LastLPrice = 0; // ���� �������� ���������� ����
int stoptrade2l=0;
bool init = false;
int last_tick = -1;

//��������������������������������������������������������������������������������������������������������������������������
int init() {
   if(init) return(0);
   
   int BrokerDecimal=1;    
   // ���� ������ ���� ��������� �� ������ � ��������� � ���� ������ - ���� ����� ������ ������������ � 10 ��� - ������ ���������   
if(Digits==3 || Digits==5) BrokerDecimal=10;
// ����������� ��� ������ � ������ �� ���������
   PipStep      = PipStep * BrokerDecimal;
   TakeProfit   = TakeProfit * BrokerDecimal;
   TakeProfitLast = TakeProfitLast* BrokerDecimal;
   TrendPS = TrendPS * BrokerDecimal;
   MinProfitPips = MinProfitPips * BrokerDecimal;
   MinProfitPipsOne = MinProfitPipsOne* BrokerDecimal;
   MaxDist =MaxDist* BrokerDecimal;
   koridor =koridor* BrokerDecimal;
   ProfitTrailDist = ProfitTrailDist * BrokerDecimal;
   slip      = slip*BrokerDecimal;
   TrailDist     = TrailDist*BrokerDecimal;
   TrailStep     = TrailStep*BrokerDecimal;   
   last_tick = TimeCurrent(); 
   init = true;
   return (0);
}

int deinit() {
   return (0);
}
//��������������������������������������������������������������������������������������������������������������������������
int start() 
{
   last_tick++;
   total = CountTrades(MagicNumber);

   if(total == 0 && !OpenNewCycle)
   return (0);

   PercCloseDown(); // 
   
    if (TrendPS>0 && stoptrade2l==0) TrenT();  
   
   
   if (TrendRe==0)
     {
     ProfitMonitor(); // ���� ������� ������� ����� �� �� ������ ������ ��������� �������� (������� ��������� ���� ���������� �� ����������)
     }
   int ct=NumT();

      if (UseTrailingStop >0 && ct>=NumIT) TrailingAlls();

   if (UseTimeOut) {
      if (TimeCurrent() >= expiration) {
         CloseThisSymbolAll(MagicNumber);
         PrintF("Closed All due to TimeOut");
      }
   }
   if (LockS>0) ControlLock();
   if (LockS>0) BeginLockTrade(); // �������� ������������ ���� ������� ���������
   
   TFIlan=TFIlanX;
   if (nH1!=0 && NumT()>=nH1) TFIlan=5;
   if (nH4!=0 && NumT()>=nH4) TFIlan=6;
   if (FDir<0)
   {
   if (timeprev == iTime(NULL,mper[TFIlan],0)) return (0);   
   }
   if (total>=1 && FDir>=0)
   {
   if (timeprev == iTime(NULL,mper[TFIlan],0)) return (0);   
   }
   timeprev = iTime(NULL,mper[TFIlan],0);

   // ���������� ������� �� ���� �� !!! 
  if (!IsTesting()) { LoadHist();}
   // 
  
   double CurrentPairProfit = CalculateProfit();
   if (UseEquityStop) {
      if (CurrentPairProfit < 0.0 && MathAbs(CurrentPairProfit) > TotalEquityRisk / 100.0 * AccountEquityHigh()) {
         CloseThisSymbolAll(MagicNumber);
         PrintF("Closed All due to Stop Out");
         NewOrdersPlaced = FALSE;
      }
   }

   if (total == 0) flag = FALSE;
   for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
   {
      if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) 
         {
            if (OrderType() == OP_BUY) 
            {
               LongTrade = TRUE;
               ShortTrade = FALSE;
               break;
            }
            if (OrderType() == OP_SELL) 
            {
               LongTrade = FALSE;
               ShortTrade = TRUE;
               break;
            }
         }
   }
   
//   if (LockOn==1 && total>0) LockPositions();
   
   if (total > 0 && total <= MaxTrades) 
   {
      RefreshRates();
      LastBuyPrice = FindMinBuyPrice();
      LastSellPrice = FindMaxSellPrice();
      if (LongTrade && LastBuyPrice - Ask >= PipStepX(0) * Point && alerts(1)>0 ) TradeNow = TRUE;
      if (ShortTrade && Bid - LastSellPrice >= PipStepX(1) * Point && alerts(-1)<0) TradeNow = TRUE;      
      if (stoptrade2l==1) TradeNow = FALSE;
   }
   
   if (total < 1) {
      ShortTrade = FALSE;
      LongTrade = FALSE;
      TradeNow = TRUE;
      NewOrdersPlaced = FALSE;
      StartEquity = AccountEquity();
      if (stoptrade2l==1) TradeNow = FALSE;
   }
   if (TradeNow) {
 //     LastBuyPrice = FindLastBuyPrice();
 //     LastSellPrice = FindLastSellPrice();
      double MaxLot1=FindMaxLots();
      TrendRe=0;
      if (ShortTrade) {
         NumOfTrades = total;
         
         if (LotExponent>0) iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()+1)); 
         if (LotExponent==0) iLots = LotSiz(MaxLot1*learr[NumT()]);
         
         double ltsiz=LasTradeSize/100*AccountBalance()/1000;
         if (NumOfTrades>=LastTrade && LastTrade>0 && iLots>ltsiz) iLots = MaxLot1;
      
         RefreshRates();
         ticket = OpenPendingOrder(1, iLots, Bid, slip, Ask, 0, 0, "" + NumOfTrades, MagicNumber, 0, HotPink);
         if (ticket < 0) {
            PrintF("Error: "+ GetLastError());
            return (0);
         }
 
         TradeNow = FALSE;
         NewOrdersPlaced = TRUE;
      } else {
         if (LongTrade) {
            NumOfTrades = total;
         if (LotExponent>0) iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()+1)); 
         if (LotExponent==0) iLots = LotSiz(MaxLot1*learr[NumT()]);         
         ltsiz=LasTradeSize/100*AccountBalance()/1000;
         if (NumOfTrades>=LastTrade && LastTrade>0 && iLots>ltsiz) iLots = MaxLot1;
            ticket = OpenPendingOrder(0, iLots, Ask, slip, Bid, 0, 0, "" + NumOfTrades, MagicNumber, 0, Lime);
            if (ticket < 0) {
               PrintF("Error: "+ GetLastError());
               return (0);
            }
  
            TradeNow = FALSE;
            NewOrdersPlaced = TRUE;
         }
      }
   }
   if (TradeNow && total < 1) 
   {
      SellLimit = Bid;
      BuyLimit = Ask;
      TrendRe=1;
      if (!ShortTrade && !LongTrade) 
      {
         NumOfTrades = total;
         
         iLots = GetLots();                  
         iLots = LotSiz(GetLots()* MathPow(LotExponent, NumT()));  
                       
            int axx=-1;
            if (FDir==-1) axx=alerts(1);   // ���� ����� ��������� ������ ������ �� ������� ���������                  
            if (alert(-1)==-1 && axx==-1 && FDir!=0) 
              { 
               ticket = OpenPendingOrder(1, iLots, SellLimit, slip, SellLimit, 0, 0, "IER " + NumOfTrades, MagicNumber, 0, HotPink);
               if (ticket < 0) 
               {
                  PrintF("Error: "+ GetLastError()); return (0);
               }
               NewOrdersPlaced = TRUE;
            } //

            axx=1;
            if (FDir==-1) axx=alerts(0);  // ���� ����� ��������� ������ ������ �� ������� ���������
            if (alert(1)==1 && axx==1 && FDir!=1 && !NewOrdersPlaced) 
            { // ������  <
               ticket = OpenPendingOrder(0, iLots, BuyLimit, slip, BuyLimit, 0, 0, "IER " + NumOfTrades, MagicNumber, 0, Lime);
               if (ticket < 0) 
               {
                  PrintF("Error: "+ GetLastError());  return (0);
               }
               NewOrdersPlaced = TRUE;
            }
           
         
         if (ticket > 0) expiration = TimeCurrent() + 60.0 * (60.0 * MaxTradeOpenHours);
         TradeNow = FALSE;
      }
   }
   
   total = CountTrades(MagicNumber);
   AveragePrice = 0;
   double Count = 0;double maxpr=0; double minpr=10000000;
   for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
   {
      if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) 
         {
            if (OrderType() == OP_BUY || OrderType() == OP_SELL) 
            {
               AveragePrice += OrderOpenPrice() * OrderLots();
               Count += OrderLots();
            }
         }
   }
   if (total > 0) AveragePrice = NormalizeDouble(AveragePrice / Count, Digits);
   if (NewOrdersPlaced) 
   {
      double tp3=0;
      if (TakeProfit==0) tp3=tparr[NumT()];
      if (TakeProfit!=0) tp3=TakeProfit;
      for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
      {
         if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
            if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) 
            {
               if (OrderType() == OP_BUY) 
               {
                  PriceTarget = AveragePrice + tp3 * Point;
                  if (NumOfTrades>LastTrade+1) PriceTarget = AveragePrice + TakeProfitLast * Point;
                  flag = TRUE;
               }
               if (OrderType() == OP_SELL) 
               {
                  PriceTarget = AveragePrice - tp3 * Point;
                  if (NumOfTrades>LastTrade+1) PriceTarget = AveragePrice - TakeProfitLast * Point;
                  flag = TRUE;
               }
            }
      }
   }
   if (NewOrdersPlaced && TrendRe==0) 
   {
      if (flag) 
      {
         for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
         {
            if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
               if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
               {
                  if (OrderTakeProfit() != PriceTarget) 
                     ModifyOrder(Symbol(),OrderOpenPrice(),OrderStopLoss(), RoundToTickSize(PriceTarget), Yellow);             
                  NewOrdersPlaced = FALSE;
               }
         }
      }
   }
   return (0);
}
//��������������������������������������������������������������������������������������������������������������������������

int CountTrades(int m) 
{
   int count = 0;
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) 
   {
      if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == m)
            if (OrderType() == OP_SELL || OrderType() == OP_BUY) 
               count++;
   }
   return (count);
}

int LockTicket(int m)  // ���������� ����� � ��������� �������� ����������
{
   int t = 0;
   datetime dt = 0;
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) 
   {
      if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == m)
            if (OrderType() == OP_SELL || OrderType() == OP_BUY)
               if (dt < OrderOpenTime()) 
               {
                  t = OrderTicket();
                  dt = OrderOpenTime();
               }
   }
   return (t);
}
//��������������������������������������������������������������������������������������������������������������������������

void again() 
{
   timeprev = Time[1];
   return (0);
}

void CloseThisSymbolAll(int mn) {
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) {
      OrderSelect(trade, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() == Symbol()) {
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) {
         while (!IsTradeAllowed()) Sleep(1000);
            if (OrderType() == OP_BUY) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
            if (OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
            PrintF ("close ALL orders Type : order :  Bid  "+OrderType()+" :  "+OrderOpenPrice()+"  :  "+Bid);            
         }
      }
   }
}

//��������������������������������������������������������������������������������������������������������������������������

int OpenPendingOrder(int pType, double pLots, double pPrice, int pSlippage, double ad_24, int ai_32, int ai_36, string a_comment_40, int a_magic_48, int a_datetime_52, color a_color_56) {
   int l_ticket_60 = 0;
   int l_error_64 = 0;
   int l_count_68 = 0;
   int li_72 = 3;
   pPrice=NormalizeDouble(pPrice,Digits);
   switch (pType) {
   case 2:
      for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
         l_ticket_60 = OrderSend(Symbol(), OP_BUYLIMIT, pLots, RoundToTickSize(pPrice), pSlippage, StopLong(ad_24, ai_32), TakeLong(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
         l_error_64 = GetLastError();
         if (l_error_64 == 0/* NO_ERROR */) break;
         if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
         Sleep(1000);
      }
      break;
   case 4:
      for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
         l_ticket_60 = OrderSend(Symbol(), OP_BUYSTOP, pLots, RoundToTickSize(pPrice), pSlippage, StopLong(ad_24, ai_32), TakeLong(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
         l_error_64 = GetLastError();
         if (l_error_64 == 0/* NO_ERROR */) break;
         if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
         Sleep(5000);
      }
      break;
   case 0:
      for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
         RefreshRates();
         l_ticket_60 = OrderSend(Symbol(), OP_BUY, pLots, RoundToTickSize(Ask), pSlippage, StopLong(Bid, ai_32), TakeLong(Ask, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
         l_error_64 = GetLastError();
         if (l_error_64 == 0/* NO_ERROR */) break;
         if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
         Sleep(5000);
      }
      break;
   case 3:
      for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
         l_ticket_60 = OrderSend(Symbol(), OP_SELLLIMIT, pLots, RoundToTickSize(pPrice), pSlippage, StopShort(ad_24, ai_32), TakeShort(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
         l_error_64 = GetLastError();
         if (l_error_64 == 0/* NO_ERROR */) break;
         if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
         Sleep(5000);
      }
      break;
   case 5:
      for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
         l_ticket_60 = OrderSend(Symbol(), OP_SELLSTOP, pLots, RoundToTickSize(pPrice), pSlippage, StopShort(ad_24, ai_32), TakeShort(pPrice, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
         l_error_64 = GetLastError();
         if (l_error_64 == 0/* NO_ERROR */) break;
         if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
         Sleep(5000);
      }
      break;
   case 1:
      for (l_count_68 = 0; l_count_68 < li_72; l_count_68++) {
         l_ticket_60 = OrderSend(Symbol(), OP_SELL, pLots, RoundToTickSize(Bid), pSlippage, StopShort(Ask, ai_32), TakeShort(Bid, ai_36), a_comment_40, a_magic_48, a_datetime_52, a_color_56);
         l_error_64 = GetLastError();
         if (l_error_64 == 0/* NO_ERROR */) break;
         if (!(l_error_64 == 4/* SERVER_BUSY */ || l_error_64 == 137/* BROKER_BUSY */ || l_error_64 == 146/* TRADE_CONTEXT_BUSY */ || l_error_64 == 136/* OFF_QUOTES */)) break;
         Sleep(5000);
      }
   }
   return (l_ticket_60);
}

double StopLong(double ad_0, int ai_8) {
   if (ai_8 == 0) return (0);
   else return (ad_0 - ai_8 * Point);
}

double StopShort(double ad_0, int ai_8) {
   if (ai_8 == 0) return (0);
   else return (ad_0 + ai_8 * Point);
}

double TakeLong(double ad_0, int ai_8) {
   if (ai_8 == 0) return (0);
   else return (ad_0 + ai_8 * Point);
}

double TakeShort(double ad_0, int ai_8) {
   if (ai_8 == 0) return (0);
   else return (ad_0 - ai_8 * Point);
}

double CalculateProfit() 
{
   double ld_ret_0 = 0;
   for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
   {
      if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
            if (OrderType() == OP_BUY || OrderType() == OP_SELL) 
               ld_ret_0 += OrderProfit();
   }
   return (ld_ret_0);
}

void TrailingAlls() 
{     
   int  total2=CountTrades(MagicNumber);   
   if (CalculateProfit()<=0 || total2==0) return(0);

  
   double AveragePrice2 = 0;
   double Count2 = 0;
   int dir=-1;
   for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
   {
      if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) 
         {
            if (OrderType() == OP_BUY || OrderType() == OP_SELL) 
            {
               AveragePrice2 += OrderOpenPrice() * OrderLots();
               Count2 += OrderLots();
               if (OrderType() == OP_BUY) dir = 0;
               if (OrderType() == OP_SELL) dir = 1;            
            }
         }
   }
   if (total2 > 0) 
    {   
    
    AveragePrice2 = RoundToTickSize(AveragePrice2/Count2);    
    } 
       
     if (dir==0) 
      {
       if (AveragePrice2>Bid-ProfitTrailDist*Point) return(0);
      } 
     if (dir==1) 
      {
       if (AveragePrice2<Bid+ProfitTrailDist*Point) return(0);
      }        
      for (int i = OrdersTotal() - 1; i >= 0; i--) 
      {
         if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) 
         {
            if (OrderSymbol() == Symbol() || OrderMagicNumber() == MagicNumber) 
            {
              if (UseTrailingStop == 1) TrailingStairs(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
              if (UseTrailingStop == 2) TrailingStairs2(OrderTicket(),TrailDist,TrailStep,AveragePrice2);
            }
         }
            
      }
}
      
//+------------------------------------------------------------------+
//| �������� �����������-������������                                |
//| ������� ��������� ����� �������, ���������� �� ����� ��������,  |
//| �� ������� �������� ����������� (�������) � "���", � ������� ��  |
//| ����������� (�������)                                            |
//| ������: ��� +30 ���� �� +10, ��� +40 - ���� �� +20 � �.�.        |
//+------------------------------------------------------------------+
void TrailingStairs(int ticket,int trldistance,int trlstep,double avg)
{  
   double nextstair; // ��������� �������� �����, ��� ������� ����� ������ ��������

   // ��������� ���������� ��������
   if ((trldistance<MarketInfo(Symbol(),MODE_STOPLEVEL)) || (trlstep<1) || (trldistance<trlstep) || (ticket==0) || (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)))
      {
      Print("�������� �������� TrailingStairs() ���������� ��-�� �������������� �������� ���������� �� ����������.");
      return(0);
      } 
   
   // ���� ������� ������� (OP_BUY)
   if (OrderType()==OP_BUY)
      {
      // �����������, ��� ����� �������� ����� ������� ��������������� ��������
      // ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
      if ((OrderStopLoss()==0))
      nextstair = avg + trldistance*Point;
         
      // ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
      else
      nextstair = OrderStopLoss() + trldistance*Point;

      // ���� ������� ���� (Bid) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
      if (Bid>=nextstair)
      if ((OrderStopLoss()==0)) 
      OrderModify(ticket,OrderOpenPrice(),avg + trlstep*Point,OrderTakeProfit(),OrderExpiration());
      else
      OrderModify(ticket,OrderOpenPrice(),OrderStopLoss() + trlstep*Point,OrderTakeProfit(),OrderExpiration());
      }
      
   // ���� �������� ������� (OP_SELL)
   if (OrderType()==OP_SELL)
      { 
      // �����������, ��� ����� �������� ����� ������� ��������������� ��������
      // ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
      if ((OrderStopLoss()==0) )
      nextstair = avg - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
      
      // ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
      else
      nextstair = OrderStopLoss() - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
       
      // ���� ������� ���� (���) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
      if (Ask<=nextstair)
      if ((OrderStopLoss()==0))
      OrderModify(ticket,OrderOpenPrice(),avg - (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
      else
      OrderModify(ticket,OrderOpenPrice(),OrderStopLoss()- (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
      }      
   }

void TrailingStairs2(int ticket,int trldistance,int trlstep,double avg)
   {  
   double nextstair; // ��������� �������� �����, ��� ������� ����� ������ ��������

   // ��������� ���������� ��������
   if ((trldistance<MarketInfo(Symbol(),MODE_STOPLEVEL)) || (trlstep<1) || (trldistance<trlstep) || (ticket==0) || (!OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)))
      {
      Print("�������� �������� TrailingStairs() ���������� ��-�� �������������� �������� ���������� �� ����������.");
      return(0);
      } 
   
   // ���� ������� ������� (OP_BUY)
   if (OrderType()==OP_BUY)
      {
      // �����������, ��� ����� �������� ����� ������� ��������������� ��������
      // ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
      if ((OrderStopLoss()==0))
      nextstair = avg + trldistance*Point;
         
      // ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
      else
      {double trl=(OrderStopLoss()-avg)/Point;
      nextstair = OrderStopLoss() + xtral*trl*Point;}

      // ���� ������� ���� (Bid) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
      if (Bid>=nextstair)
      if ((OrderStopLoss()==0)) 
      OrderModify(ticket,OrderOpenPrice(),avg + trlstep*Point,OrderTakeProfit(),OrderExpiration());
      else
      OrderModify(ticket,OrderOpenPrice(),OrderStopLoss() + trlstep*Point,OrderTakeProfit(),OrderExpiration());
      }
      
   // ���� �������� ������� (OP_SELL)
   if (OrderType()==OP_SELL)
      { 
      // �����������, ��� ����� �������� ����� ������� ��������������� ��������
      // ���� �������� ���� �������� ��� ����� 0 (�� ���������), �� ��������� ������� = ���� �������� + trldistance + �����
      if ((OrderStopLoss()==0) )      
      nextstair = avg - (trldistance + MarketInfo(Symbol(),MODE_SPREAD))*Point;
      
      // ����� ��������� ������� = ������� �������� + trldistance + trlstep + �����
      else
      {trl=(avg-OrderStopLoss())/Point;
      nextstair = OrderStopLoss() - (trl*xtral + MarketInfo(Symbol(),MODE_SPREAD))*Point;
      }
       
      // ���� ������� ���� (���) >= nextstair � ����� �������� ����� ����� ��������, ������������ ���������
      if (Ask<=nextstair)
      if ((OrderStopLoss()==0))
      OrderModify(ticket,OrderOpenPrice(),avg - (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
      else
      OrderModify(ticket,OrderOpenPrice(),OrderStopLoss()- (trlstep + MarketInfo(Symbol(),MODE_SPREAD))*Point,OrderTakeProfit(),OrderExpiration());
      }      
   }


double AccountEquityHigh() {
   if (CountTrades(MagicNumber) == 0) AccountEquityHighAmt = AccountEquity();
   if (AccountEquityHighAmt < PrevEquity) AccountEquityHighAmt = PrevEquity;
   else AccountEquityHighAmt = AccountEquity();
   PrevEquity = AccountEquity();
   return (AccountEquityHighAmt);
}


double FindMinBuyPrice() {
   double l_ord_open_price_8;
   double l_ticket_24;
   double ld_unused_0 = 0;
   double l_ticket_20 = 1000000000;
   for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) 
   {
      if(OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() == OP_BUY) 
         {
            l_ticket_24 = OrderOpenPrice();
            if (l_ticket_24 < l_ticket_20) 
            {
               l_ord_open_price_8 = OrderOpenPrice();            
               l_ticket_20 = l_ticket_24;
            }
         }
   }
   return (l_ord_open_price_8);
}

double FindMaxSellPrice() 
{
   double l_ord_open_price_8;
   double l_ticket_24;
   double ld_unused_0 = 0;
   double l_ticket_20 = 0;
   for (int l_pos_16 = OrdersTotal() - 1; l_pos_16 >= 0; l_pos_16--) 
   {
      if(OrderSelect(l_pos_16, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber && OrderType() == OP_SELL) 
         {
            l_ticket_24 = OrderOpenPrice();
            if (l_ticket_24 > l_ticket_20) {
               l_ord_open_price_8 = OrderOpenPrice();
               l_ticket_20 = l_ticket_24;
            }
         }
   }
   return (l_ord_open_price_8);
}

double GetLots() 
{
double minlot=MarketInfo(Symbol(), MODE_MINLOT);
double maxlot=MarketInfo(Symbol(), MODE_MAXLOT);
double steplot=MarketInfo(Symbol(), MODE_LOTSTEP);
if(Risk!=0)
 {
   double lot = AccountBalance() * Risk/100 / 1000.0;
  }
  else lot=Lots;
  
  if (lot<minlot)    {   lot=minlot;  }
  if (lot>maxlot)    {   lot=maxlot;  }
  int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10))); 
  lot = NormalizeDouble(lot,LotsDigits);
   return(lot);
} 

double LotSiz(double ltt)
{
double ls=0;
double minlot=MarketInfo(Symbol(), MODE_MINLOT);
double maxlot=MarketInfo(Symbol(), MODE_MAXLOT);
double steplot=MarketInfo(Symbol(), MODE_LOTSTEP);

int LotsDigits = MathCeil(MathAbs(MathLog(steplot)/MathLog(10)));
ls = NormalizeDouble(ltt,LotsDigits);

if (ltt<minlot)    {   ls=minlot;  }
if (ltt>maxlot)    {   ls=maxlot;  }

//int LotsDigits = MathCeil(MathAbs(MathLog( MarketInfo(Symbol(),MODE_MINLOT))/MathLog(10)));
//���������� �������� ���� ����� ������� � ������� �������. 


return(ls);
}

double PipStepX(int dir)
{
if (PipStep==0) double r=psarr[NumT()];
if (PipStep>0)r=PipStep;
return(r);
}




int TrenT()
{
int t=FillArray(MagicNumber);
// ����������� ������� ������� ������� � ���������� ����� �� ������ � ���� �� ������ �������� ��� ������ ������ � ������� �����
double minl1=10000;
if (Risk==0) minl1=Lots;
if (Risk>0)
{
   for (int i=0;i<100;i++)
   {
   if (minl1>lota[i] && lota[i]>0) minl1=lota[i];
   }
} // Risk

if (lota[ArrayMaximum(lota)]>minl1) { TrendRe=0;return(0);}

ModifTrendOrders();
TrendRe=1;

 int ii=-1; int jj=-1; // ���� ���� ������� ��� � ���� ������ ���� �����
 double lastb=0; double lasts=10000000;


 // �������� ������� �� ������
 
for(int cnt=0;cnt<100;cnt++)
{
if (modea[cnt]==0 && opa[cnt]>lastb && opa[cnt]>0){lastb=opa[cnt];ii=cnt;}
if (modea[cnt]==1 && opa[cnt]<lasts && opa[cnt]>0){lasts=opa[cnt];jj=cnt;} 
} 

if (modea[0]==0)
 {

 if (Ask>=lastb+TrendPS*Point) 
   {

   ticket=OrderSend(Symbol(),OP_BUY,minl1,NormalizeDouble(Ask,Digits),slip,0,0,"trend",MagicNumber,0,Green);
   

   if (ticket>0)
      {   
       ModifTrendOrders(); 
      return(0);
      }
   }
 }
if (modea[0]==1)
 {

 if (Bid<=lasts-TrendPS*Point) 
   {

   ticket=OrderSend(Symbol(),OP_SELL,minl1,NormalizeDouble(Bid,Digits),slip,0,0,"trend",MagicNumber,0,Red);   

      if (ticket>0)
      {

      ModifTrendOrders(); 
      return(0);
      }
   }
 } 

}

int FillArray(int mn1) // ��������� �������� ���� ������� ������� �������� �� ������� �����������
{
ArrayInitialize(lota,-1);
ArrayInitialize(modea,-1);
ArrayInitialize(opa,-1);
ArrayInitialize(sla,-1);
ArrayInitialize(tpa,-1);
ArrayInitialize(tima,-1);
ArrayInitialize(ticka,-1);
ArrayInitialize(profa,-0.001);
  int c=0;
  int total  = OrdersTotal();

  for (int cnt = 0 ; cnt < total ; cnt++)
  {
    OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES);
    if (OrderMagicNumber() == MagicNumber && OrderSymbol()==Symbol())
    {
    lota[c]=OrderLots();
    modea[c]=OrderType();
    opa[c]=OrderOpenPrice();
    sla[c]=OrderStopLoss();
    tpa[c]=OrderTakeProfit();
    comma[c]=OrderComment();
    tima[c]=OrderOpenTime(); 
    ticka[c]=OrderTicket();        
    profa[c]=OrderProfit()+OrderCommission()+OrderSwap();    
    c++;
    }
  }  
  
 //   for (cnt=0;cnt<to;cnt++)  {   PrintF(lota[cnt],"  ", modea[cnt], "  ", opa[cnt], "   ", sla[cnt], "   ", tpa[cnt], "    ", tima[cnt], "   ", ticka[cnt]  );    }
 
  return(c);
}

int ModifTrendOrders()    
{

if (ProfitPerc>0) 
{
   int zk=0;
   for (int i=0;i<OrdersTotal();i++)
   {
   if (profa[i]!=-0.001) zk=zk+profa[i];
   }   
   if (zk>=AccountBalance()*ProfitPerc/100) 
    {   
    CloseThisSymbolAll(MagicNumber);   
    }
}
 
if (MinProfitPips>0)
   {
   double nf=0;   double mpric=0;int k=0;
    nf=nulfunc(MagicNumber);
    double allpro=0;   
 if (modea[0]==0)
    {
    double a1=nf+(MinProfitPips+1)*Point;
     for (i=0;i<100;i++)
         {
         if (opa[i]>mpric) mpric=opa[i]; 
         if (profa[i]!=-0.001) allpro=allpro+profa[i];
         if (profa[i]<=0 && profa[i]!=-0.001) k=k+1;           
          
                 
    /*    if ((opa[i]<=Bid-TrendPS*1.5*Point) && (sla[i]<Bid-TrendPS*Point) && opa[i]>0 && Bid-TrendPS*Point<Bid-MarketInfo(Symbol(),MODE_STOPLEVEL)*Point && a1>Bid-TrendPS*Point) 
           {
           if (ticka[i]>0) 
               {
       
               OrderSelect(ticka[i],SELECT_BY_TICKET);
               if (OrderStopLoss()!=mpric-TrendPS*Point) {ModifyOrder(Symbol(),OrderOpenPrice(),mpric-TrendPS*Point,OrderTakeProfit(),Green);          }
               }
           }*/
         }//a1+TrendPS*Point>=Bid &&
      if (mpric>a1+TrendPS*Point && a1+TrendPS*Point>=Bid && Bid>=a1 && CountTrades(MagicNumber)>2 && allpro>0) CloseThisSymbolAll2();   
      if (mpric<a1+TrendPS*Point && k>=NumTr  && CountTrades(MagicNumber)>NumTr) ClosePlusOrders(k);
     // if (mpric>a1+TrendPS*Point &&  Bid<=a1 && k>=NumTr  && CountTrades()>NumTr && allpro<0) ClosePlusOrders(k);      
   
       
      } // modea==0
      

 if (modea[0]==1)
    {mpric=1000000000;k=0;
    a1=nf-(MinProfitPips+1)*Point;
     for (i=0;i<100;i++)
         {
         if (opa[i]<mpric) mpric=opa[i]; 
         if (profa[i]!=-0.001) allpro=allpro+profa[i];
         if (profa[i]<=0 && profa[i]!=-0.001) k=k+1;      
         
      /*   if ((opa[i]>=Ask+TrendPS*1.5*Point) && (sla[i]>Ask+TrendPS*Point || sla[i]==0) && opa[i]>0 && Ask+TrendPS*Point>Ask+MarketInfo(Symbol(),MODE_STOPLEVEL)*Point && a1<Ask+TrendPS*Point) 
           {
           if (ticka[i]>0) 
               {
        
               OrderSelect(ticka[i],SELECT_BY_TICKET);
               if (OrderStopLoss()!=mpric+TrendPS*Point) {ModifyOrder(Symbol(),OrderOpenPrice(),mpric+TrendPS*Point,OrderTakeProfit(),Red);     }
               }
           }*/
         }//a1-TrendPS*Point<=Ask &&
      if (mpric>a1+TrendPS*Point && a1+TrendPS*Point>=Bid && Bid>=a1 && CountTrades(MagicNumber)>2 && allpro>0) CloseThisSymbolAll2();   
      if (mpric<a1+TrendPS*Point && k>=NumTr  && CountTrades(MagicNumber)>NumTr) ClosePlusOrders(k);
      //if (mpric<a1-TrendPS*Point &&  Ask>=a1 && k>=NumTr && CountTrades()>NumTr && allpro<0) ClosePlusOrders(k);    
   
                  
      } // modea==1
      
   }    
  
  return(0);
}


double FindMaxLots() 
{
   double maxLots = 0;
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) 
   {
      if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
            maxLots = MathMax(maxLots, OrderLots());
   }
   return (maxLots);
}

double nulfunc(int mn) // ��� �������� ����� �������������� ���� �������� ������� (���� ��� �� ������� �� ���� ���� �� ������� 0)
{
   double np=0;
   double f=0; 
   double p=0;
   double l=0; 
   int m=0;
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) 
   {
      if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
      {
         m = OrderType();
         p=OrderOpenPrice();
         l=OrderLots();
         if (m == OP_BUY)
            l=-l;
         if  ((m == OP_BUY || m == OP_SELL) && OrderMagicNumber() == mn && OrderSymbol() == Symbol()) 
         {
           np = np + l * p;  
           f = f + l;
         }
       }
    }
    if (f!=0) np = NormalizeDouble(MathAbs(np/f), Digits);       
    return (np);
}



int PercCloseDown()
{
   if (PercClose!=0 && PercDown!=0 && total>0)
   {
      double Pr11 = 0; 
      int oti = 2147483647;
      for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
      {
        if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
          if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber)
          {
            Pr11 = Pr11 + OrderProfit()+OrderCommission()+OrderSwap();
            oti = MathMin(oti, OrderTicket());
          }
      }
      if (FirstTr<oti) {FirstTr=oti;LastDD=0;}
      if (LastDD>Pr11 && Pr11<0) {LastDD=Pr11;}
     
      if (MathAbs(LastDD)>PercDown*AccountBalance()/100 && MathAbs(Pr11)<=PercClose*AccountBalance()/100) {LastDD=0;FirstTr=0;CloseThisSymbolAll(MagicNumber);}
   }
}


int ProfitMonitor()
{
   int total1 = CountTrades(MagicNumber);
   double AveragePrice1 = 0;
   double Count1 = 0;
   double Profit1=0;
   double ProfitPoint=0;
   int dir = -1;
   for (cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
   {
      if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) 
         {
            if (OrderType() == OP_BUY || OrderType() == OP_SELL) 
            {
               AveragePrice1 += OrderOpenPrice() * OrderLots();
               Count1 += OrderLots();
               Profit1+= OrderProfit();
               if (OrderType() == OP_BUY) dir=0;
               if (OrderType() == OP_SELL) dir=1;
            }
         }
   }
   if (total1 > 2) 
   { 
      AveragePrice1 = NormalizeDouble(AveragePrice1 / Count1, Digits);
      int ProfitPips=0;
      if (TakeProfit==0) ProfitPips=tparr[NumT()];
      if (TakeProfit!=0) ProfitPips=TakeProfit;
      if (total1>LastTrade) ProfitPips=TakeProfitLast;
      if (dir==0 && TrendRe==0) {ProfitPoint=AveragePrice1+ProfitPips*Point;if (Bid>=ProfitPoint) CloseThisSymbolAll(MagicNumber); }
      if (dir==1 && TrendRe==0) {ProfitPoint=AveragePrice1-ProfitPips*Point;if (Ask<=ProfitPoint) CloseThisSymbolAll(MagicNumber); }            
   } 
}


//+----------------------------------------------------------------------------+
//|  ����������� ������                                                        |
//|  ���������:                                                                |
//|    sy - ������������ �����������  ("" - ������� ������)                    |
//|    pp - ���� �������� �������, ��������� ������                            |
//|    sl - ������� ������� �����                                              |
//|    tp - ������� ������� �����                                              |
//|    cl - ����                                                               |
//+----------------------------------------------------------------------------+
void ModifyOrder(string sy="", double pp=-1, double sl=0, double tp=0, color cl=CLR_NONE) {
  if (sy=="") sy=Symbol();
  bool   fm;
  int NumberOfTry=1;
  int PauseAfterError=10;
  double pAsk=MarketInfo(sy, MODE_ASK);
  double pBid=MarketInfo(sy, MODE_BID);
  int    dg, err, it;

  if (pp<=0) pp=OrderOpenPrice();
  if (sl<0) sl=OrderStopLoss();
  if (tp<0) tp=OrderTakeProfit();
  
  dg=MarketInfo(sy, MODE_DIGITS);
  pp=RoundToTickSize(pp);
  sl=RoundToTickSize(sl);
  tp=RoundToTickSize(tp);

  if (pp!=OrderOpenPrice() || sl!=OrderStopLoss() || tp!=OrderTakeProfit()) {
    for (it=1; it<=NumberOfTry; it++) {
      if (!IsTesting() && (!IsExpertEnabled() || IsStopped())) break;
      while (!IsTradeAllowed()) Sleep(5000);
      RefreshRates();
      if (NormalizeDouble(tp,Digits)!=OrderTakeProfit()) fm=OrderModify(OrderTicket(), NormalizeDouble(pp,Digits), NormalizeDouble(sl,Digits), NormalizeDouble(tp,Digits), 0, cl);
      if (fm) {
        //if (UseSound) PlaySound(NameFileSound); break;
      } else {
        err=GetLastError();
        PrintF("Error("+err+") modifying order: try "+it);
        PrintF("Ask="+pAsk+"  Bid="+pBid+"  sy="+sy+"  op="+OrderType()+
              "  pp="+pp+"  sl="+sl+"   OrderStopLoss()   "+OrderStopLoss()+"  tp="+tp+"  OrderTakeProfit  "+OrderTakeProfit());
        Sleep(1000*PauseAfterError);
      }
    }
  }
}
//+----------------------------------------------------------------------------+


int ClosePlusOrders(int kk)
{
   for (int trade = OrdersTotal() - 1; trade >= 0; trade--) 
   {
      if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol()) 
         {
            if (OrderMagicNumber() == MagicNumber && OrderProfit() + OrderSwap() > 0) 
            {
              if (OrderType() == OP_BUY && OrderOpenPrice()+MinProfitPipsOne*Point<=Ask && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
               if (OrderType() == OP_SELL && OrderOpenPrice()-MinProfitPipsOne*Point>=Bid  && OrderTakeProfit()==0) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
               PrintF ("close plus orders Type : order :  Bid  "+OrderType()+" :  "+OrderOpenPrice()+"  :  "+Bid);               
            }
            while (!IsTradeAllowed()) Sleep(1000);
            RefreshRates();
         }
   }
}

int PrintF (string s)
{
   if (ComOn == 1) Print(s);
}

double RoundToTickSize(double price)
{
   return(NormalizeDouble(MathRound(price/MarketInfo(Symbol(), MODE_TICKSIZE))*MarketInfo(Symbol(), MODE_TICKSIZE), MarketInfo(Symbol(), MODE_DIGITS)));
}

int NumT() // ����������� ������ ������� ������
{
   int nmax = 0;
   for (int cnt = OrdersTotal() - 1; cnt >= 0; cnt--) 
   { 
      if(OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) 
            if (OrderType() == OP_BUY || OrderType() == OP_SELL) 
               if (StringFind(OrderComment(), "trend") == -1) 
                  nmax = nmax+1;
   }
   return(nmax);
}


void CloseThisSymbolAll2() {
   for (int trade = 0; trade <= 99; trade++) {
      OrderSelect(ticka[trade], SELECT_BY_TICKET, MODE_TRADES);
      if (OrderSymbol() == Symbol()) {
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == MagicNumber) {
         while (!IsTradeAllowed()) Sleep(1000);
         RefreshRates();
            if (OrderType() == OP_BUY) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Bid,Digits), slip, Blue);
            if (OrderType() == OP_SELL) OrderClose(OrderTicket(), OrderLots(), NormalizeDouble(Ask,Digits), slip, Red);
           PrintF ("close ALL orders Type : order :  Bid  "+OrderType()+" :  "+OrderOpenPrice()+"  :  "+Bid);            

         }
      }
   }
}


int Dir(int mn)
{
   int r=-1;
   for (int i = OrdersTotal() - 1; i >= 0; i--) 
   {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
      {
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn) 
         {
            if (OrderType() == OP_BUY) 
               r=1;
            else if (OrderType() == OP_SELL) 
               r=-1;
         }
      }
   }
   return(r);
}
 
double Balance(int mn)
{
   double result=0, FProf = 0;
   int trade;
   for(trade=OrdersTotal()-1;trade>=0;trade--)
   {
      if(OrderSelect(trade, SELECT_BY_POS, MODE_TRADES))
         if(OrderSymbol()==Symbol()&&OrderMagicNumber()==mn)
               result += OrderProfit() - OrderSwap() - OrderCommission();                                      
   }
  return(result);    
}

double CountLots(int mn) 
{
   double lots = 0;
   for (int i = OrdersTotal() - 1; i >= 0; i--) 
   {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
            if (OrderType() == OP_SELL || OrderType() == OP_BUY) 
               lots += OrderLots();
   }
   return (lots);
}

void LoadHist()
//---------��� ����� ���� �� ����������� ����� �������� BigGun c fx4u.ru
{
   int iPeriod[9];
   iPeriod[0]=1;
   iPeriod[1]=5;
   iPeriod[2]=15;
   iPeriod[3]=30;
   iPeriod[4]=60;
   iPeriod[5]=240;
   iPeriod[6]=1440;
   iPeriod[7]=10080;
   iPeriod[7]=43200;
   for (int iii=0;iii<9;iii++)
   {
      double open = iTime(Symbol(), iPeriod[iii], 0);
      int error=GetLastError();
      while(error==4066)
      {
         Print("Error 4066: Data for symbol = ", Symbol(), " period = ", iPeriod[iii], " not loaded. Loading data...");
         Sleep(10000);
         open = iTime(Symbol(), iPeriod[iii], 0);
         error=GetLastError();
      }
   }
}

void BeginLockTrade()
{
   
    int ct=NumT();    
    int ol=0;      
    int ld=Dir(MagicNumber); // ���������� ����������� ����� 1(b) ��� -1(s)
    int lm=LockTicket(LMagN); // ��������� ���� �� � ����� ��� �������� ������� ������
    if (lm<=0) stoptrade2l=0;
    int lt=CountTrades(LMagN);
    if (lm<=0 && ct>=NumLoc) ol=1;// ������� ������� ������ ��� NumLoc
    if (lm<=0 && MaxDist<=FODist(MagicNumber,"max")) ol=1;// ���� ���� �� ������� � ����� ������ �� �������� ������ ��� MaxDist
    if (lm<=0 && ct>=NumLockMin && alertl()==-ld && alertl2()==-ld) ol=1; // ������� ������� ������ ��� NumLockMin � ������ ��������� ���� ������ �������� � ������ �������
    if (ol==0 && lm>0 && lt<MaxLockTrades) // ���������� �����������
     {    
     // ���������� ��������� �����
     OrderSelect(lm,SELECT_BY_TICKET,MODE_TRADES);
     // ���������� ���������� � ���������� ����� �����
     if (OrderType()==OP_BUY)
       { 
       if ((OrderOpenPrice()-Bid)/Point>=koridor)
       int gi_328 = OpenPendingOrder(1, LotSiz(OrderLots()*Lmul), Bid, slip, Ask, 0, 0, EAName + "-Lock" , LMagN, 0, Yellow);
                  if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);      }
      }    
       if (OrderType()==OP_SELL)
       { 
       if ((Ask-OrderOpenPrice())/Point>=koridor)
      gi_328 = OpenPendingOrder(0, LotSiz(OrderLots()*Lmul), Ask, slip, Bid, 0, 0, EAName + "-Lock", LMagN, 0, Blue);
            if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);}
      }      
     }
     if (ol==1)  // ��������� ������ ������� �����
      {
      double al=CountLots(MagicNumber);          
      int lll=0;
      //if (LastLPrice+MinLP*Point<Ask || LastLPrice-MinLP*Point>Bid || LastLPrice==0) lll=1;
   //  Print ("   ct   ",ct,"  ld   ",ld,"  al  ",al,"   a   ",a ); 
      if (ld==1)     
      {
      ClLock =0; 
      gi_328 = OpenPendingOrder(1, LotSiz(LockS*al), Bid, slip, Ask, 0, 0, EAName + "-Lock" , LMagN, 0, Red);
                  if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);      }
                  if (TradeAfterLock==0) stoptrade2l=1;
       }
      if (ld==-1)
      {
      ClLock =0;       
      gi_328 = OpenPendingOrder(0, LotSiz(LockS*al), Ask, slip, Bid, 0, 0, EAName + "-Lock", LMagN, 0, Blue);
            if (gi_328 < 0) { Print("Error: ", GetLastError());again();return (0);}
            if (TradeAfterLock==0) stoptrade2l=1;            
      }
      
      }
     
   
     
 } // BeginLockTrade


 
void  ControlLock()
 {
 int lm=LockTicket(LMagN); // ��������� ���� �� � ����� ��� �������� ������� ������
 if (lm<=0) stoptrade2l=0;
 int lt=CountTrades(LMagN);
 if (lm>0) // ��������� ���� �� ��������� ���
   {
   double b=Balance(LMagN)+Balance(MagicNumber); 
   double xb=AccountBalance()/100*LockProfitPerc;
   if (b>0 && b>=xb) {CloseThisSymbolAll(LMagN);CloseThisSymbolAll(MagicNumber);}   
   }

 
 } // ControlLock
 
 
int FODist(int mn, string ex) // ���������� ���������� � ������� �� ������ �������� ������ � ���� ������ ��������
{
   double rs  = 0; 
   double rs1 = 0;
   if (ex == "max") 
      rs = 0;
   if (ex == "min") 
      rs=10000000000000;
   for (int i = OrdersTotal() - 1; i >= 0; i--) 
   {
      if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
         if (OrderSymbol() == Symbol() && OrderMagicNumber() == mn)
            if (OrderType() == OP_SELL || OrderType() == OP_BUY) 
            {
               rs1 = NormalizeDouble(MathAbs((Ask+Bid)/2-OrderOpenPrice())/Point,0);
               if (ex == "max")
                  rs = MathMax(rs, rs1);
               else if (ex == "min")
                  rs = MathMin(rs, rs1);
            }
   }
   return(rs);
}

int alert(int d6)       
{
   if (IndOff1) return(d6);
   static int x_r1;
   static datetime timeprev_r1;
   if (timeprev_r1 == iTime(NULL,mper[TFS],0)) return (x_r1);   
   timeprev_r1 = iTime(NULL,mper[TFS],0);
   x_r1 = 0;
   string ind_name = "i-Regr";
   double ma3=0;
   double ma = iCustom(NULL, mper[TFS], ind_name,    Regr.degree1, Regr.kstd1, SPer, Regr.shift1,0, 0);
   double ma1 = iCustom(NULL, mper[TFS], ind_name,    Regr.degree1, Regr.kstd1, SPer, Regr.shift1,0, 1);  
   if (invert==1) {ma3=ma;ma=ma1;ma1=ma3;}
   if (kanal==0)
   {
      if (ma>ma1) x_r1=1;
      if (ma<ma1) x_r1=-1;
   }   
   else
   {
      double m_up = iCustom(NULL, mper[TFS], ind_name,    Regr.degree1, Regr.kstd1, SPer, Regr.shift1,1, 0);
      double m_d = iCustom(NULL, mper[TFS], ind_name,    Regr.degree1, Regr.kstd1, SPer, Regr.shift1,2, 0);      
      if (kanal == 1)
      {
         if (ma>ma1 && Bid>m_d) x_r1 = 1;
         if (ma<ma1  && Ask<m_up) x_r1 = -1;
      }
      else if (kanal == 2)
      {
         if (ma>ma1 && Bid>m_d && Ask<m_up ) x_r1 = 1;
         if (ma<ma1  && Ask<m_up && Bid>m_d ) x_r1 = -1;
      }   
   }
   return(x_r1);
}

int alerts(int d6) 
{
   if (IndOff2) return(d6);
   static int x_r2;
   static datetime timeprev_r2;
   if (timeprev_r2 == iTime(NULL,mper[TFSmall],0)) return (x_r2);   
   timeprev_r2 = iTime(NULL,mper[TFSmall],0);
   x_r2 = 0;
   string ind_name = "i-Regr";
   double ma = iCustom(NULL, mper[TFSmall], ind_name,    Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 0);
   double ma1 = iCustom(NULL, mper[TFSmall], ind_name,    Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 1); 
   double m_up = iCustom(NULL, mper[TFSmall], ind_name,    Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,1, 0);
   double m_d = iCustom(NULL, mper[TFSmall], ind_name,    Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,2, 0);      
   if (ma>ma1 && Bid>m_d && Ask<m_up ) x_r2=1;
   if (ma<ma1  && Ask<m_up && Bid>m_d ) x_r2=-1;

   return(x_r2);
}

 
int alertl() 
{
   static int x_tm;
   static datetime timeprev_TM;
   if (timeprev_TM == iTime(NULL,mper[TMTF],0)) return (x_tm);   
   timeprev_TM = iTime(NULL,mper[TMTF],0);
   x_tm = 0;
   string ind_name = "TrendMagic";
   double ma = iCustom(NULL, mper[TMTF], ind_name,    CCPeriod, ATRPeriod, 0, 0);
   double ma1 = iCustom(NULL, mper[TMTF], ind_name,    CCPeriod, ATRPeriod, 1, 0); 
   if (ma!=EMPTY_VALUE) x_tm = 1;
   if (ma1!=EMPTY_VALUE) x_tm = -1;
   
   return(x_tm);
}

int alertl2() 
{
   static int x_r3;
   static datetime timeprev_r3;
   if (timeprev_r3 == iTime(NULL,mper[TFSmall],0)) return (x_r3);   
   timeprev_r3 = iTime(NULL,mper[TFSmall],0);
   x_r3 = 0;
   string ind_name = "i-Regr";
   double ma = iCustom(NULL, mper[TFSmall], ind_name,    Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 0);
   double ma1 = iCustom(NULL, mper[TFSmall], ind_name,    Regr.degree1mall, Regr.kstd1mall, SPermall, Regr.shift1mall,0, 1);    
   if (ma>ma1) x_r3=1;
   if (ma<ma1) x_r3=-1;
   return(x_r3);
}