Close Open Buy

//+------------------------------------------------------------------+
//|                                               Close Open Buy.mq4 |
//|                                  Copyright © 2007, GwadaTradeBoy |
//|                                           gwadatradeboy@yahoo.fr |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, GwadaTradeBoy"
#property link      "gwadatradeboy@yahoo.fr"

int total = 0, cnt = 0;
//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
   {
//----
      total = OrdersTotal();
      for (cnt = total ; cnt >=0 ; cnt--)
               {
                  OrderSelect(0,SELECT_BY_POS,MODE_TRADES);
                  if(OrderType()==OP_BUY)
                     OrderClose(OrderTicket(),OrderLots(),Bid,5,Violet);
               }
//----
      return(0);
   }
//+------------------------------------------------------------------+