cm_CloseDeleteMouse

//+------------------------------------------------------------------+
//| removal or closure order, which put the mouse script             |
//|                              Copyright © 2012, Vladimir Khlystov |
//|                                                cmillion@narod.ru |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2012, Vladimir Khlystov"
#property link      "cmillion@narod.ru"
extern int slippage = 2;//delta
//--------------------------------------------------------------------
int start()
{
   double SL,TP;
   double Price = NormalizeDouble(WindowPriceOnDropped(),Digits);
   string txt=StringConcatenate("The script removal or closure order ",
   DoubleToStr(Price-slippage*Point,Digits)," - ",
   DoubleToStr(Price+slippage*Point,Digits)," start ",TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS));
   RefreshRates();

   bool error=true;
   int Error,OT,Ticket,nn;
   double OOP;
   while(true)
   {
      for (int j = OrdersTotal()-1; j >= 0; j--)
      {
         if (OrderSelect(j, SELECT_BY_POS))
         {
            if ((OrderSymbol() == Symbol()))
            {
               OT = OrderType();
               Ticket = OrderTicket();
               OOP = OrderOpenPrice();
               if (OOP<Price-slippage*Point || OOP > Price+slippage*Point) continue;
               if (OT==OP_BUY) 
               {
                  error=OrderClose(Ticket,OrderLots(),NormalizeDouble(Bid,Digits),slippage,Red);
                  if (error) txt = StringConcatenate(txt,"\nclosed order BUY ",Ticket);
                  else txt = StringConcatenate(txt,"\nError closing ",GetLastError());
               }
               if (OT==OP_SELL) 
               {
                  error=OrderClose(Ticket,OrderLots(),NormalizeDouble(Ask,Digits),slippage,Blue);
                  if (error) txt = StringConcatenate(txt,"\nclosed order SELL ",Ticket);
                  else txt = StringConcatenate(txt,"\nError ",GetLastError()," close ",Ticket);
               }
               if (OT>1) 
               {
                  error=OrderDelete(Ticket);
                  if (error) txt = StringConcatenate(txt,"\nDelete order ",StrOrdersType(OT)," ",Ticket);
                  else txt = StringConcatenate(txt,"\nError ",GetLastError()," delete ",StrOrdersType(OT)," ",Ticket);
               }
               if (!error) 
               {
                  Error = GetLastError();
                  if (Error<2) continue;
                  if (Error==129) 
                  {  Comment("Wrong price ",TimeToStr(TimeCurrent(),TIME_SECONDS));
                     Sleep(5000);
                     RefreshRates();
                     continue;
                  }
                  if (Error==146) 
                  {
                     j++;
                     if (IsTradeContextBusy()) Sleep(2000);
                     continue;
                  }
                  Comment("Error ",Error," closed order N ",OrderTicket(),
                          "     ",TimeToStr(TimeCurrent(),TIME_SECONDS));
               }
            }
         }
      }
      int n=0;
      for (j = 0; j < OrdersTotal(); j++)
      {
         if (OrderSelect(j, SELECT_BY_POS))
         {
            if (OrderSymbol() == Symbol())
            {
               OOP = OrderOpenPrice();
               if (OOP<Price-slippage*Point || OOP > Price+slippage*Point) continue;
               n++;
            }
         }  
      }
      if (n==0) break;
      nn++;
      if (nn>10) {Comment("Failed to close all trades, there are still ",n);break;}
      Sleep(1000);
      RefreshRates();
   }
   Comment(txt,"\nThe script has finished its work ",TimeToStr(TimeCurrent(),TIME_DATE|TIME_SECONDS));
   return(0);
}
//--------------------------------------------------------------------
string StrOrdersType(int t) 
{ 
   if (t==OP_BUY) return("Buy");
   if (t==OP_SELL) return("Sell");
   if (t==OP_BUYLIMIT) return("BuyLimit");
   if (t==OP_SELLLIMIT) return("SellLimit");
   if (t==OP_BUYSTOP) return("BuyStop");
   if (t==OP_SELLSTOP) return("SellStop");
} 
//--------------------------------------------------------------------