Your_Lucky_EURGBP_v1e

//+------------------------------------------------------------------+
//|                                        Your_Lucky_EURGBP_v1e.mq4 |
//|                      Copyright © 2008, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "rahman_DGBeta (_rdb_)"
#property link      "abdulrahman_maros@yahoo.com"
//======================================================================================================================================================         
//salam salut saya untuk semua mql coder...
//selain versi EURGBP ini masih banyak versi lain yang siap kami share kepada teman-teman semua...
//mohon kiranya jika anda menggunakan script ini... jangan menghapus baris permintaan donasi... salam coder... semoga sukses...
//======================================================================================================================================================         

extern  string  Expert_Name   = "Your_Lucky_v1e";     
extern  bool    CloseAll_NOW  = false;     
extern  double  TargetEquity  = 5000000;     
extern  int     OpenHour      = 20;
extern  int     CloseHour     = 4;
 
extern  bool    LotsOptimized = true;
extern  int     Risk          = 50;

extern  double  Lots          = 0.1;
extern  double  MaxLots       = 100; 

extern  int     TP            = 6;
extern  int     SLA           = 22;
extern  int     SLB           = 32;
extern  int     Range_OP      = 5;

extern  int     Slippage      = 2;
extern  double  MaxSpread     = 4;
//extern int      FractalRange  = 320;
//extern int      ATR_Level     = 150;
extern int      OPFromFractal = 7;

extern bool     Time_Opened_Protection = TRUE;
extern  bool    Hidden_TP     = TRUE;
extern  bool    Hidden_SL     = TRUE;

//======================================================================================================================================================         
extern  int     MaxTrades           = 5;
extern  int     MaxTradePerBar      = 2;
extern  int     MaxTradePerPosition = 3;
extern  int     IMA_PERIOD          = 11;
extern  int     MA_AngleZero_PERIOD = 14;

extern int LimitTime_1   = 60;
extern int LimitTime_2   = 140;
extern int LimitTime_3   = 170;
extern int LimitTime_4   = 200;
extern int LimitTime_5   = 240;

extern int pips_1        = 3;   //3;
extern int pips_2        = 2;   //2;
extern int pips_3        = 0;   //0;
extern int pips_4        = 1;   //1;
extern int pips_5        = 4;   //4;

extern string   created_by       = "_rdb_ : 11 Desember 2008";

extern string   Need_Donation    = "Abdul Rahman";
extern string   PayPal           = "abdulrahman_maros@yahoo.com";
extern string   Bank_Wire        = "BCA : 7990026640";
extern string   LibertyReserve   = "U7067895";
//======================================================================================================================================================         
int            TradePerBar          = 0;
double         Last_BUY_OpenPrice   = 0;
double         Last_SELL_OpenPrice  = 0;
int            MinuteToStop         = 55;

int            Magic                = 11111;
int            BarCount             = -1;

bool   next_buy   = true;
bool   next_sell  = true;

double LastUpFractal,LastDownFractal,TimeOfLastDownFractal,TimeOfLastUpFractal,LowRange,HighRange,PrevRange;
double LastUpFractal_M30,LastDownFractal_M30,LastUpFractal_H1,LastDownFractal_H1,TimeOfLastDownFractal_H1,TimeOfLastUpFractal_H1;
int    FractalEnvelope=0,FractalEnvelope_H1=0,FractalEnvelope_M30=0;
double midFractal=0,Fractal_SL_B1=0,Fractal_SL_S1=0;

int    CurrentATR,CurrentATR_H1;
double mylotsi;
int    LotsDigit,lotsdigit;
double tp, sl;
double myPoint;
//======================================================================================================================================================         
int init()
  {
   myPoint = SetPoint();

   if(1==2 || 3==4 && 5==6) return (0);
   
   if(7==8 || 9==10 && 11==12) return (0);
      
   return(0);
  }
