Lock&&PipsingXR4_LastCloseOrd

//+------------------------------------------------------------------+
//|                                             Lock&&PipsingXR1.mq4 |
//|                                 Copyright © 2008, XrustSolution. |
//|                                        http://www.xrust.ucoz.net |
//+------------------------------------------------------------------+
#property copyright "#Copyright © 2008, XrustSolution.#"
#property link      "#http://www.xrust.ucoz.net#"
#include <stdlib.mqh>
//-------------------------------------------------------------------+
extern string a="KEY PARAMETERS OF THE ADVISER";
extern string b="Maximum quantity of warrants=20";
extern int       MaxOrd_1=15;
extern string c="Stoploss, for a scalping mode =0";
extern int       StopLoss=0;
extern string d="TakeProfit, for a scalping mode=0";
extern int       TakeProfit=0;
extern string e="StartLots of EA =0,01";
extern double    StartLots=0.01;
extern string f="Lot increment value=0,01";
extern double    LotsIncrementValue=0.01;
extern string g="The permission to lot auto detection";
extern bool      AutoLot=true;
extern string h="Percent of risk for a pack of warrants";
extern double    Risk=10;
extern string j="Profit at which the pack of warrants will be closed=0";
extern double    MInProfit=5;
extern string k="Pause between opening of warrants in minutes=10";
extern int       MinTradePause=10;
extern int       per=9;
extern string l="Traling step for single order=5";
extern int       TralStep=5;
extern string m="Equity traling step=5";
extern int       EqvTralStep=5;
extern bool      TradeOfTime=true;
extern int       StartTradeHour=20;
extern int       EndTradeHour=8;
extern bool      ShowComment=true;
extern bool      MargineVarning=true;
//----Variables for KimIV funcions ---------------------------------+
bool NumberOfTry=3,UseSound=false,print=false;
string NameFileSound = "expert.wav";   // Íàèìåíîâàíèå çâóêîâîãî ôàéëà
color  clOpenBuy     = Blue;           // Öâåò çíà÷êà îòêðûòèÿ Buy
color  clOpenSell    = Red;            // Öâåò çíà÷êà îòêðûòèÿ Sell
bool   MarketWatch=false;
bool   gbDisabled    = False;          // Áëîêèðîâêà
int BuyMagic1=2891,BuyMagic2=2892,BuyMagic3=2893;
int SellMagic1=73351,SellMagic2=73352,SellMagic3=73353;
static int PrevTime=0;double Lot;
double MinLot, MaxLot, MarginMinLot;   
int    MinLotDgts,period,GrossPeriod,GrossTrand=0;
int       Slippage=3;
//------------------------------------------------------------------+
static double StartDepo, gEqviti;
static double gPriseAp,gPriseDn,gMidPrise;
int gFrChSize,tP;
static bool asd=false;
int BuySell_1=0,BuySell_2=0,BuySell_3=0;
static int gCountBuy_1=1,gCountSell_1=1;
double lot,gLotMin;
static string gTime;
static int bs=0,ss=0;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
void init()
  {
  MathSrand( GetTickCount() );
  gLotMin=MarketInfo(Symbol(),MODE_MINLOT);
  StartDepo = AccountBalance();
  if(StartLots<MarketInfo(Symbol(),MODE_MINLOT)){
    StartLots=MarketInfo(Symbol(),MODE_MINLOT);
  }
  if(LotsIncrementValue!=MarketInfo(Symbol(),MODE_LOTSTEP)){
    LotsIncrementValue=MarketInfo(Symbol(),MODE_LOTSTEP);
  }  
  lot=StartLots;
   return;
  }
//+------------------------------------------------------------------+
  void deinit(){Comment("  ");return(0);} //deinit                   |
//+------------------------------------------------------------------+
int start()
  {
   if(MargineVarning){if(Varning()){return(0);}}
   if(!IsDemo()&&!IsOptimization()&&!IsTesting()){
     if(AccountNumber()!=126354){Comment("Bad Account!!!");Sleep(500);Comment("  ");return(0);}
   }
   BuySell_1=0;BuySell_2=0;BuySell_3=0;
//----
  Comment("Profit SELL",PorfitBuySell(1),"\nProfitBUY",PorfitBuySell(0));
  if(!TradeTime()){
  if(CountOpOrd("0")==1){LastOrdTral(TralStep);}
  //if(CountOpOrd("0")>1){EcvitiTral();}
  }
  //LastOrdTral(TralStep);
  //OneOrdTral(TralStep);
  //OneOrdTral(SellMagic1,TralStep);
  if(!DelDamage()){DelBigestLoss();}
  //DelBigestLoss();
  //EcvitiTral();
  //DelOppositeOrder();
  if(GrPorfit()>MInProfit){EcvitiTral();CloseAll();}
  //CloseBy();
  //DelVs();
  //DelDamage();
  if((AccountBalance()-StartDepo)+(PorfitBuySell(0)+PorfitBuySell(1))>0){
  //OneOrdTral(TralStep);
  //OneOrdTral(SellMagic1,TralStep);  
  //LastOrdTral(TralStep);
  //DelOppositeOrder();
  //CloseBy();
  //DelVs();
  }  
  if(NevBar()){
  IfZZ2();
  //if(ShowComment){Info();}
  if(TradeTime()){
    if(TimeOfTrade()){lot=StartLots;
      if(CountOpOrd("0")<MaxOrd_1){
        if(OneOrdTral(TralStep)){
          if(BuySell_1>0){
            //lot=lot+LotsIncrementValue;//*gCountBuy_1;
            if(OrdersTotal()<1){lot=StartLots;gCountSell_1=1;gCountBuy_1=1;}
            if(lot<StartLots){lot=StartLots;}
            gCountBuy_1++;
            gCountSell_1=1;
            lot=0.1;
            if(AutoLot){lot=CalcLotsAuto();}
            if(IfLastOrdProfBuy()){
            OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);}
              else{OpenPosition("",1,lot,StopLoss,TakeProfit,SellMagic1);}
            gCountSell_1=1;  
          }
          if(BuySell_1<0){
            //lot=lot+LotsIncrementValue;//*gCountSell_1;
            if(OrdersTotal()<1){lot=StartLots;gCountSell_1=1;gCountBuy_1=1;}
            if(lot<StartLots){lot=StartLots;}            
            gCountSell_1++;
            gCountBuy_1=1;
            lot=0.1;
            if(AutoLot){lot=CalcLotsAuto();}
            if(IfLastOrdProfSell()){
            OpenPosition("",1,lot,StopLoss,TakeProfit,SellMagic1);}
              else{OpenPosition("",0,lot,StopLoss,TakeProfit,BuyMagic1);}
            gCountBuy_1=1;  
          }          
        }
      }
    }
  }
  
  //if(NullDotBuy()!=NullDot()){SetArrow("BUY",4,1,1,NullDotBuy(),Blue);}
  //if(NullDotSell()!=NullDot()){SetArrow("SELL",4,1,1,NullDotSell(),Red);}    
  //SetArrow("NULL",4,1,1,NullDot(),White);   

  }
    
  
