#include <stdlib.mqh>
#include <stderror.mqh>

#define LOOK_TO_BUY      1
#define LOOK_TO_SELL     2

extern int Magic_Number = 412625; // set this to a unique number if you intend to use the script simulataneously across many charts on the same account.
extern int UserDefinedSpread = 0; // set this to 0 if you want to use market spread. valid value is >= 0
extern double LotSize = 0.1;
extern int Slippage = 3;
extern int StopLoss = 25; // If you set StopLoss to 0, no stop loss level will be placed.
extern int TakeProfit = 0; // If you set TakeProfit to 0, no stop loss level will be placed.
extern bool OneCancelsOther = true; // This determines if you want the script to stay running and track, then delete the opposite pending order when an order has executed.
extern int NumOfCandles = 3; // This determines how many previous candles you want the EA to look for the High Lows. (buy and sell prices). valid value is > 0
extern int PositionalMarginPips = 40; // The distance excluding spread from the high lows for the opening prices. valid value is >= 0
extern int intervalseconds = 1.0; //The time interval for the script to check your trades. allows fractional seconds.

double BuyPrice = 0;
double SellPrice = 0;
int CustomSpread = 0;
bool KeepRunning = true;
int ticketToDelete = 0;

void GetPrices()
{
   double HighestHigh = High[1];
   if (NumOfCandles > 1)
   {
      for (int i=2; i<=NumOfCandles; i++)
      {
         if (High[i] > HighestHigh)
         {
            HighestHigh = High[i];
         }
      }
   }
   BuyPrice = HighestHigh + (PositionalMarginPips * Point);
   BuyPrice = NormalizeDouble(BuyPrice,Digits);
   
   double LowestLow = Low[1];
   if (NumOfCandles > 1)
   {
      for (i=2; i<=NumOfCandles; i++)
      {
         if (Low[i] < LowestLow)
         {
            LowestLow = Low[i];
         }
      }
   }
   SellPrice = LowestLow - (PositionalMarginPips * Point);
   BuyPrice = NormalizeDouble(BuyPrice,Digits);
}

void PlaceTrades()
{
   double TakeProfitPrice, StopLossPrice;
   if (TakeProfit==0)
   {
      TakeProfitPrice = 0;
   }
   else
   {
      TakeProfitPrice = BuyPrice + (TakeProfit * Point);
      TakeProfitPrice = NormalizeDouble(TakeProfitPrice,Digits);
   }
   if (StopLoss == 0)
   {
      StopLossPrice = 0;
   }
   else
   {
      StopLossPrice = BuyPrice - (StopLoss * Point);
      StopLossPrice = NormalizeDouble(StopLossPrice,Digits);
   }
   SendOrders (LOOK_TO_BUY, LotSize, BuyPrice, Slippage, StopLossPrice, TakeProfitPrice, "Straddle Buy", 0);
   
   if (TakeProfit==0)
   {
      TakeProfitPrice = 0;
   }
   else
   {
      TakeProfitPrice = SellPrice - (TakeProfit * Point);
      TakeProfitPrice = NormalizeDouble(TakeProfitPrice,Digits);
   }
   if (StopLoss == 0)
   {
      StopLossPrice = 0;
   }
   else
   { 
      StopLossPrice = SellPrice + (StopLoss * Point);
      StopLossPrice = NormalizeDouble(StopLossPrice,Digits);
   }
   SendOrders (LOOK_TO_SELL, LotSize, SellPrice, Slippage, StopLossPrice, TakeProfitPrice, "Straddle Sell", 0);
}

void SendOrders (int BuyOrSell, double LotSize, double PriceToOpen, double Slippage, double SL_Price, double TP_Price, string comments, datetime ExpirationTime)
{
   int PositionType, ticket, errorType;
   if (BuyOrSell == LOOK_TO_BUY)
   {  
      if (PriceToOpen > Ask)
      {
         PositionType = OP_BUYSTOP;
      }
      if (PriceToOpen < Ask)
      {
         PositionType = OP_BUYLIMIT;
      }
      Print("Bid: "+Bid+" Ask: "+Ask+" | Opening Buy Order: "+Symbol()+", "+PositionType+", "+LotSize+", "+PriceToOpen+", "+Slippage+", "+SL_Price+", "+TP_Price+", "+comments+", "+Magic_Number+", "+ExpirationTime+", Green");
      ticket=OrderSend(Symbol(),PositionType,LotSize,PriceToOpen,Slippage,SL_Price,TP_Price,comments,Magic_Number,ExpirationTime,CLR_NONE);
      if(ticket>0)
      {
         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
         {
            Print("BUY order opened : ",OrderOpenPrice());
         }
      }
      else 
      {  
         errorType = GetLastError();
         Print("Error opening BUY order : ", ErrorDescription(errorType));
         
      }
   }
   if (BuyOrSell == LOOK_TO_SELL)
   {  
      if (PriceToOpen < Bid)
      {
         PositionType = OP_SELLSTOP;
      }
      if (PriceToOpen > Bid)
      {
         PositionType = OP_SELLLIMIT;
      }
      Print("Bid: "+Bid+" Ask: "+Ask+" | Opening Sell Order: "+Symbol()+", "+PositionType+", "+LotSize+", "+PriceToOpen+", "+Slippage+", "+SL_Price+", "+TP_Price+", "+comments+", "+Magic_Number+", "+ExpirationTime+", Red");
      ticket=OrderSend(Symbol(),PositionType,LotSize,PriceToOpen,Slippage,SL_Price,TP_Price,comments,Magic_Number,ExpirationTime,CLR_NONE);
      if(ticket>0)
      {
         if(OrderSelect(ticket,SELECT_BY_TICKET,MODE_TRADES)) 
         {
            Print("Sell order opened : ",OrderOpenPrice());
         }
      }
      else 
      {  
         errorType = GetLastError();
         Print("Error opening SELL order : ", ErrorDescription(errorType));
      }
   }
}

void GetSpread()
{
   if (UserDefinedSpread <= 0)
   {
      CustomSpread = MarketInfo(Symbol(),MODE_SPREAD);
   }
   else
   {
      CustomSpread = UserDefinedSpread;
   }
}

int GetNumberOfPending()
{
   int count = 0;
   int total = OrdersTotal();
   if (total > 0)
   {
      for(int cnt=0;cnt<total;cnt++)
      {
         if(OrderSelect(cnt,SELECT_BY_POS))
         {
            if(OrderSymbol()==Symbol() && OrderMagicNumber() == Magic_Number)
            {
               if(OrderType() != OP_BUY && OrderType() != OP_SELL)
               {
                  ticketToDelete = OrderTicket();
                  count++;
               }
            }
         }
      }
   }
   return (count);
}

void ManageTrades()
{
   // If there's only one pending trade left, assume the other one is opened.
   // So Delete this one.
   if (GetNumberOfPending() == 1)
   {
      if (OrderDelete(ticketToDelete))
      {
         KeepRunning = false;
         Alert ("Straddle script has ended");
      }
   }
}

//+------------------------------------------------------------------+
//| script program start function                                    |
//+------------------------------------------------------------------+
int start()
{
//----
   GetSpread();
   GetPrices();
   PlaceTrades();
   Alert ("Pending Trades Placed. Please Wait...");
   int intervalMilliseconds = intervalseconds * 1000;
   while (KeepRunning && OneCancelsOther)
   {
      Sleep(intervalMilliseconds);
      ManageTrades();
   }
//----
   return(0);
}
//+------------------------------------------------------------------+