//+------------------------------------------------------------------+
//|                                                 pair trading.mq4 |
//|                                               Copyright 2021, Ve |
//|                                      http://www.forexsystems.biz |
//+------------------------------------------------------------------+
#property copyright "Copyright 2021, Ve"
#property link      "http://www.forexsystems.biz"
#property version   "1.00"
#property strict
extern string s1="===============";
extern string S1     ="EURUSD";     //первая пара
extern double Lots1  =0.01;         //Лот 1 пара
enum Trade_direction1
  {
    Buy1=0,                         //Buy      
    Sell1=1                         //Sell          
  };
input Trade_direction1 Trade1 =0;   //направление сделки 
extern string s2="===============";
extern string S2     ="GBPUSD";     //вторая пара
extern double Lots2  =0.01;         //Лот 2 пара
enum Trade_direction2
  {
    Buy2=0,                         //Buy   
    Sell2=1                         //Sell     
  };
input Trade_direction2 Trade2 =0;   //направление сделки 
extern string s3="===============";
extern int Profit    =10;           //общий профит
extern int Slip          = 30;      //проскальзывание
extern int Magic         = 123;     //Magic
//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
  {
//---
   
//---
   return(INIT_SUCCEEDED);
  }
//+------------------------------------------------------------------+
//| Expert deinitialization function                                 |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
  {
//---
   
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+

void PutOrder(int type,double price,string symbol,double lot)
  {
   int r=0;
   color clr=Lime;
   double MINLOT = MarketInfo(symbol,MODE_MINLOT);
   double MAXLOT = MarketInfo(symbol,MODE_MAXLOT);
   
   if(lot<MINLOT)
     lot=MINLOT;
   if(lot>MAXLOT)
     lot=MAXLOT;

   if(type==1 || type==3 || type==5)
     {
      clr=Red;
     }

   if(type==0 || type==2 || type==4)
     {
      clr=Blue;
     }

   r=OrderSend(symbol,type,lot,NormalizeDouble(price,Digits),Slip,0,0,"",Magic,0,clr);
   return;
  }
//+------------------------------------------------------------------+
//| Профит всех ордеров по типу ордера                               |
//+------------------------------------------------------------------+
double AllProfit()
  {
   double pr=0;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if((OrderSymbol()==S1 || OrderSymbol()==S2) && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0)
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }

            if(OrderType()==1)
              {
               pr+=OrderProfit()+OrderCommission()+OrderSwap();
              }
           }
        }
     }
   return(pr);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
void CloseAll()
  {
   bool cl;
   for(int i=OrdersTotal()-1; i>=0; i--)
     {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
        {
         if((OrderSymbol()==S1 || OrderSymbol()==S2) && OrderMagicNumber()==Magic)
           {
            if(OrderType()==0)
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Bid,Digits),Slip,White);
              }
            if(OrderType()==1)
              {
               RefreshRates();
               cl=OrderClose(OrderTicket(),OrderLots(),NormalizeDouble(Ask,Digits),Slip,White);
              }
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int CountTrades(string symbol)
  {
   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()<2)
               count++;
           }
        }
     }
   return(count);
  }
//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
  {
   double bid_s1= MarketInfo(S1,MODE_BID);
   double bid_s2= MarketInfo(S2,MODE_BID);
   double ask_s1=MarketInfo(S1,MODE_ASK);
   double ask_s2=MarketInfo(S2,MODE_ASK);
   
   if(AllProfit()>0 && AllProfit()>=Profit)
     CloseAll();
   
   if(CountTrades(S1)<1)
     {
      switch (Trade1)
       {
        case 0: PutOrder(0,ask_s1,S1,Lots1);break;
        case 1: PutOrder(1,bid_s1,S1,Lots1);break;
       }
     }
   if(CountTrades(S2)<1)
     {
      switch (Trade2)
       {
        case 0: PutOrder(0,ask_s2,S2,Lots2);break;
        case 1: PutOrder(1,bid_s2,S2,Lots2);break;
       }
     }
   
  }
//+------------------------------------------------------------------+