//----
   return(0);
  }
//---------------------------------------------------------------------------------------------------------------------+
extern string    ZzName="Zigzag2_R_";
extern int ZzLevel_1=2;
extern int ZzLevel_2=5;
extern int ZzCountGr=4;
extern bool DriveArrow=true;
extern int numbar=1;
int ZzPar2[12]={5,8,13,21,34,55,89,144,233,377,610,987};
int IfZZ2(){int i,count =0,CountAp=0,CountDn=0,CountAp1=0,CountDn1=0,CountAp2=0,CountDn2=0,CountAp3=0,CountDn3=0;
//----Level_1
 for(i=ZzLevel_1;i<(ZzLevel_1+ZzCountGr);i++){count++;if(iCustom(Symbol(),0,ZzName,ZzPar2[2+i],ZzPar2[1+i],ZzPar2[i],0,numbar)!=0){CountAp1++;}}
 if(CountAp1==count){
   BuySell_1=-1;
   gCountBuy_1++;
   gCountSell_1=1;
   if(DriveArrow)SetArrow("EASELL1 ",242,1,numbar,High[1]+10*Point,Red);
 }
 count=0;
 for(i=ZzLevel_1;i<(ZzLevel_1+ZzCountGr);i++){count++;if(iCustom(Symbol(),0,ZzName,ZzPar2[2+i],ZzPar2[1+i],ZzPar2[i],1,numbar)!=0){CountDn1++;}}
 if(CountDn1==count){
   BuySell_1=1;
   gCountBuy_1=1;
   gCountSell_1++;   
   if(DriveArrow)SetArrow("EABUY1 ",241,1,numbar,Low[1]-10*Point,Blue);
 }
 count=0;  
}  
//+------------------------------------------------------------------+
//| Óñòàíîâêà ñòðåëîê                                                |
//+------------------------------------------------------------------+
void SetArrow(string nm,int kod,int razm,int bar,double prs,color col){
//if(!DriveArrow)return;
string Name=StringConcatenate(nm,TimeToStr(TimeLocal(),TIME_DATE|TIME_SECONDS));
ObjectCreate(Name,OBJ_ARROW,0,0,0,0,0,0,0);
ObjectSet(Name,OBJPROP_ARROWCODE,kod);
ObjectSet(Name,OBJPROP_STYLE,DRAW_ARROW);
ObjectSet(Name,OBJPROP_TIME1,Time[bar]);
ObjectSet(Name,OBJPROP_PRICE1,prs);
ObjectSet(Name,OBJPROP_WIDTH,razm);
ObjectSet(Name,OBJPROP_COLOR,col);
return;}  
//-----------------------------------------------------------------------------+
// Óñëîâèÿ âõîäà â ðûíîê                                                       |
//-----------------------------------------------------------------------------+
int IfZZ(){
if(OrdersTotal()>5){
  if(NullDotSell()==NullDot()){
     if(Bid<NullDotSell()){
       BuySell_1=-1;
       return(1);
     }
  }
  if(NullDotSell()<NullDot()){
     if(Bid<NullDot()&&Bid>NullDotSell()){
       BuySell_1=1;
       return(1);
     }  
     if(Bid<NullDotSell()){
       BuySell_1=1;
       return(1);
     }
  }     
}//else{ 
if(Close[1]>Open[0]){
//if(MathRand() < 32767/2){

//if(Close[1]>iMA(Symbol(),0,per,0,1,0,1)){
BuySell_1=-1;return(1);}//}

if(OrdersTotal()>5){
  if(NullDotBuy()==NullDot()){
     if(Bid>NullDotBuy()){
       BuySell_1=1;
       return(1);
     }
  }
  if(NullDotBuy()>NullDot()){
     if(Bid>NullDot()&&Bid<NullDotBuy()){
       BuySell_1=-1;
       return(1);
     }  
     if(Bid>NullDotBuy()){
       BuySell_1=-1;
       return(1);
     }
  }
}//else{
if(Close[1]<Open[0]){
//else{//if(MathRand() > 32767/2.615){
//if(Close[1]<iMA(Symbol(),0,per,0,1,0,1)){
BuySell_1=1;return(-1);}//}
 
BuySell_1=0;
return(0);
}
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ                                                            |
//-----------------------------------------------------------------------------+
double NullDot(){double prise=0;int count=0,countlot=0;
if(OrdersTotal()<1){return(Bid);}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      countlot=(OrderLots()/MinLot);
      count=count+countlot;
      prise=prise+(OrderOpenPrice()*countlot);
    }
  }
}
prise=prise/count;
return(prise);
}
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ                                                            |
//-----------------------------------------------------------------------------+
double NullDotBuy(){double prise=0;int count=0,countlot=0;
if(CountOpOrd("",0)<2){return(NullDot());}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderType()<1){
        countlot=(OrderLots()/MinLot);
        count=count+countlot;
        prise=prise+(OrderOpenPrice()*countlot);
      }  
    }
  }
}
prise=prise/count;
return(prise);
}  
//-----------------------------------------------------------------------------+
// Òî÷êà ðàâíîâåñèÿ                                                            |
//-----------------------------------------------------------------------------+
double NullDotSell(){double prise=0;int count=0,countlot=0;
if(CountOpOrd("",1)<2){return(NullDot());}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderType()>0){
        countlot=(OrderLots()/MinLot);
        count=count+countlot;
        prise=prise+(OrderOpenPrice()*countlot);
      }  
    }
  }
}
prise=prise/count;
return(prise);
}
//-----------------------------------------------------------------------------+
// Áûë ëè ïîñåäíèé îðäåð buy ñ ïðèáûëüþ                                        |
//-----------------------------------------------------------------------------+
bool IfLastOrdProfBuy(){int tm=0;double pr=0;
for(int i = OrdersHistoryTotal()+1;i>=0;i--){
  if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
    if(OrderType()<1){
      if(OrderCloseTime()>tm){
        tm=OrderCloseTime();
        pr=OrderProfit();
      }  
    }
  }
}
if(pr>0&&tm!=0){return(true);}
return(false);
}
//-----------------------------------------------------------------------------+
// Áûë ëè ïîñåäíèé îðäåð sell ñ ïðèáûëüþ                                       |
//-----------------------------------------------------------------------------+
bool IfLastOrdProfSell(){int tm=0;double pr=0;
for(int i = OrdersHistoryTotal()+1;i>=0;i--){
  if(OrderSelect(i,SELECT_BY_POS,MODE_HISTORY)){
    if(OrderType()==1){
      if(OrderCloseTime()>tm){
        tm=OrderCloseTime();
        pr=OrderProfit();
      }  
    }
  }
}
if(pr>0&&tm!=0){return(true);}
return(false);
}
//-----------------------------------------------------------------------------+
// Âîçâðàùàåò ïðèáûëü êàêèõ îðäåðîâ áîëüøå                                     |
//-----------------------------------------------------------------------------+
int ProfitBuyOrSell(){double countbuy=0,countsell=0;
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderType()==0){countbuy=countbuy+OrderProfit();}
      if(OrderType()==1){countsell=countsell+OrderProfit();}
    }
  }
}  
if(countbuy>countsell){return(-1);}
if(countbuy<countsell){return(1);}
return(0);
}  
//-----------------------------------------------------------------------------+
// Âîçâðàùàåò êàêèõ îðäåðîâ áîëüøå                                             |
//-----------------------------------------------------------------------------+
int BuyOrSell(){int countbuy=0,countsell=0;
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderType()==0){countbuy++;}
      if(OrderType()==1){countsell++;}
    }
  }
}  
if(countbuy>countsell){return(-1);}
if(countbuy<countsell){return(1);} 
return(0);
}
//-----------------------------------------------------------------------------+
// Âûâîäèò Òèï ïîñëåäíåãî óñò îðäåðà                                           |
//-----------------------------------------------------------------------------+
int LastOrdType(){int time=0,typ=-1;
if(OrdersTotal()<1){return(-1);}
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderOpenTime()>time){
        time=OrderOpenTime();
        typ=OrderType();
      }
    }
  }
}       
return(typ);
}
//-----------------------------------------------------------------------------+
// Âûâîäèò èíôîðìàöèþ íà ýêðàí                                                 |
//-----------------------------------------------------------------------------+
void Info(){
Comment("AccountBalance       ="+(DoubleToStr(AccountBalance()+PorfitBuySell(0)+PorfitBuySell(1),1))+"$\n"+
        "AccountFreeMargin              ="+(DoubleToStr(AccountFreeMargin(),1))+"$\n"+
        "Current profit                 ="+(DoubleToStr(PorfitBuySell(0)+PorfitBuySell(1),1))+"$\n"+
        "Profit from the trade beginning  ="+(DoubleToStr(AccountBalance()-StartDepo,1))+"$\n"+
        "Current profit from the trade beginning ="+DoubleToStr(((AccountBalance()-StartDepo)+(PorfitBuySell(0)+PorfitBuySell(1))),1)+"$\n"+
        gTime
        +"\n"+"Free orders =  ="+(MaxOrd_1-OrdersTotal())
        
        );
return;
}
//-----------------------------------------------------------------------------+
// Âûâîäèò ïðåäóïðåæäàþùåå ñîîáùåíèå                                           |
//-----------------------------------------------------------------------------+
bool Varning(){int ord;double depo;
if(AutoLot){StartLots=CalcLotsAuto();}
if((MarketInfo(Symbol(),MODE_MARGINREQUIRED)*StartLots*MaxOrd_1*2)>StartDepo){
  depo=MarketInfo(Symbol(),MODE_MARGINREQUIRED)*StartLots*MaxOrd_1*2;
  ord=StartDepo/(MarketInfo(Symbol(),MODE_MARGINREQUIRED)*StartLots*2);
  if(!print){return(true);}
  Alert("THERE IS NOT ENOUGH MEANS FOR THE ACCOUNT"+"\n"+
        "For such quantity of warrants it is necessary"+"\n"+
        "The starting Deposit ="+depo+" $\n"+
        "On your means it is possible to open "+ord+" Orders"+"\n"+
        "Fill up your account please"+"\n"+
        "Or reduce quantity of warrants"+"\n"+
        "Or reduce a traded lot"+"\n"+
        "Or disconnect the alarm system");
return(true);
}
return(false);
}
//-----------------------------------------------------------------------------+
// Ôóíêöèÿ êîíòðîëÿ âðåìåíè òîðãîâëè                                           |
//-----------------------------------------------------------------------------+
bool TradeTime(){if(!TradeOfTime){
gTime="ÐÀÁÎÒÀÅÌ ÁÅÇ ÏÅÐÅÐÛÂÎÂ";
return(true);}
if(TimeDayOfWeek(TimeCurrent())==5){StartTradeHour=0;}
if(TimeDayOfWeek(TimeCurrent())==1){StartTradeHour=1;}
if(StartTradeHour<EndTradeHour){
  if(TimeHour(TimeCurrent())>=StartTradeHour&&TimeHour(TimeCurrent())<EndTradeHour
    ){//||(CountOpOrd("0")+CountOpOrd("1"))>0){
    gTime=StringConcatenate("Äî êîíöà òîðãîâîé ñåññèè :",DoubleToStr((EndTradeHour-TimeHour(TimeCurrent())),0)," ×àñîâ");
    return(true);}}
if(StartTradeHour>EndTradeHour){
  if(TimeHour(TimeCurrent())>=StartTradeHour||TimeHour(TimeCurrent())<EndTradeHour
    ){//||(CountOpOrd("0")+CountOpOrd("1"))>0){
    gTime=StringConcatenate("Äî êîíöà òîðãîâîé ñåññèè :",DoubleToStr((EndTradeHour-TimeHour(TimeCurrent())),0)," ×àñîâ");
    return(true);}}    
gTime=StringConcatenate("ÎÒÄÛÕÀÅÌ ÄÎ : ",StartTradeHour,": 00");    
return(false);
}
//-----------------------------------------------------------------------------+
// Óäàëåíèå ñàìîãî áîëüøîãî ëîñÿ                                               |
//-----------------------------------------------------------------------------+
void DelBigestLoss(){
static double gBigLoss=0;
double BigLoss=0,profit=0,Lossticket,FarLot,FarProfit;
int Ticket[];int count=0; 
if(OrdersTotal()<2){return;gBigLoss=0;}
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderProfit()<0){
        if((gBigLoss<0&&OrderProfit()>gBigLoss)||(gBigLoss==0)){
        if(OrderProfit()<BigLoss){
          BigLoss=OrderProfit();
          Lossticket=OrderTicket();
          FarLot=OrderLots();
          FarProfit=OrderProfit();
        }
        }
      }
    }
  }
}
if(FarLot<=MinLot){gBigLoss=0;return;}
for(int n=0;n<OrdersTotal();n++){
  if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
    if(OrderSymbol()==Symbol()){
      if(OrderProfit()>0){
        profit=profit+OrderProfit();
        count++;
        Ticket[count]=OrderTicket();
        profit=NormalizeDouble(profit,1);
      }
    }
  }
} 
if(count==1){OneOrdTral(TralStep);return;}
if(profit+BigLoss<0){gBigLoss=BigLoss;return;}
int lot=(FarLot/MinLot);
double MinFarProfit=FarProfit/lot;
int y;
double lotstep;
for(y=lot;y>0;y--){
  if(profit+(MinFarProfit*y)>MathAbs(MinFarProfit)){
    lotstep=MinLot*y;
    break;
  }
}      
if(lotstep>=MinLot){
  ArrayResize(Ticket,count+1);         
  for(int x=0;x<count+1;x++){if(OrderSelect(Ticket[x],SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(OrderTicket());}}}     
  if(OrderSelect(Lossticket,SELECT_BY_TICKET)){if(OrderCloseTime()==0){dellot(Lossticket,lotstep);return(true);}}     
}      
return;     
}
//-----------------------------------------------------------------------------+
// Èñùåò ñàìûé äàëüíèé îðäåð ñ îòðèöàòåëüíîé ïðèáûëüþ                          |
//-----------------------------------------------------------------------------+
int FarOrder(){double dist=0;int tick=0;
//if(OrdersTotal()<1)return;
for(int i=0;i<OrdersTotal();i++){
  if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
    if(OrderSymbol()==Symbol()){
      if(OrderProfit()<0){
        RefreshRates();
        if((MathAbs(OrderOpenPrice()-Ask)/Point)>dist){
          dist=(MathAbs(OrderOpenPrice()-Ask))/Point;
          tick=OrderTicket();
        }
      }
    }
  }
}
return(tick);
}
//+----------------------------------------------------------------------------+
// Óäàëåíèå ñàìîãî äàëüíåãî îðäåðà                                             +
//-----------------------------------------------------------------------------+
bool DelDamage(){double FarProfit=1,FarLot=0,profit=0;int count=-1,x;
//if(OrdersTotal()<1)return;
double spred=NormalizeDouble(MarketInfo(Symbol(),MODE_SPREAD)*MarketInfo(Symbol(),MODE_TICKVALUE),Digits);
double PipsPrise=MarketInfo(Symbol(),MODE_TICKVALUE);
double MinLot=MarketInfo(Symbol(),MODE_MINLOT);
int Ticket[];
  if(FarOrder()>0){
   if(OrderSelect(FarOrder(),SELECT_BY_TICKET)){if(OrderCloseTime()==0){FarLot=OrderLots();FarProfit=OrderProfit();}}
  }
  if(FarProfit<0){
   profit=0;
   for(int n=0;n<OrdersTotal();n++){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(OrderSymbol()==Symbol()){
         if(OrderProfit()>0){
            profit=profit+OrderProfit();
            count++;
            Ticket[count]=OrderTicket();
            profit=NormalizeDouble(profit,1);
            FarProfit=NormalizeDouble(FarProfit,1);
          }
        }
      }
    }             
            if(profit+FarProfit>spred+(MInProfit*Bid*PipsPrise)){
              ArrayResize(Ticket,count+1);         
              for(x=0;x<count+1;x++){if(OrderSelect(Ticket[x],SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(OrderTicket());}}}     
              if(OrderSelect(FarOrder(),SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(FarOrder());return(true);}}
            }
            if(profit+FarProfit<0&&profit>0){
              if(FarLot<MinLot*2){return(false);}
              int lot=(FarLot/MinLot);
              double MinFarProfit=FarProfit/lot;
              int y;
              double lotstep;
              for(y=lot;y>0;y--){
                if(profit+(MinFarProfit*y)>0){
                  lotstep=MinLot*y;
                  break;
                }
              }
              if(lotstep>=MinLot){
                ArrayResize(Ticket,count+1);         
                for(x=0;x<count+1;x++){if(OrderSelect(Ticket[x],SELECT_BY_TICKET)){if(OrderCloseTime()==0){del(OrderTicket());}}}     
                if(OrderSelect(FarOrder(),SELECT_BY_TICKET)){if(OrderCloseTime()==0){dellot(FarOrder(),lotstep);return(true);}}     
              }          
            }
          
  }  