//======================================================================================================================================================               
int start()
{ 
//======================================================================================================================================================         
   double  MD = NormalizeDouble(MarketInfo(Symbol(), MODE_LOTSTEP), 2); 
   if (MD==0.01) lotsdigit=2;
   else
   if (MD==0.10) lotsdigit=1;
   else lotsdigit=0;
   LotsDigit=lotsdigit;
//======================================================================================================================================================         
   if(CloseAll_NOW==true)
   {
      CloseAll(); 
      return(0);
   }   
//======================================================================================================================================================         
   //Close with Equity
   if(TargetEquity>0 && AccountEquity() >= TargetEquity)
   {
      ForceCloseAll(); 
      return(0);
   }
//======================================================================================================================================================         
   int    BUY_OpenPosition     = 0;
   int    SELL_OpenPosition    = 0;
   int    TOTAL_OpenPosition   = 0;
   int    Ticket               = -1;
   int    cnt                  = 0;
   for (cnt = 0; cnt < OrdersTotal(); cnt++) 
   {
      OrderSelect(cnt, SELECT_BY_POS, MODE_TRADES);
      if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderCloseTime()==0) 
      {
         TOTAL_OpenPosition++;
         if (OrderType() == OP_BUY) 
         {
            BUY_OpenPosition++;
            Last_BUY_OpenPrice = OrderOpenPrice();
         }
         if (OrderType() == OP_SELL) 
         {
            SELL_OpenPosition++;
            Last_SELL_OpenPrice = OrderOpenPrice();
         }
      }
   }
//======================================================================================================================================================            
   for(int a=1;a<Bars;a++){
      if(iFractals(NULL, PERIOD_M15, MODE_UPPER,a)!=0){
         LastUpFractal=iFractals(NULL, PERIOD_M15, MODE_UPPER,a);
         TimeOfLastUpFractal=Time[a];
         break;
         }//end if
      }//end for
   for(int s=1;s<Bars;s++){
      if(iFractals(NULL, PERIOD_M15, MODE_LOWER,s)!=0){
         LastDownFractal=iFractals(NULL, PERIOD_M15, MODE_LOWER,s);
         TimeOfLastDownFractal=Time[s];
         break;
         }//end if
      }//end for

   for(int v=1;v<Bars;v++){
      if(iFractals(NULL, PERIOD_H1, MODE_UPPER,v)!=0){
         LastUpFractal_H1=iFractals(NULL, PERIOD_H1, MODE_UPPER,v);
         TimeOfLastUpFractal_H1=Time[v];
         break;
         }//end if
      }//end for
   for(int w=1;w<Bars;w++){
      if(iFractals(NULL, PERIOD_H1, MODE_LOWER,w)!=0){
         LastDownFractal_H1=iFractals(NULL, PERIOD_H1, MODE_LOWER,w);
         TimeOfLastDownFractal_H1=Time[s];
         break;
         }//end if
      }//end for

   //ObjectDelete("Fractal Fibo Retracement");
   //ObjectCreate("Fractal Fibo Retracement",OBJ_FIBO,0,TimeOfLastUpFractal,LastUpFractal,TimeOfLastDownFractal,LastDownFractal);
   FractalEnvelope=MathRound((LastUpFractal-LastDownFractal)/myPoint);
   FractalEnvelope_H1=MathRound((LastUpFractal_H1-LastDownFractal_H1)/myPoint);
   midFractal=0;
   midFractal=(LastUpFractal-((LastUpFractal-LastDownFractal)/2));
   CurrentATR=MathRound(iATR(Symbol(), PERIOD_M15,4,0)/myPoint);

   bool FractalIsInsideEnvelope=false;
   if(Close[0]<=LastUpFractal_H1 && Close[0]>=LastDownFractal_H1){
      FractalIsInsideEnvelope=true;
      }//end if

