//+------------------------------------------------------------------+
//|                                                      3-6-9_EA.mq5|
//|                                                 Strategy Template|
//+------------------------------------------------------------------+
#property copyright "Your Name"
#property link      "Your Link"
#property version   "1.00"
#property strict

//--- Input parameters
input double   Lots = 0.1;           // Position Size in Lots
input int      StopLossPips = 15;    // Stop Loss in Pips
input int      TakeProfitPips = 30;  // Take Profit in Pips

input int      EMA_Short_Period = 3;   // EMA 3 Period
input int      EMA_Medium_Period = 6;  // EMA 6 Period
input int      EMA_Long_Period = 9;    // EMA 9 Period
input int      ATR_Period = 10;        // ATR 10 Period

//--- Indicator Handles
int h_ema_short;
int h_ema_medium;
int h_ema_long;
int h_atr;

//--- Expert Advisor Initialization
int OnInit()
{
   //--- 1. Create indicator handles
   h_ema_short  = iMA(_Symbol, _Period, EMA_Short_Period, 0, MODE_EMA, PRICE_CLOSE);
   h_ema_medium = iMA(_Symbol, _Period, EMA_Medium_Period, 0, MODE_EMA, PRICE_CLOSE);
   h_ema_long   = iMA(_Symbol, _Period, EMA_Long_Period, 0, MODE_EMA, PRICE_CLOSE);
   h_atr        = iATR(_Symbol, _Period, ATR_Period);

   //--- 2. Check for successful creation
   if(h_ema_short == INVALID_HANDLE || h_ema_medium == INVALID_HANDLE || 
      h_ema_long == INVALID_HANDLE || h_atr == INVALID_HANDLE)
   {
      Print("Error creating indicator handles. Error: ", GetLastError());
      return(INIT_FAILED);
   }
   
   return(INIT_SUCCEEDED);
}

//--- Expert Advisor Deinitialization
void OnDeinit(const int reason)
{
   //--- Release indicator handles
   IndicatorRelease(h_ema_short);
   IndicatorRelease(h_ema_medium);
   IndicatorRelease(h_ema_long);
   IndicatorRelease(h_atr);
}

//--- Expert Advisor Tick Function
void OnTick()
{
   // Check if the EA is waiting for the close of a new bar
   if (!IsNewBar()) return;
   
   // Check if a position is already open for this symbol
   if (PositionSelect(_Symbol)) return;

   //--- Variable Declarations
   double ema_short[2], ema_medium[2], ema_long[2]; // [0] current, [1] previous
   double atr_value[1]; // [0] current
   MqlRates rates[2];    // [0] current/entry bar, [1] previous bar
   
   //--- 1. Get Indicator Data for the **Entry Bar (shift 1)**
   // We are checking the entry condition on the *closed* bar (shift 1)
   // and will open on the *open* of the *next* bar (shift 0).
   if(CopyBuffer(h_ema_short, 0, 1, 2, ema_short) != 2 ||
      CopyBuffer(h_ema_medium, 0, 1, 2, ema_medium) != 2 ||
      CopyBuffer(h_ema_long, 0, 1, 2, ema_long) != 2 ||
      CopyBuffer(h_atr, 0, 1, 1, atr_value) != 1)
   {
      Print("Error copying indicator data. Error: ", GetLastError());
      return;
   }
   
   //--- 2. Get Price Data for the **Entry Bar (shift 1)**
   if(CopyRates(_Symbol, _Period, 1, 2, rates) != 2)
   {
      Print("Error copying price data. Error: ", GetLastError());
      return;
   }
   
   //--- 3. Check Trading Hours (Needs Time Zone Logic)
   if (!IsTradingTime()) return; 

   //--- 4. Calculate ATR-based Stop Size
   double atr_2x = 2.0 * atr_value[0];
   double entry_candle_size = MathAbs(rates[0].open - rates[0].close);
   
   //--- 5. Long Entry Conditions
   bool long_ema_ok = (ema_short[0] > ema_medium[0] && ema_medium[0] > ema_long[0]);
   bool long_candle_size_ok = (entry_candle_size > atr_2x);
   bool long_candle_type_ok = (rates[0].open < rates[0].close); // Bullish Candle
   
   if (long_ema_ok && long_candle_size_ok && long_candle_type_ok)
   {
      double sl_price = rates[1].open - StopLossPips * _Point; // Use Open of the NEXT bar (rates[1]) for the order price
      double tp_price = rates[1].open + TakeProfitPips * _Point;
      
      // Normalize Stop Loss and Take Profit prices
      sl_price = NormalizeDouble(sl_price, _Digits);
      tp_price = NormalizeDouble(tp_price, _Digits);
      
      //*** EXECUTION: You need to implement your trade execution (Buy Lots at Market) ***
      // Example of a function you would use (or similar class methods):
      // Trade.Buy(Lots, _Symbol, rates[1].open, sl_price, tp_price);
      Print("Long Signal: EMA, ATR, and Candle Type conditions met.");
   }

   //--- 6. Short Entry Conditions
   bool short_ema_ok = (ema_short[0] < ema_medium[0] && ema_medium[0] < ema_long[0]);
   bool short_candle_size_ok = (entry_candle_size > atr_2x);
   bool short_candle_type_ok = (rates[0].open > rates[0].close); // Bearish Candle

   if (short_ema_ok && short_candle_size_ok && short_candle_type_ok)
   {
      double sl_price = rates[1].open + StopLossPips * _Point;
      double tp_price = rates[1].open - TakeProfitPips * _Point;
      
      sl_price = NormalizeDouble(sl_price, _Digits);
      tp_price = NormalizeDouble(tp_price, _Digits);
      
      //*** EXECUTION: You need to implement your trade execution (Sell Lots at Market) ***
      // Example of a function you would use (or similar class methods):
      // Trade.Sell(Lots, _Symbol, rates[1].open, sl_price, tp_price);
      Print("Short Signal: EMA, ATR, and Candle Type conditions met.");
   }
}