return(false);  
}
//+----------------------------------------------------------------------------+
// Óñðåäíåíèå óäàëåíèåì                                                        +
//-----------------------------------------------------------------------------+
void DelVs(){int tick1=0,tick2=0,typ;double pr1=0,pr2=0;
if(OrdersTotal()<MaxOrd_1/2){return;}
   for(int n=0;n<OrdersTotal();n++){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(IfOrder("0")){
         tick1=OrderTicket();
         pr1=OrderProfit();
         if(OrderType()==0){typ=0;}
         if(OrderType()==1){typ=1;}
           if(pr1>0){
              for(int x=OrdersTotal()+1;x>=0;x--){
                if(OrderSelect(x,SELECT_BY_POS,MODE_TRADES)){  
                  if(IfOrder("0",typ)){
                    tick2=OrderTicket();
                    pr2=OrderProfit();
                      if(pr1-pr2==0){
                        if(tick2!=0){del(tick2);}
                        if(tick1!=0){del(tick1);}
                        return;
                      }
                  }
                }
              }               
           }
       } 
     }
   }
return;
}
//+----------------------------------------------------------------------------+
// Âñòðå÷íîå çàêðûòèå                                                          +
//-----------------------------------------------------------------------------+
void CloseBy(){
double profit1=0, profit2=0;
int i, n, tip, tip2 ,ticket1=0, ticket2=0;
if(OrdersTotal()<MaxOrd_1/2){return;}
  for(n=0;n<OrdersTotal();n++){
    if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
      if(IfOrder("0")){
        if(OrderProfit()<0){
          tip=OrderType();
          profit1=OrderProfit();
          ticket1=OrderTicket();
          if(tip==1){tip2=0;}
          if(tip==0){tip2=1;}
          for(n=0;n<OrdersTotal();n++){
            if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
              if(IfOrder("0",tip2)){
                if((OrderProfit()+profit1)>=0){
                  if(ticket1!=0&&OrderTicket()!=0){OrderCloseBy(ticket1,OrderTicket(),White);}
                }
              }
            }
          }    
        }
      }
    }
  }      

}
//+----------------------------------------------------------------------------+
// Âîçâðàùàåò ñàìûé äàëüíèé îðäåð                                              +
//-----------------------------------------------------------------------------+
double OrderDistanse(double prise=0){double gprise=0;int n;
if(OrdersTotal()<2){return;}
 if(prise==0){
   for(n=0;n<OrdersTotal();n++){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(IfOrder("0")){
         if(OrderProfit()<0){
           if(MathAbs(Bid-OrderOpenPrice())>prise){
             prise=OrderOpenPrice();
           }
         }
       }
     }
   }
 return(prise);
 } 
 if(prise!=0){
   for(n=0;n<OrdersTotal();n++){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(IfOrder("0")){
         if(OrderProfit()<0){
           if(MathAbs(Bid-OrderOpenPrice())>gprise&&(OrderOpenPrice()!=prise)){
             gprise=OrderOpenPrice();
           }
         }
       }
     }
   }
 return(gprise);
 } 
 return(0);
}
//+----------------------------------------------------------------------------+
// Åùå îäíî óñðåäíåíèå 2                                                       +
//-----------------------------------------------------------------------------+
void DelOppositeOrder(){
double prise=0,profit=0,Grprofit=0;
int n, tick=0,tip=-1,tip2=-1,countord=0;
int ticket[100];
//for(n=0;n<CountOpOrd(0);n++){

   Grprofit=0;
   for(n=0;n<OrdersTotal();n++){
   if(OrderDistanse(prise)!=0){
     prise=OrderDistanse(prise);
     tick=OrderTicket();
     profit=OrderProfit();
     tip=OrderType();
   }
if(tip==1){tip2=0;}
if(tip==0){tip2=1;}     
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(IfOrder("0",tip2)){
         if(OrderProfit()>0){
           Grprofit=Grprofit+OrderProfit();
           ticket[countord]=OrderTicket();
           countord++;
         }
       }
     }
   }        
           if(profit+Grprofit>MInProfit){
             ArrayResize(ticket,countord+1);
             double profit2=0;
             if(OrderSelect(tick,SELECT_BY_TICKET,MODE_TRADES)){
               if(OrderCloseTime()==0){
                 for(int i=0;i<CountOpOrd("0")+1;i++){
                   if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
                     if(OrderProfit()>profit2){
                       if(OrderType()==tip2){
                         if(OrderCloseTime()==0){
                           profit2=OrderProfit();
                           int ticket2=OrderTicket();
                         }
                       }
                     }
                   }   
                 }
                 if(ticket2!=0&&tick>0){OrderCloseBy(tick,ticket2,White);}
                 for(i=0;i<countord+1;i++){
                   if(OrderSelect(ticket[i],SELECT_BY_TICKET,MODE_TRADES)){
                     if(OrderCloseTime()==0){del(OrderTicket());}
                   }
                 }
                 return;               
               }
             }
           }

}
//+------------------------------------------------------------------+
//|Òðàë ïî ýêâèòè                                                    |
//+------------------------------------------------------------------+
void EcvitiTral(){int i, n ,x;double Gpr=0;
if(OrdersTotal()<1){gEqviti=AccountBalance();return;}
  for(i=0;i<OrdersTotal();i++){
    if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
      Gpr=Gpr+OrderProfit()+OrderSwap()+OrderCommission();
    }
  }
  if((AccountBalance()+Gpr)-EqvTralStep>gEqviti){gEqviti=gEqviti+EqvTralStep;}
  else{if(gEqviti>AccountBalance()&&gEqviti>StartDepo){
    CloseAll();if(OrdersTotal()<1){gEqviti=AccountBalance();return;}}}
