Hans123Trader_v3

//+------------------------------------------------------------------+
//|                                                Hans123Trader v1  |
//+------------------------------------------------------------------+
#include <stdlib.mqh>
#property copyright   "hans123"
#property link        "http://www.strategybuilderfx.com/forums/showthread.php?t=15439"
// programmed by fukinagashi
extern int BeginSession1=6;
extern int EndSession1=10;
extern int BeginSession2=10;
extern int EndSession2=14;
//----
extern double TrailingStop=0;
extern double TakeProfit=0;
extern double InitialStopLoss=40;
//----
double Lots=1;
datetime bartime=0;
double Slippage=3;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
int start()
  {
   int cnt, ticket, err, i, j, cmd;
   int MagicNumber;
   double ts, tp, LowestPrice, HighestPrice, Price;
   bool Order[5];
   string setup;
   datetime Validity=0;
   //----
   if(IsTesting() && Bars<100) return(0);
   MagicNumber=50000 + func_Symbol2Val(Symbol())*100;
   setup="H123_" + Symbol();
   //----
     if (bartime==Time[0]) 
     {
      return(0);
      }
       else 
      {
      bartime=Time[0];
     }
   ///////////////// MODIFICATIONS ON OPEN ORDERS   ////////////////////////////////////////////////////////////////////
   for(cnt=OrdersTotal();cnt>=0;cnt--)
     {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
        if(OrderType()==OP_BUY && (OrderMagicNumber()==MagicNumber+1 || OrderMagicNumber()==MagicNumber+3)) 
        {
           if(TimeDay(OrderOpenTime())!=TimeDay(Time[0])) 
           {
            Print(".");
            OrderClose(OrderTicket(), Lots, Bid, 3, Red);
            if (err>1) { Print("Error closing buy order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); 
            }
            }
             else if (OrderStopLoss()==0) 
            {
                 if (TakeProfit>0) 
                 {
                   tp=OrderOpenPrice()+TakeProfit*Point;
                 }
                  else 
                  {tp=0;}
                 if (InitialStopLoss>0) 
                 {
                     ts=OrderOpenPrice()-InitialStopLoss*Point;
                 } 
                 else 
                 {ts=0; }
               OrderModify(OrderTicket(),OrderOpenPrice(),ts,tp,0,White);
               if (err>1) { Print("Error modifying Buy order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
               }
                else if (TrailingStop>0) 
                {
               ts=Bid-Point*TrailingStop;
               if (OrderStopLoss()<ts && OrderProfit()>0) OrderModify(OrderTicket(),OrderOpenPrice(),ts,OrderTakeProfit(),0,White);
              }
         }
          else if(OrderType()==OP_SELL && (OrderMagicNumber()==MagicNumber+2 || OrderMagicNumber()==MagicNumber+4)) 
         {
              if(TimeDay(OrderOpenTime())!=TimeDay(Time[0])) 
              {
               Print(".");
               OrderClose(OrderTicket(), Lots, Ask, 3, Red);
               if (err>1) { Print("Error closing Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
               }
                else if (OrderStopLoss()==0) 
                {
                    if (TakeProfit>0) {  tp=OrderOpenPrice()-TakeProfit*Point;
                    } 
                    else 
                    {tp=0; }
                    if (InitialStopLoss>0) 
                    {
                        ts=OrderOpenPrice()+InitialStopLoss*Point;
                    } 
                    else 
                    {ts=0; }
                  OrderModify(OrderTicket(),OrderOpenPrice(),ts,tp,0,White);
                  if (err>1) { Print("Error modifying Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
                  } 
                  else if (TrailingStop>0) 
                  {
                  ts=Ask+Point*TrailingStop;
                  if (OrderStopLoss()>ts && OrderProfit()>0) OrderModify(OrderTicket(),OrderOpenPrice(),ts,OrderTakeProfit(),0,White);
                 }
           }
     }
   ///////////////// SETTING ORDERS ////////////////////////////////////////////////////////////////////
   if(AccountFreeMargin()<(1000*Lots)) return(0);
   Validity=StrToTime(TimeYear(Time[0]) + "." + TimeMonth(Time[0]) + "." + TimeDay(Time[0]) + " 23:59");
//----    
     if (TimeHour(Time[0])==EndSession1 && TimeMinute(Time[0])==0) 
{
      LowestPrice=Low[Lowest(NULL, PERIOD_M5, MODE_LOW, 80, 0)];
      HighestPrice=High[Highest(NULL, PERIOD_M5, MODE_HIGH, 80, 0)];
      //// the following is necessary, to avoid a BUYSTOP/SELLSTOP Price which is too close to Bid/Ask, 
      //// in which case we get a 130 invalid stops. 
      //// I experimented to change to proper OP_BUY and OP_SELL, but the results where not satisfying
      //if (HighestPrice+5*Point<Ask+Spread*Point) {
      //	cmd=OP_BUY;
      //	Price=Ask;
      //} else {
      cmd=OP_BUYSTOP;
      Price=HighestPrice+5*Point;
      //}
      ticket=OrderSendExtended(Symbol(),cmd,Lots,Price,Slippage,0,0,setup,MagicNumber+1,Validity,Green);
      err=GetLastError();
      if (err>1) { Print("Error modifying Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
      //if (LowestPrice-5*Point>Bid-Spread*Point) {
      //	cmd=OP_SELL;
      //	Price=Bid;
      //} else {
      cmd=OP_SELLSTOP;
      Price=LowestPrice-5*Point;
      //}
      ticket=OrderSendExtended(Symbol(),OP_SELLSTOP,Lots,Price,Slippage,0,0,setup,MagicNumber+2,Validity,Green);
      err=GetLastError();
      if (err>1) { Print("Error modifying Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
     }
     if (TimeHour(Time[0])==EndSession2 && TimeMinute(Time[0])==0) 
     {
//----
      LowestPrice=Low[Lowest(NULL, PERIOD_M5, MODE_LOW, 80, 0)];
      HighestPrice=High[Highest(NULL, PERIOD_M5, MODE_HIGH, 80, 0)];
      //if (HighestPrice+5*Point<Ask+Spread*Point) {
      //	cmd=OP_BUY;
      //	Price=Ask;
      //} else {
      cmd=OP_BUYSTOP;
      Price=HighestPrice+5*Point;
      //}
      ticket=OrderSendExtended(Symbol(),cmd,Lots,Price,Slippage,0,0,setup,MagicNumber+3,Validity,Green);
      err=GetLastError();
      if (err>1) { Print("Error modifying Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
      //if (LowestPrice-5*Point>Bid-Spread*Point) {
      //	cmd=OP_SELL;
      //	Price=Bid;
      //} else {
      cmd=OP_SELLSTOP;
      Price=LowestPrice-5*Point;
      //}
      ticket=OrderSendExtended(Symbol(),cmd,Lots,Price,Slippage,0,0,setup,MagicNumber+4,Validity,Green);
      err=GetLastError();
      if (err>1) { Print("Error modifying Sell order [" + setup + "]: (" + err + ") " + ErrorDescription(err)); }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int func_Symbol2Val(string symbol) 
  {
     if(symbol=="AUDUSD") {   return(01);
         } else if(symbol=="CHFJPY") {   return(10);
         } else if(symbol=="EURAUD") {   return(10);
         } else if(symbol=="EURCAD") {   return(11);
         } else if(symbol=="EURCHF") {   return(12);
         } else if(symbol=="EURGBP") {   return(13);
         } else if(symbol=="EURJPY") {   return(14);
         } else if(symbol=="EURUSD") {   return(15);
         } else if(symbol=="GBPCHF") {   return(20);
         } else if(symbol=="GBPJPY") {   return(21);
         } else if(symbol=="GBPUSD") {   return(22);
         } else if(symbol=="USDCAD") {   return(40);
         } else if(symbol=="USDCHF") {   return(41);
         } else if(symbol=="USDJPY") {   return(42);
         } else if(symbol=="GOLD")   {   return(90);
         } else {   Comment("unexpected Symbol"); return(0);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int OrderSendExtended(string symbol, int cmd, double volume, double price, int slippage, double stoploss, double takeprofit, string comment, int magic, datetime expiration=0, color arrow_color=CLR_NONE) 
  {
   datetime OldCurTime;
   int timeout=30;
   int ticket;
//----
   OldCurTime=CurTime();
     while(GlobalVariableCheck("InTrade") && !IsTradeAllowed()) 
     {
        if(OldCurTime+timeout<=CurTime()) 
        {
         Print("Error in OrderSendExtended(): Timeout encountered");
         return(0);
        }
      Sleep(1000);
     }
   GlobalVariableSet("InTrade", CurTime());  // set lock indicator
   ticket=OrderSend(symbol, cmd, volume, price, slippage, stoploss, takeprofit, comment, magic, expiration, arrow_color);
   GlobalVariableDel("InTrade");   // clear lock indicator
   return(ticket);
  }
//+------------------------------------------------------------------+