//+------------------------------------------------------------------+
//|                                                      Sundays.mq4 |
//|                        Copyright 2017, MetaQuotes Software Corp. |
//|                                             https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Copyright 2017, MetaQuotes Software Corp."
#property link      "https://www.mql5.com"
#property version   "1.00"
#property strict
//+------------------------------------------------------------------+
//| Script program start function                                    |
//+------------------------------------------------------------------+
//default settings

  int       cnt;
  string    cnttxt;
  double    tmp1; 
  double    tmp2; 
  int       tdw;

  double values[5];

int start()
  {
  
  ObjectsDeleteAll();
  tmp1=WindowPriceMax();
  tmp2=WindowPriceMin();
 
 for(cnt=0;cnt<100;cnt++)
  {
  
   tdw=TimeDayOfWeek(iTime(NULL,1440,cnt));

   if(tdw==2)
   {

   cnttxt=IntegerToString(cnt,3);
 //  ObjectCreate("DayOpenTime"+cnttxt,OBJ_TREND,0,iTime(NULL,1440,cnt+1),tmp2,iTime(NULL,1440,cnt+1),tmp1);
   ObjectSet("DayOpenTime"+cnttxt,OBJPROP_COLOR,DarkGray);
   ObjectSet("DayOpenTime"+cnttxt,OBJPROP_BACK,1);
   ObjectSet("DayOpenTime"+cnttxt,OBJPROP_WIDTH,1);
   ObjectSet("DayOpenTime"+cnttxt,OBJPROP_STYLE,2);
   ObjectSetText("DayOpenTime"+cnttxt,"Monday");
//~~~~~~~~~~~~~~~~~~~~~~
   
   double Hi=iHigh(NULL,1440,cnt+1); if(iHigh(NULL,1440,cnt+1)<iHigh(NULL,1440,cnt)) {Hi=iHigh(NULL,1440,cnt);}
   double Lo=iLow(NULL,1440,cnt+1);  if(iLow(NULL,1440,cnt+1)>iLow(NULL,1440,cnt))    {Lo=iLow(NULL,1440,cnt);}


   ObjectCreate("Fib1"+cnttxt,OBJ_TREND,0,iTime(NULL,1440,cnt+1),Hi,iTime(NULL,1440,cnt+1)+(5*1440*60),Hi);
   ObjectSetText("Fib1"+cnttxt," ");
   ObjectSet("Fib1"+cnttxt,OBJPROP_COLOR,DarkGray);
   ObjectSet("Fib1"+cnttxt,OBJPROP_BACK,0);
   ObjectSet("Fib1"+cnttxt,OBJPROP_WIDTH,1);
   ObjectSet("Fib1"+cnttxt,OBJPROP_STYLE,2);
   ObjectSet("Fib1"+cnttxt,OBJPROP_RAY,0);

   ObjectCreate("Fib2"+cnttxt,OBJ_TREND,0,iTime(NULL,1440,cnt+1),Lo,iTime(NULL,1440,cnt+1)+(5*1440*60),Lo);
   ObjectSetText("Fib2"+cnttxt," ");
   ObjectSet("Fib2"+cnttxt,OBJPROP_COLOR,DarkGray);
   ObjectSet("Fib2"+cnttxt,OBJPROP_BACK,0);
   ObjectSet("Fib2"+cnttxt,OBJPROP_WIDTH,1);
   ObjectSet("Fib2"+cnttxt,OBJPROP_STYLE,2);
   ObjectSet("Fib2"+cnttxt,OBJPROP_RAY,0);

   ObjectCreate("Fib3"+cnttxt,OBJ_TREND,0,iTime(NULL,1440,cnt+1),Hi+((Hi-Lo)*.10),iTime(NULL,1440,cnt+1)+(5*1440*60),Hi+((Hi-Lo)*.10));
   ObjectSetText("Fib3"+cnttxt,"Long");
   ObjectSet("Fib3"+cnttxt,OBJPROP_COLOR,Green);
   ObjectSet("Fib3"+cnttxt,OBJPROP_BACK,0);
   ObjectSet("Fib3"+cnttxt,OBJPROP_WIDTH,1);
   ObjectSet("Fib3"+cnttxt,OBJPROP_STYLE,2);
   ObjectSet("Fib3"+cnttxt,OBJPROP_RAY,0);

   ObjectCreate("Fib4"+cnttxt,OBJ_TREND,0,iTime(NULL,1440,cnt+1),Lo-((Hi-Lo)*.10),iTime(NULL,1440,cnt+1)+(5*1440*60),Lo-((Hi-Lo)*.10));
   ObjectSetText("Fib4"+cnttxt,"Short");
   ObjectSet("Fib4"+cnttxt,OBJPROP_COLOR,Crimson);
   ObjectSet("Fib4"+cnttxt,OBJPROP_BACK,0);
   ObjectSet("Fib4"+cnttxt,OBJPROP_WIDTH,1);
   ObjectSet("Fib4"+cnttxt,OBJPROP_STYLE,2);
   ObjectSet("Fib4"+cnttxt,OBJPROP_RAY,0);

   ObjectCreate("Fib5"+cnttxt,OBJ_TREND,0,iTime(NULL,1440,cnt+1),Lo+((Hi-Lo)*.50),iTime(NULL,1440,cnt+1)+(5*1440*60),Lo+((Hi-Lo)*.50));
   ObjectSetText("Fib5"+cnttxt,"??");
   ObjectSet("Fib5"+cnttxt,OBJPROP_COLOR,DarkOrange);
   ObjectSet("Fib5"+cnttxt,OBJPROP_BACK,0);
   ObjectSet("Fib5"+cnttxt,OBJPROP_WIDTH,1);
   ObjectSet("Fib5"+cnttxt,OBJPROP_STYLE,2);
   ObjectSet("Fib5"+cnttxt,OBJPROP_RAY,0);
   }

  }
  return(0);
  }
//+------------------------------------------------------------------+