return;
}
//+------------------------------------------------------------------+
//| ïðîâåðÿåò ðûíî÷íûé îðäåð íà ïðèíàäëåæíîñòü ñîãëàñíî óñëîâèÿì     |
//+------------------------------------------------------------------+
bool IfOrder(string Sy="",int Typ=-1,int Magik=-1){
if(Sy=="0"||Sy==""){Sy=Symbol();}
  if(OrderSymbol()==Sy||Sy==""){
    if(OrderType()==Typ||Typ==(-1)){
      if(OrderMagicNumber()==Magik||Magik==(-1)){
        return(true);
      }
    }
  }
 return(false); 
}
//+------------------------------------------------------------------+
//| Ïîäñ÷èòûâàåò êîëè÷åñòâî îòêðûòûõ îðäåðîâ ñîãëàñíî óñëîâèÿì       |
//+------------------------------------------------------------------+
int CountOpOrd(string Sy="",int Typ=-1,int Magik=-1){int count=0;
if(Sy=="0"){Sy=Symbol();}
  for(int i=0;i<OrdersTotal();i++){
    if(OrderSelect(i,SELECT_BY_POS,MODE_TRADES)){
      if(OrderSymbol()==Sy||Sy==""){
        if(OrderType()==Typ||Typ==(-1)){
          if(OrderMagicNumber()==Magik||Magik==(-1)){
            count++;
          }
        }
      }
    }
  }
 return(count);  
}
//+----------------------------------------------------------------------------+
// Ïîäñ÷èòûâàåò Îáùóþ íå ðåàëèçîâàííóþ ïðèáûëü íà äàííîì èíñòðóìåíòå           +
//-----------------------------------------------------------------------------+
double Profit(int Pr=0){double grpr=0;
   for(int n=0;n<OrdersTotal();n++){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(OrderSymbol()==Symbol()){
         if(Pr>0){if(OrderProfit()>0){grpr=grpr+OrderProfit();}}
         if(Pr<0){if(OrderProfit()<0){grpr=grpr+OrderProfit();}}
       }
     }    
   } 
