Drawdown Percent Close EA

for(int i = OrdersTotal() - 1; i >= 0; i--)

for(int i = 0; i < OrdersTotal(); i++)

// +------------------------------------------------------------------+
// |                                       Drawdown Percent Close.mq4 |
// +------------------------------------------------------------------+
// MIT License
// Copyright © 2021 Michael Ng
// Permission is hereby granted, free of charge, to any person obtaining a copy of this software
// and associated documentation files (the "Software"), to deal in the Software without
// restriction, including without limitation the rights to use, copy, modify, merge, publish,
// distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the
// Software is furnished to do so, subject to the following conditions:
// The above copyright notice and this permission notice shall be included in all copies or
// substantial portions of the Software.
// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING
// BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,
// DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
// OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

#property link        "www.raidenworks.com"
#property version     "21.06"
#property strict

//-------------------------------------------------------------------------------------------------

input string _1                          = "";    //_____Settings_____
input double e_d_DrawdownTrigger_Percent = 2.0;   //Drawdown Trigger Percentage
input int    e_i_MaxSlippage_Points      = 30;    //Maximum Slippage in Points
input bool   e_b_DeletePendingToo        = False; //Delete Pending Orders on trigger too
input string _2                          = "";    //_____Display_____
input int    e_i_TopPadding              = 0;     //Top Padding
input int    e_i_LeftPadding             = 0;     //Left Padding
 
//-------------------------------------------------------------------------------------------------

string gi_s_AccountCurrency = "";
double g_d_AccountEquity = 0.0;
double g_d_AccountBalance = 0.0;
double g_d_CurrentDrawdown = 0.0;
double g_d_CurrentDrawdown_Percent = 0.0;
double g_d_CurrentDrawdown_AccountCurrency = 0.0;

//-------------------------------------------------------------------------------------------------

int OnInit(){

   gi_s_AccountCurrency = AccountCurrency();

   return(INIT_SUCCEEDED);
}

//-------------------------------------------------------------------------------------------------

void OnTick(){

   g_d_AccountEquity = AccountEquity();
   g_d_AccountBalance = AccountBalance();
   g_d_CurrentDrawdown = g_d_AccountBalance - g_d_AccountEquity;
   g_d_CurrentDrawdown_Percent = (1 - g_d_AccountEquity / g_d_AccountBalance) * 100;
   g_d_CurrentDrawdown_AccountCurrency = g_d_AccountBalance * e_d_DrawdownTrigger_Percent / 100;

   if(g_d_CurrentDrawdown_Percent > e_d_DrawdownTrigger_Percent){
      CloseAllPositions(e_i_MaxSlippage_Points);
      if(e_b_DeletePendingToo)DeleteAllPendingOrders();
   }

   Display();

}
 
//-------------------------------------------------------------------------------------------------

void Display(){

   string TOP = "";
   for(int line = 0; line < e_i_TopPadding; line++)TOP = TOP + "\n";
   string LEFT = "";
   for(int space = 0; space < e_i_LeftPadding; space++)LEFT = LEFT + " ";
   string A1 = StringConcatenate(TOP);
   string A2 = StringConcatenate(LEFT, "Balance: ",      DoubleToStr(g_d_AccountBalance, 2), " ", gi_s_AccountCurrency, "\n");
   string A3 = StringConcatenate(LEFT, "Equity: ",       DoubleToStr(g_d_AccountEquity, 2), " ", gi_s_AccountCurrency, "\n");
   string A4 = StringConcatenate(LEFT, "DD Trigger: ",   DoubleToStr(g_d_CurrentDrawdown_AccountCurrency, 2), " ", gi_s_AccountCurrency, "\n");
   string A5 = StringConcatenate(LEFT, "DD Current: ",   DoubleToStr(g_d_CurrentDrawdown, 2), " ", gi_s_AccountCurrency, "\n");
   string A6 = "\n";
   string A7 = StringConcatenate(LEFT, "DD Trigger %: ", DoubleToStr(e_d_DrawdownTrigger_Percent, 2), "\n");
   string A8 = StringConcatenate(LEFT, "DD Current %: ", DoubleToStr(g_d_CurrentDrawdown_Percent, 2));

   Comment(StringConcatenate(A1,A2,A3,A4,A5,A6,A7,A8));

}

