//+------------------------------------------------------------------+
//|                                                     Pivot SR.mq4 |
//|                                        Copyright © 2007, LEGRUPO |
//|                                           http://www.legrupo.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2007, LEGRUPO"
#property link      "http://www.legrupo.com"

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

#property copyright "Copyright © 2007, LEGRUPO Version 1.1"
#property link      "http://www.legrupo.com"

extern string StartOpenOrdersOn = "FROM 00:00 UNTIL 01:00"; // look on your chart to see when your daily bar open
extern int MinimumToContinue = 100; // pips the daily bar must have
extern bool UseStopLoss = true;
extern double TakeProfit = 80;
extern double StopLoss = 40;
extern double LotSize = 0.1;
extern double Slippage = 5;
extern string BuyComment = "Pivot SR BUY";
extern string SellComment = "Pivot SR SELL";
extern color clOpenBuy = Blue;
extern color clOpenSell = Red;
extern int MagicNumber = 123789654;

int ticket_buy_PSR, ticket_sell_PSR, cmt_buy_PSR, cmt_sell_PSR = 0;
bool buy_now = false;
bool sell_now = false;

//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
//----   
   double R3Buffer = iCustom(NULL,0,"Pivot Sr-mod",false,0,0);
   double R2Buffer = iCustom(NULL,0,"Pivot Sr-mod",false,1,0);
   double R1Buffer = iCustom(NULL,0,"Pivot Sr-mod",false,2,0);
   double PBuffer = iCustom(NULL,0,"Pivot Sr-mod",false,3,0);
   double S1Buffer = iCustom(NULL,0,"Pivot Sr-mod",false,4,0);
   double S2Buffer = iCustom(NULL,0,"Pivot Sr-mod",false,5,0);
   double S3Buffer = iCustom(NULL,0,"Pivot Sr-mod",false,6,0);
   Comment("R3Buffer: ",R3Buffer,
   "\nR2Buffer: ",R2Buffer,
   "\nR1Buffer: ",R1Buffer,
   "\nPBuffer: ",PBuffer,
   "\nS1Buffer: ",S1Buffer,
   "\nS2Buffer: ",S2Buffer,
   "\nS3Buffer: ",S3Buffer,
   "\nBid: ", Bid,
   "\nAsk: ", Ask);

   double buy_stoploss,sell_stoploss, buy_price, sell_price, buy_take_profit, sell_take_profit = 0;
   int order_buy_type,order_sell_type;

   buy_price        = S2Buffer;
   sell_price       = R2Buffer;
   order_buy_type = OP_BUYLIMIT;
   order_sell_type = OP_SELLLIMIT;
   
   if (Bid == buy_price) {
      buy_now = true;
   }
   if (Ask == sell_price) {
      sell_now = true;
   }
   
   if (UseStopLoss) {
      buy_stoploss     = S3Buffer;
      sell_stoploss    = R3Buffer;
   } else {
      buy_stoploss = 0;
      sell_stoploss = 0;
   }
   //buy_take_profit  = buy_price+(TakeProfit*Point);
   //sell_take_profit = sell_price-(TakeProfit*Point);
   buy_take_profit  = PBuffer;
   sell_take_profit = PBuffer;
   
   if ((OrderSelect(ticket_buy_PSR, SELECT_BY_TICKET, MODE_TRADES) == false) && (buy_now == true)) {
      ticket_buy_PSR = OrderSend(Symbol(),order_buy_type,LotSize,buy_price,Slippage,buy_stoploss,buy_take_profit,BuyComment,MagicNumber,0,clOpenBuy);
      buy_now = false;      
      if (ticket_buy_PSR < 0) {
         buy_now = true;
         Alert("PSR, Open BUY order error: ", ErrorDescription(GetLastError()));
      }
   }
   cmt_buy_PSR=OrderCloseTime();
      if(cmt_buy_PSR>0) { // checa se a ordem foi fechada
        ticket_buy_PSR = 0;
      }
   
   if ((OrderSelect(ticket_sell_PSR, SELECT_BY_TICKET, MODE_TRADES) == false) && (sell_now == true)) {
      sell_now = false;
      ticket_sell_PSR = OrderSend(Symbol(),order_sell_type,LotSize,sell_price,Slippage,sell_stoploss,sell_take_profit,SellComment,MagicNumber,0,clOpenSell); 
      if (ticket_sell_PSR < 0) {
         sell_now = true;
         Alert("PSR, Open SELL order error: ", ErrorDescription(GetLastError()));
      }
   }
   cmt_sell_PSR=OrderCloseTime();
      if(cmt_sell_PSR>0) { // checa se a ordem foi fechada
        ticket_sell_PSR = 0;
      }
//----
   return(0);
  }
//+------------------------------------------------------------------+