return(grpr);
}
//+----------------------------------------------------------------------------+
// Ïîäñ÷èòûâàåò Îáùóþ íå ðåàëèçîâàííóþ ïðèáûëü íà äàííîì èíñòðóìåíòå           +
//-----------------------------------------------------------------------------+
double GrPorfit(){double grpr=0;
if(OrdersTotal()<1){return(0);}
   for(int n=0;n<OrdersTotal();n++){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(OrderSymbol()==Symbol()){grpr=grpr+OrderProfit();}
     }    
   } 
return(grpr);
}
//+----------------------------------------------------------------------------+
// Ïîäñ÷èòûâàåò Îáùóþ íå ðåàëèçîâàííóþ ïðèáûëü íà äàííîì èíñòðóìåíòå           +
//-----------------------------------------------------------------------------+
double PorfitBuySell(int tip){double grpr=0;
if(OrdersTotal()<1){return(-1);}
   for(int n=OrdersTotal()+1;n>=0;n--){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(IfOrder("0",tip)){grpr=grpr+OrderProfit();}
     }    
   } 
return(grpr);
}
//+----------------------------------------------------------------------------+
// Çàêðûâàåò âñå îðäåðà íà äàííîì èíñòðóìåíòå                                  +
//-----------------------------------------------------------------------------+
void CloseAll(){
 //if(IfOrder(0)==true){
   for(int n=OrdersTotal()+1;n>=0;n--){
     if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
       if(IfOrder("0")){del(OrderTicket());}
     }    
   } 
 //}