//======================================================================================================================================================         
   if (IsTradeTime())
   {
   Comment( "\n    "+Expert_Name,
            "\n\n    T R A D E   S E S S I O N",
            "\n*=====================*",
            "\n    Broker Time            = ", Hour()+" : "+Minute(),
            "\n    Time Star Trading    = ", OpenHour,
            "\n    Time Stop Trading   = ", CloseHour,
            "\n*=====================*",

            "\n    Fractal Envelope     = "+FractalEnvelope+" pips",
            "\n    MidFractal              = "+DoubleToStr(midFractal,Digits),
            //"\n    ATR(4)_M5            = "+CurrentATR+" pips",
            "\n*=====================*",
            "\n    L O T S                 =  " + DoubleToStr(GetLots(),2),
            "\n    B A L A N C E        =  " + DoubleToStr(AccountBalance(),2),
            "\n    E Q U I T Y           =  " + DoubleToStr(AccountEquity(),2),
            "\n*=====================*",
            //saya salut dengan teman-teman coder...
            //saya hanya orang pelosok yang tidak berpeluang trading karena keterbatasan dana
            //karena itu... saya memutuskan untuk mengoprek/membuat EA dan indi untuk digunakan para trader...
            //mohon kiranya jika anda menggunakan script ini... jangan menghapus kalimat dibawah... salam coder... semoga sukses...
            "\n\n  "+Expert_Name+"  EA is free and still on developing",
            "\n  You can discuss to me how to applying it or to develop this ea",
            "\n  To support my creativity please donate for me with all yours heart...",

            "\n\n  For further information or to make a donation please contact me on :",
            "\n  email / PayPal : abdulrahman_maros@yahoo.com",
            "\n  Bank Wire : BCA : 7990026640",
            "\n  Liberty Reserve : U7067895 ( Abdul Rahman )"
         );
     }
     else
     {
   Comment( "\n    "+Expert_Name,
            "\n\n    O u t   O f   S E S S I O N",
            "\n*=====================*",
            "\n    Broker Time            = ", Hour()+" : "+Minute(),
            "\n    Time Star Trading    = ", OpenHour,
            "\n    Time Stop Trading   = ", CloseHour,
            "\n*=====================*",

            "\n    Fractal Envelope     = "+FractalEnvelope+" pips",
            "\n    MidFractal              = "+DoubleToStr(midFractal,Digits),
            //"\n    ATR(4)_M5            = "+CurrentATR+" pips",
            "\n*=====================*",
            "\n    L O T S                 =  " + DoubleToStr(GetLots(),2),
            "\n    B A L A N C E        =  " + DoubleToStr(AccountBalance(),2),
            "\n    E Q U I T Y           =  " + DoubleToStr(AccountEquity(),2),
            "\n*=====================*",
            //saya salut dengan teman-teman coder...
            //saya hanya orang pelosok yang tidak berpeluang trading karena keterbatasan dana
            //karena itu... saya memutuskan untuk mengoprek/membuat EA dan indi untuk digunakan para trader...
            //mohon kiranya jika anda menggunakan script ini... jangan menghapus kalimat dibawah... salam coder... semoga sukses...
            "\n\n  "+Expert_Name+"  EA is free and still on developing",
            "\n  You can discuss to me how to applying it or to develop this ea",
            "\n  To support my creativity please donate for me with all yours heart...",

            "\n\n  For further information or to make a donation please contact me on :",
            "\n  email / PayPal : abdulrahman_maros@yahoo.com",
            "\n  Bank Wire : BCA : 7990026640",
            "\n  Liberty Reserve : U7067895 ( Abdul Rahman )"
 	         );
      }
      
