#property copyright "Adeel 1H v1"

extern int    EA_magic          = 20090305;

extern double POS_tp            = 30;
extern double POS_sl            = 30;
extern double POS_slippage      = 0;

extern double Move_to_BE        = 15;

extern int    Start_Hour        = 5;
extern int    End_Hour          = 17;

extern bool          MoneyManagement   = false;
extern double        minLots           = 0.1;
extern double        maxLots           = 100;
extern int           Risk_percent      = 3;

double   Lots;

int      positions, orders;
int prevtime;

void count_positions()
{
    for( int i = 0 ; i < OrdersTotal() ; i++ )
        {
        if( OrderSelect( i, SELECT_BY_POS, MODE_TRADES ) == false )
            break;
            
        if( OrderMagicNumber() != EA_magic )
            continue;
            
        if( OrderSymbol() != Symbol() )
            continue;
 
        if( OrderType() == OP_BUY || OrderType() == OP_SELL)
           {
           if(TimeCurrent()-Time[0]>3590)
                OrderClose(OrderTicket(),OrderLots(),Ask,POS_slippage+3,CLR_NONE);
           else
              {
              positions++;
              if( OrderProfit() > Move_to_BE*OrderLots()*MarketInfo(Symbol(),MODE_TICKVALUE) && OrderOpenPrice()!=OrderStopLoss())
                 {
                 OrderModify(OrderTicket(),OrderOpenPrice(),OrderOpenPrice(),OrderTakeProfit(),0,Blue);
//                 OrderClose(OrderTicket(),OrderLots()/2,Ask,POS_slippage+3,CLR_NONE);
                 }
              }
           }
        else
           if( OrderType() == OP_BUYSTOP || OrderType() == OP_SELLSTOP)
               {
               if(TimeCurrent()-OrderOpenTime()>=3600)
                  {
                  if(!OrderDelete(OrderTicket()))
                     Print(GetLastError());
                  }
               else
                  orders++;
               }
        }
}

int init()
{
    return(0);
}

int start()
{
    double pos_sl,  pos_tp;
    int    ticket; 

   positions = 0; orders = 0;
   count_positions();

   if(positions > 0 || orders > 0)
      return(0);
   
   if(iTime(Symbol(),PERIOD_H1,0) == prevtime) 
       return(0);
   prevtime = iTime(Symbol(),PERIOD_H1,0);
   if(!IsTradeAllowed()) 
     {
       prevtime = iTime(Symbol(),PERIOD_H1,1);
       return(0);
     }

   if(TimeHour(iTime(Symbol(),PERIOD_H1,0))< Start_Hour || TimeHour(iTime(Symbol(),PERIOD_H1,0)) > End_Hour)
      return(0);
      
   Call_MM();
   
    if( iClose(Symbol(),PERIOD_H1,1)<iOpen(Symbol(),PERIOD_H1,1))
      {    
            pos_tp = iHigh(Symbol(),PERIOD_H1,1)+ ((POS_tp+2) * Point);
            pos_sl = iHigh(Symbol(),PERIOD_H1,1)- ((POS_sl-2) * Point);
            ticket = OrderSend( Symbol(), OP_BUYSTOP, Lots, iHigh(Symbol(),PERIOD_H1,1)+2*Point, POS_slippage, pos_sl, pos_tp, "adeel 1H", EA_magic, 0, CLR_NONE );
            if( ticket < 0 )
                Sleep(5000);
      }
      else
      if( iClose(Symbol(),PERIOD_H1,1)>iOpen(Symbol(),PERIOD_H1,1))
         {
            pos_tp = iLow(Symbol(),PERIOD_H1,1)- ((POS_tp+2) * Point);
            pos_sl = iLow(Symbol(),PERIOD_H1,1)+ ((POS_sl-2) * Point);
            ticket = OrderSend( Symbol(), OP_SELLSTOP, Lots, iLow(Symbol(),PERIOD_H1,1)-2*Point, POS_slippage, pos_sl, pos_tp, "adeel 1H", EA_magic, 0, CLR_NONE );
            if( ticket < 0 )
                Sleep(5000);
          }
    return(0);
}

void Call_MM()
{
   if( MoneyManagement == false )
      Lots = minLots;
   else
      {
      Lots=AccountFreeMargin()/100000*Risk_percent;

      Lots=MathMin(maxLots,MathMax(minLots,Lots));
      if(minLots<0.1) 
        Lots=NormalizeDouble(Lots,2);               //   1k
      else
        {
        if(minLots<1) Lots=NormalizeDouble(Lots,1); //  10k
        else          Lots=NormalizeDouble(Lots,0); // 100k
        }
      }
   return(0);
}