return;    
}
//+----------------------------------------------------------------------------+
// Çàäàåò ïàóçó ìåæäó óñòàíîâêàìè îðäåðîâ                                      +  
//-----------------------------------------------------------------------------+
bool TimeOfTrade(){int count=0,distanse=0;double OpPrs=0;
if(OrdersTotal()<1){return(true);}
  for(int n=0;n<OrdersTotal();n++){
    if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
      if(OrderSymbol()==Symbol()){
        if(OrderOpenTime()>count){count=OrderOpenTime();OpPrs=OrderOpenPrice();}
      }
    }    
  } 
if(OpPrs!=0){distanse=(MathAbs(OpPrs-Bid)/Point)/5;}  
if((TimeCurrent()-count)>(MinTradePause*60)){return(true);}
return(false);
}
//+----------------------------------------------------------------------------+
// Òðàë ïîñëåäíåãî îðäåðà                                                      +  
//-----------------------------------------------------------------------------+
void LastOrdTral(double step){int n,tic,count=0,StPr=0;static int PrewStPr2=0;
  count=0;
  step=step*Point;
  for(n=OrdersTotal()+1;n>=0;n--){
    if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
      if(IfOrder("0")){
        if(OrderOpenTime()>count){
        count=OrderOpenTime();
        tic=OrderTicket();
        }
      }
    }    
  }  
  if(OrderSelect(tic,SELECT_BY_TICKET)){  
    if(OrderCloseTime()==0){
      if((OrderProfit()/(OrderLots()*10))>step){
        StPr=(OrderProfit()/(OrderLots()*10));
        if(StPr>=PrewStPr2){PrewStPr2=StPr;}else{del(OrderTicket());PrewStPr2=0;return(true);}
      }
    }
  }
return;  
}
//+----------------------------------------------------------------------------+
// Òðàë îäíîãî îðäåðà                                                          +  
//-----------------------------------------------------------------------------+
bool OneOrdTral(double step){int n,count=0,StPr=0;static int PrewStPr=0;
if(OrdersTotal()<1){return(true);}
  count=0;
  for(n=OrdersTotal()+1;n>=0;n--){
    if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
      if(IfOrder("")){count++;}
    }    
  }  
if(count>1){return(true);}  
if(count==1){
  for(n=OrdersTotal()+1;n>=0;n--){
    if(OrderSelect(n,SELECT_BY_POS,MODE_TRADES)){  
      if(IfOrder("0")){
        if((OrderProfit()/(OrderLots()*10))>step){
          StPr=(OrderProfit()/(OrderLots()*10));
          if(StPr>=PrewStPr){PrewStPr=StPr;}
          else{del(OrderTicket());PrewStPr=0;return(true);}
        }
      }
    }    
  }    
}
if(OrderProfit()<0){return(true);}
return(false);   
}
//+------------------------------------------------------------------+
//| Ðàñ÷åò ëîòà ñîîòâ ðèñêó è áàëàíñó                                |
//+------------------------------------------------------------------+
double CalcLotsAuto()
{static double Sredstva;
if(OrdersTotal()<1){Sredstva=AccountBalance();}
double LotOpt,LotNeOpt,Zalog;
   RefreshRates();
   double Marga=AccountFreeMargin();
   double Balans=AccountBalance();
   double LotMin=MarketInfo(Symbol(),MODE_MINLOT);
   double LotMax=MarketInfo(Symbol(),MODE_MAXLOT);
   double StepLot=MarketInfo(Symbol(),MODE_LOTSTEP);
   double StopLv=AccountStopoutLevel();
   int PrsMinLot=1000*LotMin;
   if(Risk<0)Risk=0;
   if(Risk>100)Risk=100; 
   if(StepLot==0.01){int step=2;}else{step=1;}  
//---------------------------      
   Zalog=(Sredstva*(Risk/100));
   LotOpt=NormalizeDouble((Zalog/1000),step);
   if(LotOpt>LotMax)LotOpt=LotMax;
   return(LotOpt);
   /*
   Zalog=((AccountFreeMargin()/(MaxOrd_1))/10)*Risk;
   LotOpt=NormalizeDouble((Zalog/StartDepo),step);
   //if(LotOpt<LotMin);//MaxOrd_1--;//LotOpt=LotMin;
   if(LotOpt>LotMax)LotOpt=LotMax;
   return(LotOpt);*/
}
//-----------------------------------------------------------------------------+
// Ôóíêöèÿ êîíòðîëÿ íîâîãî áàðà                                                |
//-----------------------------------------------------------------------------+
bool NevBar(){

   if (PrevTime==Time[0]) return(false);
   PrevTime=Time[0];
   return(true);} 