//======================================================================================================================================================    
  if (Time_Opened_Protection == TRUE) {
      for (int j = 0; j < OrdersTotal(); j++) {
         OrderSelect(j, SELECT_BY_POS, MODE_TRADES);
//======================================================================================================================================================      
         if (OrderType() == OP_BUY && (OrderMagicNumber() == Magic)) {
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_1 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_2 && Bid >= OrderOpenPrice() + pips_1*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Orange);
               Print("Prot. Level 1 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_2 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_3 && Bid >= OrderOpenPrice() + pips_2*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Orange);
               Print("Prot. Level 2 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_3 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_4 && Bid >= OrderOpenPrice() + pips_3*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Orange);
               Print("Prot. Level 3 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_4 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_5 && Bid >= OrderOpenPrice() - pips_4*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Orange);
               Print("Prot. Level 4 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_5 && Bid >= OrderOpenPrice() - pips_5*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Orange);
               Print("Prot. Level 5 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (DayOfWeek() == 5 && Hour()>=16) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Bid, Slippage, Orange);
               Print("Prot. Level 5 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
         }
         //======================================================================================================================================================         
         if (OrderType() == OP_SELL && (OrderMagicNumber() == Magic)) {
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_1 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_2 && Ask <= OrderOpenPrice() - pips_1*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Orange);
               Print("Prot. Level 1 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_2 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_3 && Ask <= OrderOpenPrice() - pips_2*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Orange);
               Print("Prot. Level 2 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_3 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_4 && Ask <= OrderOpenPrice() - pips_3*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Orange);
               Print("Prot. Level 3 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_4 && TimeCurrent() - OrderOpenTime() < 60 * LimitTime_5 && Ask <= OrderOpenPrice() + pips_4*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Orange);
               Print("Prot. Level 4 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (TimeCurrent() - OrderOpenTime() > 60 * LimitTime_5 && Ask <= OrderOpenPrice() + pips_5*myPoint) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Orange);
               Print("Prot. Level 5 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
            if (DayOfWeek() == 5 && Hour()>=16) {
               RefreshRates();
               OrderClose(OrderTicket(), OrderLots(), Ask, Slippage, Orange);
               Print("Prot. Level 5 - Close Price :" + DoubleToStr(OrderClosePrice(), Digits) + " Lots : " + DoubleToStr(OrderLots(), LotsDigit) + " Order Number : " + DoubleToStr(OrderTicket(), 0) +
                  " Profit : $ " + DoubleToStr(OrderProfit(), 2));
            }
         }
//========
      }
   }
//======================================================================================================================================================
   CloseAll(); 

   double MA_M1     = iCustom (Symbol(),PERIOD_M1 ,"MA_AngleZeroSigma",MA_AngleZero_PERIOD,1,0,0.2,6,0,9,1,"","",4,0);

   if (IsTradeTime() && IsTradeTimeA())   
   {
         if(TOTAL_OpenPosition <= MaxTrades)
         {
            if(BarCount != Bars)
            {
               TradePerBar = 0;
               BarCount = Bars;
            }

            RefreshRates();
//======================================================================================================================================================
         if ((Ask-Bid<MaxSpread*myPoint) && FractalIsInsideEnvelope && (TradePerBar <= MaxTradePerBar))   
         {
            if ((BUY_OpenPosition < 1) && MA_M1<=-0.12 && 
                 Bid<=midFractal-(OPFromFractal*myPoint) && GetSignal(OP_BUY)==1)
            {
               if(AccountFreeMarginCheck(Symbol(),OP_BUY,GetLots())<=0 || GetLastError()==134) 
               {Print("We have no money.Reduce your Lots! Free Margin = ", AccountFreeMargin());}
               else
               {
                  if(Hidden_TP==true && Hidden_SL==false)
                     Ticket = OrderSend(Symbol(),OP_BUY,GetLots(),Ask,Slippage,Ask-SLB*myPoint, 0,Expert_Name+"  "+Symbol(),Magic,0,Blue); 
                  else
                  if(Hidden_TP==true && Hidden_SL==true)
                     Ticket = OrderSend(Symbol(),OP_BUY,GetLots(),Ask,Slippage,0, 0,Expert_Name+"  "+Symbol(),Magic,0,Blue); 
                  else
                     Ticket = OrderSend(Symbol(),OP_BUY,GetLots(),Ask,Slippage,Ask-SLB*myPoint, Ask+TP*myPoint,Expert_Name+"  "+Symbol(),Magic,0,Blue); 
                  if (Ticket > 0) TradePerBar++;
               }
               next_sell = true;
               //next_buy  = false;
            }
            //=============================================================
            if ((BUY_OpenPosition>0) && (BUY_OpenPosition<MaxTradePerPosition) && MA_M1<=-0.12 && 
                 (Last_BUY_OpenPrice-Bid>=Range_OP*myPoint) && Bid<=midFractal-(OPFromFractal*myPoint) && GetSignal(OP_BUY)==1)
            {
               if(AccountFreeMarginCheck(Symbol(),OP_BUY,GetLots())<=0 || GetLastError()==134) 
               {Print("We have no money.Reduce your Lots! Free Margin = ", AccountFreeMargin());}
               else
               {
                  if(Hidden_TP==true && Hidden_SL==false)
                     Ticket = OrderSend(Symbol(),OP_BUY,GetLots(),Ask,Slippage,Ask-SLB*myPoint, 0,Expert_Name+"  "+Symbol(),Magic,0,Blue); 
                  else
                  if(Hidden_TP==true && Hidden_SL==true)
                     Ticket = OrderSend(Symbol(),OP_BUY,GetLots(),Ask,Slippage,0, 0,Expert_Name+"  "+Symbol(),Magic,0,Blue); 
                  else
                     Ticket = OrderSend(Symbol(),OP_BUY,GetLots(),Ask,Slippage,Ask-SLB*myPoint, Ask+TP*myPoint,Expert_Name+"  "+Symbol(),Magic,0,Blue); 
                  if (Ticket > 0) TradePerBar++;
               }
               next_sell = true;
               next_buy  = false;
            }
//======================================================================================================================================================
            if ((SELL_OpenPosition<1) && MA_M1>=0.12 && 
                 Ask>=midFractal+(OPFromFractal*myPoint) && GetSignal(OP_SELL)==1)
            {
               if(AccountFreeMarginCheck(Symbol(),OP_BUY,GetLots())<=0 || GetLastError()==134) 
               {Print("We have no money.Reduce your Lots! Free Margin = ", AccountFreeMargin());}
               else
               {
                  if(Hidden_TP==true && Hidden_SL==false)
                     Ticket = OrderSend(Symbol(),OP_SELL,GetLots(),Bid,Slippage,Bid+SLB*myPoint,0,Expert_Name+"  "+Symbol(),Magic,0,Red); 
                  else
                  if(Hidden_TP==true && Hidden_SL==true)
                     Ticket = OrderSend(Symbol(),OP_SELL,GetLots(),Bid,Slippage,0,0,Expert_Name+"  "+Symbol(),Magic,0,Red); 
                  else
                     Ticket = OrderSend(Symbol(),OP_SELL,GetLots(),Bid,Slippage,Bid+SLB*myPoint,Bid-TP * myPoint,Expert_Name+"  "+Symbol(),Magic,0,Red); 
                  if (Ticket > 0) TradePerBar++;
               }
               next_buy  = true;
               //next_sell = false;
            }
            //=============================================================
            if ((SELL_OpenPosition>0) && (SELL_OpenPosition<MaxTradePerPosition) && MA_M1>=0.12 && 
                 (Ask-Last_SELL_OpenPrice>=Range_OP*myPoint) && Ask>=midFractal+(OPFromFractal*myPoint) && GetSignal(OP_SELL)==1)
            {
               if(AccountFreeMarginCheck(Symbol(),OP_BUY,GetLots())<=0 || GetLastError()==134) 
               {Print("We have no money.Reduce your Lots! Free Margin = ", AccountFreeMargin());}
               else
               {
                  if(Hidden_TP==true && Hidden_SL==false)
                     Ticket = OrderSend(Symbol(),OP_SELL,GetLots(),Bid,Slippage,Bid+SLB*myPoint,0,Expert_Name+"  "+Symbol(),Magic,0,Red); 
                  else
                  if(Hidden_TP==true && Hidden_SL==true)
                     Ticket = OrderSend(Symbol(),OP_SELL,GetLots(),Bid,Slippage,0,0,Expert_Name+"  "+Symbol(),Magic,0,Red); 
                  else
                     Ticket = OrderSend(Symbol(),OP_SELL,GetLots(),Bid,Slippage,Bid+SLB*myPoint,Bid-TP * myPoint,Expert_Name+"  "+Symbol(),Magic,0,Red); 
                  if (Ticket > 0) TradePerBar++;
               }
               next_buy  = true;
               next_sell = false;
            }
//======================================================================================================================================================         
          }
        }
      if ((MA_M1<0.1 && MA_M1>-0.1)) {
         next_sell = true;
         next_buy  = true; }
   }
   return(0);
} 

//----------------------------------------------------------------------------- 
int GetSignal(int OP)
{
  int signal=0;
  int ss=0;
  int sx=3;
  if (Digits == 5 || Digits == 3) {ss=10*sx;} else {ss=sx;}

  if (OP==OP_BUY)
  {
   if(Ask<=NormalizeDouble(iMA(Symbol(),PERIOD_M5,IMA_PERIOD,0,MODE_SMA,PRICE_OPEN,0),Digits)-(myPoint*ss)) signal=1;
  }
  else if (OP==OP_SELL)
  {
   if(Bid>=NormalizeDouble(iMA(Symbol(),PERIOD_M5,IMA_PERIOD,0,MODE_SMA,PRICE_OPEN,0),Digits)+(myPoint*ss)) signal=1;
  }
  return(signal);
}
//----------------------------------------------------------------------------- 
void CloseAll() 
{ 
   for (int cnt = OrdersTotal()-1 ; cnt >= 0; cnt--) 
   { 
      OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); 
      if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderCloseTime()==0) 
      { 
         if (SecurProfit()==1)
         { 
            if(OrderType()==OP_BUY)  OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue); 
            if(OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red); 
         }
         else
         { 
            if (IsTradeTime())
            {
               if((OrderType()==OP_BUY)  && (((OrderOpenPrice()-Bid)/myPoint) > SLA)) 
               OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue); 
               if((OrderType()==OP_SELL) && (((Ask-OrderOpenPrice())/myPoint) > SLA)) 
               OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red); 
            }
            else
            {
            if (Hidden_SL==true)
               if((OrderType()==OP_BUY) && (((OrderOpenPrice()-Bid)/myPoint) > SLB)) 
               OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue); 
               if((OrderType()==OP_SELL) && (((Ask-OrderOpenPrice())/myPoint) > SLB)) 
               OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red); 
            }
         } 
      } 
   } 
} 
//----------------------------------------------------------------------------- 
void ForceCloseAll() 
{ 
   for (int cnt = OrdersTotal()-1 ; cnt >= 0; cnt--) 
   { 
      OrderSelect(cnt,SELECT_BY_POS,MODE_TRADES); 
      if (OrderSymbol() == Symbol() && OrderMagicNumber() == Magic && OrderCloseTime()==0) 
      { 
            if(OrderType()==OP_BUY)  OrderClose(OrderTicket(),OrderLots(),Bid,Slippage,Blue); 
            if(OrderType()==OP_SELL) OrderClose(OrderTicket(),OrderLots(),Ask,Slippage,Red); 
      } 
   } 
}
//======================================================================================================================================================         
bool IsTradeTime() {
   if (OpenHour < CloseHour && TimeHour(TimeCurrent()) < OpenHour || TimeHour(TimeCurrent()) >= CloseHour) return (FALSE);
   if (OpenHour > CloseHour && (TimeHour(TimeCurrent()) < OpenHour && TimeHour(TimeCurrent()) >= CloseHour)) return (FALSE);
   if (OpenHour == 0) CloseHour = 24;
   if (Hour() == CloseHour - 1 && Minute() >= MinuteToStop) return (FALSE);
   return (TRUE);
}
//======================================================================================================================================================         
bool IsTradeTimeA() {
   if (DayOfWeek() == 5 && Hour()>=CloseHour) return (FALSE);
   return (TRUE);
}
//======================================================================================================================================================         
double GetLots() 
{
   double lots,MD,RM,FMM,MinLots,maxlot,maximlot,LotSize; int lotsdigit;
   LotSize = MarketInfo(Symbol(), MODE_LOTSIZE);
   MD = NormalizeDouble(MarketInfo(Symbol(), MODE_LOTSTEP), 2); 
   RM = NormalizeDouble(MarketInfo(Symbol(), MODE_MARGINREQUIRED), 4);
//======================================================================================================================================================         
   if (MD==0.01) lotsdigit=2;
   else
   if (MD==0.10) lotsdigit=1;
   else lotsdigit=0;
   LotsDigit=lotsdigit;
//======================================================================================================================================================         
   if (LotsOptimized==true) lots = NormalizeDouble((AccountFreeMargin()*Risk/LotSize)/MaxTrades,LotsDigit);
   else lots=Lots;
   MinLots=NormalizeDouble(MarketInfo(Symbol(),MODE_MINLOT),2);    
   maxlot=NormalizeDouble(MarketInfo(Symbol(),MODE_MAXLOT),2);    
   if (LotsDigit == 2) MinLots = 0.01; 
   if (LotsDigit == 1) MinLots = 0.1; 
   if (LotsDigit == 0) MinLots = 1; 
   if (lots < MinLots) lots = MinLots;  
   if (maxlot > MaxLots) maximlot = MaxLots;  else maximlot=maxlot;   
   if (lots > maximlot) lots = maximlot;     
   return (lots);      
}
//======================================================================================================================================================         
double TickValue() 
{
   double tv;
   tv = NormalizeDouble(MarketInfo(Symbol(), MODE_TICKVALUE), Digits); 
   return(tv);
}
//======================================================================================================================================================         
int SecurProfit() 
{
   int sp=0;
   if (OrderProfit()>(TickValue()*GetLots()*TP)) sp=1; 
   return(sp);
}   
//======================================================================================================================================================         
double SetPoint()
{
   double mSetPoint;
     if (Digits==5 || Digits==3)
      mSetPoint = 0.00001;
   else
      mSetPoint = 0.0001;
  
   return(mSetPoint);
}  
//======================================================================================================================================================