//+------------------------------------------------------------------+
//| Helper Function: Check for New Bar                               |
//+------------------------------------------------------------------+
bool IsNewBar()
{
   static datetime last_time = 0;
   datetime current_time[1];
   
   if (CopyTime(_Symbol, _Period, 0, 1, current_time) > 0)
   {
      if (last_time != current_time[0])
      {
         last_time = current_time[0];
         return true;
      }
   }
   return false;
}

//+------------------------------------------------------------------+
//| Helper Function: Check Trading Time (2 a.m. to 12 p.m. NY Time)  |
//| IMPORTANT: This is the most complex part due to DST.             |
//| A more robust function is required for production use.           |
//+------------------------------------------------------------------+
bool IsTradingTime()
{
    // A simplified approach: Get GMT time, convert to NY, and check the hour.
    // NOTE: This simple method may be wrong during DST transition periods.
    // NY is UTC-5 (EST) or UTC-4 (EDT).
    
    MqlDateTime gmtTime;
    TimeToStruct(TimeGMT(), gmtTime);

    // Get the broker's server time zone offset in seconds from GMT
    long gmt_offset_sec = (long)TimeGMT() - (long)TimeCurrent();
    
    // Check for Daylight Saving Time (DST) on the broker's server
    // A common, though not universally accurate, method to check DST:
    // If broker time is GMT+2 in winter and GMT+3 in summer, and
    // the TimeServer() hour is different from the TimeGMT() hour + offset, DST is active.
    
    // For a *rough* estimation, we'll use a fixed offset (e.g., -5 hours)
    // and adjust manually for DST if necessary (e.g., -4 hours).
    
    // A function from a library (like the one in the search results) 
    // or a more complex calculation that checks the date is the *correct* way.
    
    // Example of a *basic* (and potentially incorrect during DST changes) calculation:
    int NY_Offset_Hours = -5; // Default EST (UTC-5)
    
    // *** You need to determine if NY is currently in EDT (UTC-4) or EST (UTC-5)
    // and set NY_Offset_Hours accordingly based on the current date. ***
    
    int NY_Hour = gmtTime.hour + NY_Offset_Hours;
    if (NY_Hour < 0) NY_Hour += 24; // Handle wrap-around for time before midnight
    if (NY_Hour >= 24) NY_Hour -= 24; // Handle wrap-around for time after midnight
    
    int start_hour = 2; // 2 a.m. NY
    int end_hour = 12; // 12 p.m. NY (noon)

    if (NY_Hour >= start_hour && NY_Hour < end_hour)
    {
        return true;
    }
    
    return false;
}

/*
// --- NOTES FOR IMPLEMENTATION ---

1.  **Time Zone:** The `IsTradingTime()` function is a placeholder. You *must* implement a robust system to handle **New York DST (Daylight Saving Time)** changes, as the offset from GMT/UTC changes twice a year (UTC-5 in winter, UTC-4 in summer). Search the MQL5 community for a reliable `IsNYDST()` function or a time zone library.

2.  **Trade Execution:** The EA needs a trading library (like the built-in `CTrade` class, `#include <Trade/Trade.mqh>`) to open, modify, and close positions. The `Trade.Buy()` and `Trade.Sell()` lines are placeholders. You'll need to calculate the actual stop loss and take profit *prices* based on the entry price and the pips.

3.  **Position Selection:** The check `if (PositionSelect(_Symbol)) return;` ensures the EA only opens one position at a time on the current symbol.

4.  **Entry Bar Shift:** The code uses `rates[0]` for the entry candle's OHLC and `rates[1]` for the price of the candle that is *currently* opening (where the order will be placed). This is common practice: check conditions on the *closed* bar and enter on the *open* of the next bar.

*/