//-----------------------------------------------------------------------------+
//Óäàëÿåò ðûíî÷íûé îðäåð ñ óêàçàííûì åé òèêåòîì è ëîòîì                        |
//+----------------------------------------------------------------------------+
void dellot(int ticket,double lot){int err;
int step;
if(MarketInfo(Symbol(),MODE_LOTSTEP)==0.1){step=1;}
if(MarketInfo(Symbol(),MODE_LOTSTEP)==0.01){step=2;}
lot=NormalizeDouble(lot,step);
 for(int i=0;i<1;i++){
   GetLastError();//îáíóëÿåì îøèêó
   OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES);
   string symbol = OrderSymbol();
   if(OrderType()==OP_BUY){RefreshRates();
     double prise = MarketInfo(symbol,MODE_BID);
     if(!OrderClose(ticket,lot,prise,3,Green)){err = GetLastError();}}
   if(OrderType()==OP_SELL){RefreshRates();
     prise = MarketInfo(symbol,MODE_ASK);
     if(!OrderClose(ticket,lot,prise,3,Green)){err = GetLastError();}}
 if(err == 0){PlaySound("expert.wav");break;} 
 if(err != 0){PlaySound("timeout.wav");Print("Error for Close Funtion =",err);} 
 while(!IsTradeAllowed()){Sleep(5000);}// åñëè ðûíîê çàíÿò òî ïîäîæäåì 5 ñåê 
 if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
 } 
}
//-----------------------------------------------------------------------------+
//Óäàëÿåò ðûíî÷íûé îðäåð ñ óêàçàííûì åé òèêåòîì                                |
//+----------------------------------------------------------------------------+
void del(int ticket){int err;
 for(int i=0;i<1;i++){
   GetLastError();//îáíóëÿåì îøèêó
   OrderSelect(ticket, SELECT_BY_TICKET, MODE_TRADES);
   string symbol = OrderSymbol();
   if(OrderType()==OP_BUY){RefreshRates();
     double prise = MarketInfo(symbol,MODE_BID);
     if(!OrderClose(ticket,OrderLots(),prise,3,Green)){err = GetLastError();}}
   if(OrderType()==OP_SELL){RefreshRates();
     prise = MarketInfo(symbol,MODE_ASK);
     if(!OrderClose(ticket,OrderLots(),prise,3,Green)){err = GetLastError();}}
 if(err == 0){PlaySound("expert.wav");break;} 
 if(err != 0){PlaySound("timeout.wav");Print("Error for Close Funtion =",err);} 
 while(!IsTradeAllowed()){Sleep(5000);}// åñëè ðûíîê çàíÿò òî ïîäîæäåì 5 ñåê 
 if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
 } 
}
//-----------------------------------------------------------------------------+
//___________________ÊÈÌÓ_______ÐÅÑÏÅÊÒ________È_____ÓÂÀÆÓÕÀ___________________|
//+----------------------------------------------------------------------------+
//|  Àâòîð    : Êèì Èãîðü Â. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Âåðñèÿ   : 01.09.2005                                                     |
//|  Îïèñàíèå : Âûâîä ñîîáùåíèÿ â êîììåíò è â æóðíàë                           |
//+----------------------------------------------------------------------------+
//|  Ïàðàìåòðû:                                                                |
//|    m - òåêñò ñîîáùåíèÿ                                                     |
//+----------------------------------------------------------------------------+
void Message(string m) {
  //Comment(m);
  if (StringLen(m)>0) Print(m);
}

//+----------------------------------------------------------------------------+
//|  Àâòîð    : Êèì Èãîðü Â. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Âåðñèÿ   : 28.11.2006                                                     |
//|  Îïèñàíèå : Ìîäèôèêàöèÿ îäíîãî ïðåäâàðèòåëüíî âûáðàííîãî îðäåðà.           |
//+----------------------------------------------------------------------------+
//|  Ïàðàìåòðû:                                                                |
//|    pp - öåíà óñòàíîâêè îðäåðà                                              |
//|    sl - öåíîâîé óðîâåíü ñòîïà                                              |
//|    tp - öåíîâîé óðîâåíü òåéêà                                              |
//|    ex - äàòà èñòå÷åíèÿ                                                     |
//+----------------------------------------------------------------------------+
void ModifyOrder(double pp=-1, double sl=0, double tp=0, datetime ex=0) {
  bool   fm;
  color  cl=White;
  double op, pa, pb, os, ot;
  int    dg=MarketInfo(OrderSymbol(), MODE_DIGITS), er, it;

  if (pp<=0) pp=OrderOpenPrice();
  if (sl<0 ) sl=OrderStopLoss();
  if (tp<0 ) tp=OrderTakeProfit();
  
  pp=NormalizeDouble(pp, dg);
  sl=NormalizeDouble(sl, dg);
  tp=NormalizeDouble(tp, dg);
  op=NormalizeDouble(OrderOpenPrice() , dg);
  os=NormalizeDouble(OrderStopLoss()  , dg);
  ot=NormalizeDouble(OrderTakeProfit(), dg);
  //if(OrderType()==0||OrderType()==2||OrderType()==4){if(Ask-stoplevel<sl||Bid+stoplevel>tp){return;}}
  //if(OrderType()==1||OrderType()==3||OrderType()==5){if(Bid+stoplevel>sl||Ask-stoplevel<tp){return;}}
  //if(MathAbs(sl-Ask)<stoplevel||MathAbs(tp-Ask)<stoplevel){return;}
  if(pp==op&&sl==os&&tp==ot){return;}
  if ((sl==os&&(os!=0||sl!=0))&& (tp==ot&&(ot!=0||tp!=0))) {return;}
    for (it=1; it<=NumberOfTry; it++) {
      //if ((!IsExpertEnabled() || IsStopped())) break;
      while (!IsTradeAllowed()) Sleep(5000);
      RefreshRates();
      fm=OrderModify(OrderTicket(), pp, sl, tp, ex, cl);
      if (fm) {
        if (UseSound) PlaySound(NameFileSound); break;
      } else {
        er=GetLastError();
        pa=MarketInfo(OrderSymbol(), MODE_ASK);
        pb=MarketInfo(OrderSymbol(), MODE_BID);
        if(print){Print("Error(",er,") modifying order: ",ErrorDescription(er),", try ",it);
                  Print("Ask=",pa,"  Bid=",pb,"  sy=",OrderSymbol(),
                        "  op="+GetNameOP(OrderType()),"  pp=",pp,"  sl=",sl,"  tp=",tp);}
        Sleep(1000*10);
        //if(er==130){del(OrderTicket());}
      }
    }
  //}
}