//-------------------------------------------------------------------------------------------------

// Purpose: Return OrderTicket of YOUNGEST detected Position
// Usage:   CloseAllPositions()
// Outputs: function int OrderTicket()

int TicketOfYoungestPosition(){

   for(int i = OrdersTotal() - 1; i >= 0; i--){
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))return(0);
      if(OrderType() < 2)return(OrderTicket()); //OP_BUY = 0, OP_SELL = 1
   }

   return(0);
}

//-------------------------------------------------------------------------------------------------

// Purpose: Return OrderTicket of YOUNGEST detected Pending Order
// Usage:   DeleteAllPendingOrders()
// Outputs: function int OrderTicket()

int TicketOfYoungestPendingOrder(){

   for(int i = OrdersTotal() - 1; i >= 0; i--){
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))return(0);
      if(OrderType() > 1)return(OrderTicket()); //OP_BUY = 0, OP_SELL = 1, OP_BUYLIMIT = 2, OP_SELLLIMIT = 3, OP_BUYSTOP = 4, OP_SELLSTOP = 5
   }

   return(0);
}

//-------------------------------------------------------------------------------------------------

// Purpose: Close all Positions
// Usage:   OnTick()
// Inputs:  function int    TicketOfYoungestPosition()
// Outputs: bool
//          function bool   OrderClose()
//          function string ErrorDescription()
// NB:      'while' loop continues as long as TicketOfYoungestPosition() > 0, which itself has a loop to get the OrderTickets of existing Positions

bool CloseAllPositions(const int &p_i_MaxSlippage_Points){

   int l_i_OrderTicket = 0, l_i_attempts = 3;
   bool l_b_result = false;

   while(l_i_attempts > 0){

      l_i_OrderTicket = TicketOfYoungestPosition();

      if(l_i_OrderTicket > 0){

         l_b_result = OrderClose(l_i_OrderTicket, OrderLots(), OrderClosePrice(), p_i_MaxSlippage_Points, clrBlue); //we can call OrderLots(), OrderClosePrice() directly here as latest OrderSelect() is in TicketOfYoungestPosition() immediately above

         if(!l_b_result){

            Print(TimeCurrent(), " CloseAllPositions() failed to close Position #", l_i_OrderTicket, " : Error #", GetLastError());

            l_i_attempts--;

            Sleep(2000);
            continue; //check this order again //do not need to OrderSelect(l_i_OrderTicket, SELECT_BY_TICKET, MODE_TRADES) to refresh OrderClosePrice() as TicketOfYoungestPosition() in next iteration of loop already does it

         }
         continue; //l_b_result = true; check next order

      }
      return(true); //return(true) as no Positions left

   }

   Print(TimeCurrent(), " Reached maximum attempts to close Positions");

   return(false);
}

//-------------------------------------------------------------------------------------------------

// Purpose: Delete all Pending Orders
// Usage:   OnTick()
// Inputs:  function int    TicketOfYoungestPendingOrder()
// Outputs: bool
//          function bool   OrderDelete()
//          function string ErrorDescription()
// NB:      'while' loop continues as long as TicketOfYoungestPendingOrder() > 0, which itself has a loop to get the OrderTickets of existing Pending Orders

bool DeleteAllPendingOrders(){

   int l_i_OrderTicket = 0, l_i_attempts = 3;
   bool l_b_result = false;

   while(l_i_attempts > 0){

      l_i_OrderTicket = TicketOfYoungestPendingOrder();

      if(l_i_OrderTicket > 0){

         l_b_result = OrderDelete(l_i_OrderTicket);

         if(!l_b_result){

            Print(TimeCurrent(), " DeleteAllPendingOrders() failed to delete Pending Order #", l_i_OrderTicket, " : Error #", GetLastError());

            l_i_attempts--;

            Sleep(2000);
            continue; //check this order again

         }
         continue; //l_b_result = true; check next order

      }
      return(true); //return(true) as no Pending Orders left

   }

   Print(TimeCurrent(), " Reached maximum attempts to close Pending Orders");

   return(false);
}