forex-scalping.com

Code: Select all

//+------------------------------------------------------------------+
//|                                       EmergencyFlatPro_MT4.mq4   |
//+------------------------------------------------------------------+
#property copyright "Generated Script"
#property version   "1.00"
#property description "Pro Emergency Flat for MT4 - Manages Trade Context & Requotes"
#property script_show_inputs

input string TargetAsset       = "CHF"; // Asset to target (case-sensitive, usually UPPERCASE)
input int    MaxRetries        = 5;     // Number of attempts if broker rejects
input int    MaxSlippagePoints = 50;    // Max slippage in points (e.g., 50 = 5 pips)
input bool   PlaySoundAlert    = true;  // Play alert.wav on completion

//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
void OnStart()
  {
   if(TargetAsset == "")
     {
      Print("❌ Target Asset cannot be empty. Exiting.");
      return;
     }

   int closedCount = 0;
   int deletedCount = 0;
   int total = OrdersTotal();
   
   if(total == 0)
     {
      Print("ℹ️ INFO: No orders to process. Standing by.");
      return;
     }
     
   Print("🚨 EMERGENCY PROTOCOL INITIATED: Flattening ", TargetAsset, " exposure...");

   // Loop backwards: critical because closing an order shifts the pool index
   for(int i = total - 1; i >= 0; i--)
     {
      if(!OrderSelect(i, SELECT_BY_POS, MODE_TRADES))
         continue;

      string symbol = OrderSymbol();
      
      // Check if the target asset is in the symbol string (e.g., EURCHF, USDCHF.m)
      if(StringFind(symbol, TargetAsset) == -1)
         continue;

      int type     = OrderType();
      int ticket   = OrderTicket();
      double lots  = OrderLots();
      
      bool success = false;
      int attempts = 0;
      
      // Retry loop to handle requotes, slippage, and busy contexts
      while(!success && attempts < MaxRetries)
        {
         // 1. Thread Safety: Wait if the terminal trade thread is locked by an EA
         while(IsTradeContextBusy())
           {
            Sleep(50);
           }
           
         // 2. Quote Freshness: Refresh rates for the terminal, but specifically 
         // pull the exact MarketInfo Bid/Ask for the target symbol.
         RefreshRates(); 
         
         if(type == OP_BUY || type == OP_SELL)
           {
            double closePrice = 0;
            if(type == OP_BUY) closePrice = MarketInfo(symbol, MODE_BID);
            if(type == OP_SELL) closePrice = MarketInfo(symbol, MODE_ASK);
            
            // Normalize price to prevent Error 130 (Invalid Price)
            int digits = (int)MarketInfo(symbol, MODE_DIGITS);
            closePrice = NormalizeDouble(closePrice, digits);
            
            success = OrderClose(ticket, lots, closePrice, MaxSlippagePoints, clrRed);
            
            if(success)
              {
               Print("✅ SUCCESS: Closed Position ", symbol, " | Ticket: ", ticket);
               closedCount++;
              }
            else
              {
               int err = GetLastError();
               Print("⚠️ FAILED to close ", symbol, " | Ticket: ", ticket, " | Error: ", err, " | Attempt: ", attempts + 1);
               Sleep(200); // Pause before hammering the broker again
              }
           }
         // Pending Orders
         else if(type == OP_BUYLIMIT || type == OP_SELLLIMIT || type == OP_BUYSTOP || type == OP_SELLSTOP)
           {
            success = OrderDelete(ticket, clrRed);
            
            if(success)
              {
               Print("✅ SUCCESS: Canceled Order ", symbol, " | Ticket: ", ticket);
               deletedCount++;
              }
            else
              {
               int err = GetLastError();
               Print("⚠️ FAILED to cancel ", symbol, " | Ticket: ", ticket, " | Error: ", err, " | Attempt: ", attempts + 1);
               Sleep(200);
              }
           }
           
         attempts++;
        }
        
      if(!success)
        {
         Print("❌ FATAL: Broker refused to resolve ticket ", ticket, " after ", MaxRetries, " attempts.");
        }
     }

   Print("🏁 EMERGENCY PROTOCOL COMPLETE. Positions closed: ", closedCount, " | Orders deleted: ", deletedCount);
   
   if(PlaySoundAlert)
     {
      PlaySound("alert.wav");
     }
  }
//+------------------------------------------------------------------+