//+----------------------------------------------------------------------------+
//|  Àâòîð    : Êèì Èãîðü Â. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Âåðñèÿ   : 06.03.2008                                                     |
//|  Îïèñàíèå : Âîçâðàùàåò ôëàã ñóùåñòâîâàíèÿ ïîçèöèé                          |
//+----------------------------------------------------------------------------+
//|  Ïàðàìåòðû:                                                                |
//|    sy - íàèìåíîâàíèå èíñòðóìåíòà   (""   - ëþáîé ñèìâîë,                   |
//|                                     NULL - òåêóùèé ñèìâîë)                 |
//|    op - îïåðàöèÿ                   (-1   - ëþáàÿ ïîçèöèÿ)                  |
//|    mn - MagicNumber                (-1   - ëþáîé ìàãèê)                    |
//|    ot - âðåìÿ îòêðûòèÿ             ( 0   - ëþáîå âðåìÿ îòêðûòèÿ)           |
//+----------------------------------------------------------------------------+
bool ExistPositions(string sy="", int op=-1, int mn=-1, datetime ot=0) {
  int i, k=OrdersTotal();

  if (sy=="0") sy=Symbol();
  for (i=0; i<k; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==sy || sy=="") {
        if (OrderType()==OP_BUY || OrderType()==OP_SELL) {
          if (op<0 || OrderType()==op) {
            if (mn<0 || OrderMagicNumber()==mn) {
              if (ot<=OrderOpenTime()) return(True);
            }
          }
        }
      }
    }
  }
  return(False);
}
//+----------------------------------------------------------------------------+
//|  Àâòîð    : Êèì Èãîðü Â. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Âåðñèÿ   : 01.09.2005                                                     |
//|  Îïèñàíèå : Âîçâðàùàåò íàèìåíîâàíèå òîðãîâîé îïåðàöèè                      |
//+----------------------------------------------------------------------------+
//|  Ïàðàìåòðû:                                                                |
//|    op - èäåíòèôèêàòîð òîðãîâîé îïåðàöèè                                    |
//+----------------------------------------------------------------------------+
string GetNameOP(int op) {
  switch (op) {
    case OP_BUY      : return("Buy");
    case OP_SELL     : return("Sell");
    case OP_BUYLIMIT : return("BuyLimit");
    case OP_SELLLIMIT: return("SellLimit");
    case OP_BUYSTOP  : return("BuyStop");
    case OP_SELLSTOP : return("SellStop");
    default          : return("Unknown Operation");
  }
}
//+----------------------------------------------------------------------------+
//|  Àâòîð    : Êèì Èãîðü Â. aka KimIV,  http://www.kimiv.ru                   |
//+----------------------------------------------------------------------------+
//|  Âåðñèÿ   : 10.04.2008                                                     |
//|  Îïèñàíèå : Îòêðûâàåò ïîçèöèþ ïî ðûíî÷íîé öåíå.                            |
//+----------------------------------------------------------------------------+
//|  Ïàðàìåòðû:                                                                |
//|    sy - íàèìåíîâàíèå èíñòðóìåíòà   (NULL èëè "" - òåêóùèé ñèìâîë)          |
//|    op - îïåðàöèÿ                                                           |
//|    ll - ëîò                                                                |
//|    sl - óðîâåíü ñòîï                                                       |
//|    tp - óðîâåíü òåéê                                                       |
//|    mn - MagicNumber                                                        |
//+----------------------------------------------------------------------------+
void OpenPosition(string sy, int op, double ll, double Sl=0, double Tp=0, int mn=0) {
  color    clOpen;
  datetime ot;
  double   pp, pa, pb, tp ,sl;
  int      dg, err, it, ticket=0;
  string   lsComm="";
  

  
  if (sy=="" || sy=="0") sy=Symbol();
  int stoplevel=MarketInfo(sy,MODE_STOPLEVEL);
  int spread=MarketInfo(sy,MODE_SPREAD);
  if(Tp!=0&&Tp<stoplevel+spread){Tp=stoplevel;}  
  if (op<1){
   if (Sl>0) {sl=MarketInfo(Symbol(),MODE_ASK)-Sl*Point; }else {sl=0;}
   if (Tp>0) {tp=MarketInfo(Symbol(),MODE_ASK)+Tp*Point; }else{ tp=0;}
  }else{
   if (Sl>0) {sl=MarketInfo(Symbol(),MODE_BID)+Sl*Point; }else{ sl=0;}
   if (Tp>0) {tp=MarketInfo(Symbol(),MODE_BID)-Tp*Point;} else {tp=0;}}  
   
  if (op==OP_BUY) clOpen=clOpenBuy; else clOpen=clOpenSell;
  for (it=1; it<=NumberOfTry; it++) {
    if (IsStopped()) {
      Print("OpenPosition(): Îñòàíîâêà ðàáîòû ôóíêöèè");
      break;}
    while (!IsTradeAllowed()) Sleep(5000);
    RefreshRates();
    dg=MarketInfo(sy, MODE_DIGITS);
    pa=MarketInfo(sy, MODE_ASK);
    pb=MarketInfo(sy, MODE_BID);
    if (op==OP_BUY) pp=pa; else pp=pb;
    pp=NormalizeDouble(pp, dg);
    ot=TimeCurrent();
    if (MarketWatch)
      ticket=OrderSend(sy, op, ll, pp, Slippage, 0, 0, lsComm, mn, 0, clOpen);
    else
      ticket=OrderSend(sy, op, ll, pp, Slippage, sl, tp, lsComm, mn, 0, clOpen);
    if (ticket>0) {
      if (UseSound) PlaySound(NameFileSound); break;
    } else {
      err=GetLastError();
      if (pa==0 && pb==0) Message("Ïðîâåðüòå â Îáçîðå ðûíêà íàëè÷èå ñèìâîëà "+sy);
      // Âûâîä ñîîáùåíèÿ îá îøèáêå
      if(print){
      Print("Error(",err,") opening position: ",ErrorDescription(err),", try ",it);
      Print("Ask=",pa," Bid=",pb," sy=",sy," ll=",ll," op=",GetNameOP(op),
            " pp=",pp," sl=",sl," tp=",tp," mn=",mn);}
      // Áëîêèðîâêà ðàáîòû ñîâåòíèêà
      if (err==2 || err==64 || err==65 || err==133) {
        gbDisabled=True; break;
      }
      // Äëèòåëüíàÿ ïàóçà
      if (err==4 || err==131 || err==132) {
        Sleep(1000*300); break;
      }
      if (err==128 || err==142 || err==143) {
        Sleep(1000*66.666);
        if (ExistPositions(sy, op, mn, ot)) {
          if (UseSound) PlaySound(NameFileSound); break;
        }
      }
      if (err==140 || err==148 || err==4110 || err==4111) break;
      if (err==141) Sleep(1000*100);
      if (err==145) Sleep(1000*17);
      if (err==146) while (IsTradeContextBusy()) Sleep(1000*11);
      if (err!=135) Sleep(1000*7.7);
    }
  }
  if (MarketWatch && ticket>0 && (sl>0 || tp>0)) {
    if (OrderSelect(ticket, SELECT_BY_TICKET)) ModifyOrder(-1, sl, tp);
  }
}
//+----------------------------------------------------------------------------+