Скрипт за затваряне на всички активни сделки

При стартирането си този скрипт затваря всички отворени сделки на платформата.

//+------------------------------------------------------------------+
#property strict

#include <stdlib.mqh>
#include <stderror.mqh>
//
//Скрипт за затваряне на всички сделки
//
void OnStart()
  {
   for(int x=OrdersTotal()-1;x>=0;x--)
     {
      if(!OrderSelect(x,SELECT_BY_POS,MODE_TRADES)) continue;
      if(OrderType()==OP_BUY || OrderType()==OP_SELL)
        {
         if(!OrderClose(OrderTicket(),OrderLots(),OrderClosePrice(),3,clrRed)){ Alert(ErrorDescription(GetLastError())); }
         else Alert("All Closed");
        }
     }
  }
//+------------------------------------------------------------------+

Скриптът се предоставя във вида в който е и отговорноста за използването му е изцяло за сметка на потребителя.