Exp-Close-----SelectType-----

#property show_inputs
#property copyright "expforex"
#property link      "http://expforex.at.ua"
//+------------------------------------------------------------------+
//| EX4 imports                                                      |
//+------------------------------------------------------------------+
#include <stdlib.mqh>
#property show_inputs

extern string Ðàçðàáîò÷èê="http://expforex.at.ua";
extern string òåêñò="0-Çàêðûòü âñå îðäåðà";
extern string òåêñò2="1-Çàêðûòü âñå îðäåðà Buy";
extern string òåêñò3="2-Çàêðûòü âñå îðäåðà Sell";
extern string òåêñò4="3-Çàêðûòü âñå îðäåðà BuyStop";
extern string òåêñò5="4-Çàêðûòü âñå îðäåðà Sellstop";
extern string òåêñò6="5-Çàêðûòü âñå îðäåðà ñ ïðîôèòîì";
extern string òåêñò7="6-Çàêðûòü âñå îðäåðà ñ óáûòêîì";

extern int Ñïîñîáçàêðûòèÿ=0;
extern bool AllSymbols=true;
//+------------------------------------------------------------------+
//| global variables to program:                                     |
//+------------------------------------------------------------------+
double Price[2];
int    giSlippage;
bool   CloseOpenOrders = true;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+

void init()
{

Stamp();
start();
}
void start() {








  int iOrders=OrdersTotal()-1, i;

   if (AllSymbols==true){ 
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó                                    |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==2||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()<=OP_SELL) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
    }
  }
 
 }
  
  
  
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó                                    |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==1||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()==OP_BUY) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1],giSlippage)) Print(OrderError());
    }
  }
 
 }
    
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó Stop                               |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==3||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()==OP_BUYSTOP)  && !OrderDelete(OrderTicket())) Print(OrderError());
    }
  }
 
 }
 
 //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó  Stop                               |
//+-------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==4||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderType()==OP_BUYSTOP)  && !OrderDelete(OrderTicket())) Print(OrderError());
    }
  }
 
 }
 
  
  //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â ïðîôèòå                                       |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==5){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderProfit() >= 0)) {
        if((OrderType()<=OP_SELL) && GetMarketInfo()) {
          if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
        }
      }
    }
  }
 
 }
 
  //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â óáûòêå                                        |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==6){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && (OrderProfit() < 0)) {
        if((OrderType()<=OP_SELL) && GetMarketInfo()) {
          if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
        }
      }
    }
  }
 
 }}
 //************************************************************************************************
 
   if (AllSymbols==false){  
 //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó                                    |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==2||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()<=OP_SELL) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
    }
  }
 
 }
  
  
  
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó                                    |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==1||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()==OP_BUY) && GetMarketInfo() && !OrderClose(OrderTicket(),OrderLots(),Price[1],giSlippage)) Print(OrderError());
    }
  }
 
 }
    
//+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïîêóïêó Stop                               |
//+------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==3||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()==OP_BUYSTOP)  && !OrderDelete(OrderTicket())) Print(OrderError());
    }
  }
 
 }
 
 //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà íà ïðîäàæó  Stop                               |
//+-------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==4||Ñïîñîáçàêðûòèÿ==0){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderType()==OP_BUYSTOP)  && !OrderDelete(OrderTicket())) Print(OrderError());
    }
  }
 
 }
 
  
  //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â ïðîôèòå                                       |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==5){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderProfit() >= 0)) {
        if((OrderType()<=OP_SELL) && GetMarketInfo()) {
          if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
        }
      }
    }
  }
 
 }
 
  //+------------------------------------------------------------------+
//| Çàêðûòü âñå îðäåðà â óáûòêå                                        |
//+--------------------------------------------------------------------+
if(Ñïîñîáçàêðûòèÿ==6){
  if(CloseOpenOrders) {
    for(i=iOrders; i>=0; i--) {
      if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES) && OrderSymbol()==Symbol()&& (OrderProfit() < 0)) {
        if((OrderType()<=OP_SELL) && GetMarketInfo()) {
          if(!OrderClose(OrderTicket(),OrderLots(),Price[1-OrderType()],giSlippage)) Print(OrderError());
        }
      }
    }
  }
 
 }}
  
  
 
  
  
}
//+------------------------------------------------------------------+
//| Function..: OrderError                                           |
//+------------------------------------------------------------------+
string OrderError() {
  int iError=GetLastError();
  return(StringConcatenate("Order:",OrderTicket()," GetLastError()=",iError," ",ErrorDescription(iError)));
}
//+------------------------------------------------------------------+
//| Function..: GetMarketInfo                                        |
//+------------------------------------------------------------------+
bool GetMarketInfo() {
  RefreshRates();
  Price[0]=MarketInfo(OrderSymbol(),MODE_ASK);
  Price[1]=MarketInfo(OrderSymbol(),MODE_BID);
  double dPoint=MarketInfo(OrderSymbol(),MODE_POINT);
  if(dPoint==0) return(false);
  giSlippage=(Price[0]-Price[1])/dPoint;
  return(Price[0]>0.0 && Price[1]>0.0);
}
//+------------------------------------------------------------------+

void Stamp(){

   ObjectCreate("Original", OBJ_LABEL, 0, 0, 0);
   ObjectSetText("Original", " ---http://Expforex.at.ua---", 10, "Arial Bold", Red);
   ObjectSet("Original", OBJPROP_CORNER, 2);
   ObjectSet("Original", OBJPROP_XDISTANCE, 200);
   ObjectSet("Original", OBJPROP_YDISTANCE, 10);


}