//+------------------------------------------------------------------+
//|                                                      Timetop.mq4 |
//|                      Copyright © 2009, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2009, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"

extern double Lots=0.01;
extern bool Mnmgt=true;
extern double Risk=2;
extern bool TPco=true;
extern int p=23;
extern int Daystart=7;
extern int MaxRange=400;
extern bool ShowLines=true;
extern bool TradeFridays=false;
extern string Remark1="Brokerdigits: true=5 false=4";
extern bool Brokerdigits=true;
extern int Magicnumber=12345;
int ticket1,ticket2,order1,order2,k,x;
double op1,op2,selltp,buytp,y;
//+------------------------------------------------------------------+
//| expert initialization function                                   |
//+------------------------------------------------------------------+
int init()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert deinitialization function                                 |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| expert start function                                            |
//+------------------------------------------------------------------+
int start()
  {
 int dow=DayOfWeek();
 string dayname;
 switch(dow)
  {
     case '0':
      dayname="Sunday";
      break;
     case 1:
      dayname="Monday";
      break;
     case 2:
      dayname="Tuesday";
      break;
     case 3:
      dayname="Wednesday";
      break;
     case 4:
      dayname="Thursday";
      break;
     case 5:
      dayname="Friday";
      break;
     case 6:
      dayname="Saturday";
      break;
      }
  if (Brokerdigits==true){x=10;y=0.001;}else{x=1;y=0.01;}
  
  if (Hour()==Daystart+1){k=0;}
  if (Hour()==Daystart&&k==0){
      k=1;
      CloseSellPosition();
	   CloseBuyPosition();
	   CloseSellStopPosition();
	   CloseBuyStopPosition();

	   int hb= iHighest(NULL, 0, 2, p, 1);
	   int lb= iLowest(NULL, 0, 1, p, 1);
	   double high= iHigh(NULL, 0, hb);
	   double low= iLow(NULL, 0, lb);
	   double close= iClose(NULL, 0, 1);
	   double ran=high-low;
	   double buy=NormalizeDouble(close+(ran/4),Digits);
	   double sell=NormalizeDouble(close-(ran/4),Digits);
	   buytp=NormalizeDouble(close+(ran/2),Digits);
   	selltp=NormalizeDouble(close-(ran/2),Digits);
	   double buysl=NormalizeDouble(close-((ran/4)-((10*Point)*x)),Digits);
	   double sellsl=NormalizeDouble(close+((ran/4)-((10*Point)*x)),Digits);
	   int randisp=(ran*MathPow(10,Digits))/x;
	   string nt="";

   	if(randisp>MaxRange){nt="NO TRADE range more than "+MaxRange;}

   	Comment ("High ",high, " Low ", low,"\n","Range ",randisp," Close ",close,"\n","Buy ",buy," BuyTP ",buytp," BuySL ",buysl,
	   "\n","Sell ",sell," SellTP ",selltp," SellSL ",sellsl,"\n",nt);

   	ObjectDelete("Buy");
	   ObjectDelete("Sell");
	   ObjectDelete("BuyTP");
	   ObjectDelete("SellTP");
	   ObjectDelete("Daystart");

   	if (((dow==5&&TradeFridays==true)||dow!=5)&&randisp<MaxRange){
         if(ShowLines==true){
            ObjectCreate("Buy",1,0,0,buy);
			   ObjectCreate("Sell",1,0,0,sell);
			   ObjectCreate("BuyTP",1,0,0,buytp);
			   ObjectCreate("SellTP",1,0,Time[0],selltp);
			   ObjectCreate("Daystart",0,0,Time[0],close);
		   }

		   string sym=Symbol();
   		double pv =MarketInfo(sym,MODE_TICKVALUE);
   
		   if(Mnmgt==True) {
   		 	Lots=(Risk*y*AccountEquity())/(pv*((randisp/2)-10));
            if(Lots<0.01){Lots=0.01;}
   		}

		   Sleep(6000);
	
		   ticket1=OrderSend(Symbol(),OP_SELLSTOP,Lots,sell,3,sellsl,selltp,NULL,Magicnumber,0,Red);
		   if(ticket1<0) {
            Print("OrderSend failed with error #",GetLastError());
       	}
       
		   Sleep(6000);

		   ticket2=OrderSend(Symbol(),OP_BUYSTOP,Lots,buy,3,buysl,buytp,NULL,Magicnumber+1,0,Green);
       	if(ticket2<0) {
        		Print("OrderSend failed with error #",GetLastError());
       	}
  	   }
  }

  if (TPco==True){  
      order1=OrderSelect(ticket1, SELECT_BY_TICKET);
  	   op1=OrderClosePrice();
  	   order2=OrderSelect(ticket2, SELECT_BY_TICKET);
  	   op2=OrderClosePrice();
  
	   if (op1==selltp) {
		    CloseBuyStopPosition() ;
	   }

   	if (op2==buytp) {
	       CloseSellStopPosition() ;
	  }
  }
  return(0);
}
//+------------------------------------------------------------------+

void CloseSellPosition() {
   bool clRes=false;
   int total=OrdersTotal();
   int numtries=0;
  for (int i=0; i<total; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==Symbol() && ((OrderMagicNumber()==Magicnumber) || (OrderMagicNumber()==Magicnumber+1)) && OrderType()==OP_SELL) {
         while ((!clRes) && (numtries < 3)) {
            RefreshRates();
            clRes=OrderClose(OrderTicket(), Lots, Ask, 6, Red);
            Sleep(6000);
	    numtries = numtries + 1;
         }
      }
    }
   }
}

void CloseBuyPosition() {
   bool clRes=false;
   int total=OrdersTotal();
   int numtries=0;
  for (int i=0; i<total; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==Symbol() && ((OrderMagicNumber()==Magicnumber) || (OrderMagicNumber()==Magicnumber+1)) && OrderType()==OP_BUY) {
         while ((!clRes) && (numtries < 3)) {
            RefreshRates();
            clRes=OrderClose(OrderTicket(), Lots, Bid, 6, Red);
            Sleep(6000);
	    numtries = numtries + 1;
         }
      }
    }
   }
}

void CloseSellStopPosition() {
   bool clRes=false;
   int total=OrdersTotal();
   int numtries=0;
  for (int i=0; i<total; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==Symbol() && ((OrderMagicNumber()==Magicnumber) || (OrderMagicNumber()==Magicnumber+1)) && OrderType()==OP_SELLSTOP) {
         while ((!clRes) && (numtries < 3)) {
            RefreshRates();
            clRes=OrderDelete(OrderTicket(), Red);
            Sleep(6000);
	    numtries = numtries + 1;
         }
      }
    }
   }
}


void CloseBuyStopPosition() {
   bool clRes=false;
   int total=OrdersTotal();
   int numtries=0;
  for (int i=0; i<total; i++) {
    if (OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) {
      if (OrderSymbol()==Symbol() && ((OrderMagicNumber()==Magicnumber) || (OrderMagicNumber()==Magicnumber+1)) && OrderType()==OP_BUYSTOP) {
         while ((!clRes) && (numtries < 3)) {
            RefreshRates();
            clRes=OrderDelete(OrderTicket(), Red);
            Sleep(6000);
	    numtries = numtries + 1;
         }
      }
    }
   }
}