//+------------------------------------------------------------------+
//|                                                  CloseTrades.mq4 |
//|                            Copyright © 2006, iExpertAdvisor, LLC |
//|                                    http://www.iExpertAdvisor.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, iExpertAdvisor, LLC"
#property link      "http://www.iExpertAdvisor.com"

#include <stdlib.mqh>


int init()
{
  fnCloseTrades();
  return(0);
}


int start()
{
   fnCloseTrades();
   return(0);
}


int fnCloseTrades()
{
   int total=OrdersTotal();
   double mySpread, myPrice;
   int type=0;
   bool stat;
   
   for( int cnt=0;cnt<total;cnt++ )
   {
      type=0;
      if( (OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES)) == False )
      {
         Print( "OrderSelect failed:", GetLastError() );
         return(-1);
      }
      //
      RefreshRates();
      switch( OrderType() )
      {
         case OP_BUY:
            mySpread= MarketInfo(OrderSymbol(), MODE_SPREAD);
            myPrice = MarketInfo(OrderSymbol(), MODE_BID);
            break;
            
         case OP_SELL:
            mySpread= MarketInfo(OrderSymbol(), MODE_SPREAD);
            myPrice = MarketInfo(OrderSymbol(), MODE_ASK);
            break;
      
         default:
            type=1;
            break;      
      
      }
      
      if( type == 1 )
         stat = OrderDelete(OrderTicket());
      else
         stat = OrderClose( OrderTicket(), OrderLots(), myPrice, 8, Yellow );
         
      if( stat == false )
      {
         int err=GetLastError();
         Print("OrderClose failed, error=", err, ": ", ErrorDescription(err) );
      }
      else
         Print( "OrderClose OrderTicket:", OrderTicket() );   
      
   }
   return(0);
}