مطلوب لو سمحتو اكسبيرت يغلق عقود البيع فقط

السلام عليكم
ارجو من احد المبرمجين الكرام ان يتفضل علينا باكسبيرت يغلق عقود البيع فقط واخر يقوم باغلاق عقود شراء فقط
مع الشكر الجزيل

لقد حصلت عليه هكذا (هذا خاص باغلاق شراء)
//+------------------------------------------------------------------+
//| a3 Close ALL LONG Pstns.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Ronald Verwer, Forex MetaSoft"
#property link "www.forexmetasoft.com"
#property show_confirm
//+------------------------------------------------------------------+
//| script to close ALL LONG positions at market |
//+------------------------------------------------------------------+
int start()
{
int i,type,err,Slippage=3;
double price;
bool result;
//----
for(i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
type=OrderType();
if(type==OP_BUY)
{
while(true)
{
result=OrderClose(OrderTicket(),OrderLots(),Market Info(OrderSymbol(),MODE_BID),Slippage,CLR_NONE);
if(result!=true) {err=GetLastError(); Print("LastError = ",err);}
else err=0;
if(err==135) RefreshRates();
else break;
} } }
else Print( "When selecting a trade, error ",GetLastError()," occurred");
}
return(0);
}
//+------------------------------------------------------------------+
(وهذا خاص بالبيع)
//+------------------------------------------------------------------+
//| a3 Close ALL SHORT Pstns.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, Ronald Verwer, Forex MetaSoft"
#property link "www.forexmetasoft.com"
#property show_confirm
//+------------------------------------------------------------------+
//| script to close ALL SHORT positions at market |
//+------------------------------------------------------------------+
int start()
{
int i,type,err,Slippage=3;
double price;
bool result;
//----
for(i=OrdersTotal()-1;i>=0;i--)
{
if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES))
{
type=OrderType();
if(type==OP_SELL)
{
while(true)
{
result=OrderClose(OrderTicket(),OrderLots(),Market Info(OrderSymbol(),MODE_ASK),Slippage,CLR_NONE);
if(result!=true) {err=GetLastError(); Print("LastError = ",err);}
else err=0;
if(err==135) RefreshRates();
else break;
} } }
else Print( "When selecting a trade, error ",GetLastError()," occurred");
}
return(0);
}
//+------------------------------------------------------------------+ارجو وضعهم في اكسبييرت

تفضل ولاحظ أنها سكربتات وليس إكسبرتات فضعها في مجلد

(MetaTrader/experts/scripts)

والسكربت يعمل لمرة واحدة فقط

مشكور اخي على تعاونك