forex-scalping.com

Code: Select all

//+------------------------------------------------------------------+
//|                                       ECN_Pro_Scalper_M15.mq4    |
//|                                                                  |
//+------------------------------------------------------------------+
#property copyright "Profi ECN Scalping Implementation"
#property link      "https://forex-scalping.com"
#property version   "1.00"
#property strict

//--- INPUT PARAMETERS
input double   InpLotSize     = 0.1;       // Trading Volume
input int      InpStopLoss    = 15;        // Stop Loss (Pips)
input int      InpTakeProfit  = 30;        // Take Profit (Pips)
input int      InpSlippage    = 3;         // Max Slippage (Pips)
input int      InpMaxSpread   = 20;        // Max Spread (Points)
input int      InpMagicNumber = 888888;    // Magic Number

//--- GLOBAL VARIABLES
double         g_pipsMultiplier; // Adjusts Points to Pips for 4/5 digit brokers

//+------------------------------------------------------------------+
//| Expert initialization function                                   |
//+------------------------------------------------------------------+
int OnInit()
{
   // Handle 3/5-digit brokers (ECN standard): 1 pip = 10 points
   if(Digits == 3 || Digits == 5) 
      g_pipsMultiplier = 10.0; 
   else 
      g_pipsMultiplier = 1.0;

   return(INIT_SUCCEEDED);
}

//+------------------------------------------------------------------+
//| Expert tick function                                             |
//+------------------------------------------------------------------+
void OnTick()
{
   // 1. GATING: Strictly evaluate only once per new bar using a static variable
   static datetime lastBarTime = 0;
   if(Time[0] == lastBarTime) 
      return;
   
   // 2. LOGIC: Check if the previous bar (Index 1) was bullish
   bool isPrevBullish = (Close[1] > Open[1]);
   
   if(isPrevBullish)
   {
      // 3. RISK MANAGEMENT: Spread filter before execution
      double currentSpread = MarketInfo(Symbol(), MODE_SPREAD);
      if(currentSpread > InpMaxSpread)
      {
         Print("Trade aborted: Spread (", currentSpread, " pts) exceeds Max Spread (", InpMaxSpread, ")");
         lastBarTime = Time[0]; // Mark candle processed so it doesn't spam logs
         return;
      }
      
      // 4. EXECUTE
      ExecuteECNBuy();
      
      // Update bar time only after evaluating the execution logic
      lastBarTime = Time[0];
   }
}

//+------------------------------------------------------------------+
//| Profi ECN Execution Function                                     |
//+------------------------------------------------------------------+
void ExecuteECNBuy()
{
   // Calculate slippage into exact broker points
   int slippagePoints = (int)(InpSlippage * g_pipsMultiplier);
   
   // Ensure pricing data is completely up to date before calling OrderSend
   RefreshRates();
   double askPrice = Ask;
   
   // TRAP 1 AVOIDED: True ECN Execution requires 0 SL and 0 TP on the initial entry
   ResetLastError();
   int ticket = OrderSend(Symbol(), OP_BUY, InpLotSize, askPrice, slippagePoints, 0.0, 0.0, "Profi ECN Scalp", InpMagicNumber, 0, clrDodgerBlue);
   
   if(ticket < 0)
   {
      Print("CRITICAL: OrderSend failed. Error Code: ", GetLastError());
      return;
   }
   
   // TRAP 2 & 3 AVOIDED: Order placed successfully. Now select it to modify with exact fill price.
   if(OrderSelect(ticket, SELECT_BY_TICKET))
   {
      // Use the actual execution price, not the requested askPrice (accounts for slippage)
      double openPrice = OrderOpenPrice(); 
      
      // Calculate distances in actual broker points
      double slPoints = InpStopLoss * g_pipsMultiplier * Point;
      double tpPoints = InpTakeProfit * g_pipsMultiplier * Point;
      
      double slTarget = openPrice - slPoints;
      double tpTarget = openPrice + tpPoints;
      
      // TRAP 4 AVOIDED: Normalize prices to the broker's exact digit specification
      slTarget = NormalizeDouble(slTarget, Digits);
      tpTarget = NormalizeDouble(tpTarget, Digits);
      
      // Check broker stop levels to prevent Error 130 (ERR_INVALID_STOPS)
      double minStopLevel = MarketInfo(Symbol(), MODE_STOPLEVEL) * Point;
      if(openPrice - slTarget < minStopLevel || tpTarget - openPrice < minStopLevel)
      {
         Print("WARNING: SL or TP is too close to market. Adjusting to broker minimums.");
         // Note: A fully dynamic system would recalculate and push stops to the minStopLevel here.
      }
      
      // Apply the Stop Loss and Take Profit via OrderModify
      ResetLastError();
      bool modified = OrderModify(ticket, openPrice, slTarget, tpTarget, 0, clrNONE);
      
      if(!modified)
      {
         Print("CRITICAL: OrderModify failed. Order is naked! Error Code: ", GetLastError());
      }
      else
      {
         Print("SUCCESS: Order executed and protected. Ticket: ", ticket, " Fill: ", openPrice);
      }
   }
   else
   {
      Print("CRITICAL: OrderSend returned ticket, but OrderSelect failed. Error: ", GetLastError());
   }
}
//+------------------------------------------------------------------+