/*
   ________________________________________________________________________________
   
   NAME: Market Sessions.mq4
   
   AUTHOR: Adam Jowett
   VERSION: 1.4.2
   DATE: 04 Aug 2014
   METAQUOTES LANGUAGE VERSION: 4.0
   UPDATES & MORE DETAILED DOCUMENTATION AT: 
   http://adamjowett.com/category/trading/downloads/
   
   Modifications:
   by: v2vboni  (@ ForexFactory)
   URL: http://www.forexfactory.com/showthread.php?p=8642806#post8642806
   Date: 14 December 2015
   Options Added:
   -Market hours for each market location
   -Added Auckland and Shanghai Market
   ________________________________________________________________________________

   The MIT License (MIT)

   Copyright (c) 2014 Adam Jowett
   
   Permission is hereby granted, free of charge, to any person obtaining a copy
   of this software and associated documentation files (the "Software"), to deal
   in the Software without restriction, including without limitation the rights
   to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
   copies of the Software, and to permit persons to whom the Software is
   furnished to do so, subject to the following conditions:
   
   The above copyright notice and this permission notice shall be included in all
   copies or substantial portions of the Software.
   
   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
   AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
   LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
   OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
   SOFTWARE.
*/

#property copyright "Copyright © 2014, Adam Jowett"
#property link      "http://adamjowett.com"

#property indicator_chart_window

extern string           __ = "Times in 24hr GMT time. Enter -1 to disable a line";
extern string           auckland = "23:00";
extern double           aucklandSessionHour=6.75;
extern string           sydney = "01:00";
extern double           sydneySessionHour=6.0;
extern string           tokyo = "02:00";
extern double           tokyoSessionHour=6.0;
extern string           shanghai = "02:30";
extern double           shanghaiSessionHour=5.5;
extern string           london = "10:00";
extern double           londonSessionHour=8.5;
extern string           newyork = "16:30";
extern double           newyorkSessionHour=6.5;
extern int              gmtServerOffset = 0;
//extern bool           showInIndicatorWindows = true;

extern ENUM_TIMEFRAMES  maxTimeframe = PERIOD_H1;
extern bool             showVerticalLine = true;
//extern bool           showFutureSessions = true;
extern bool             showOpenPrice = true;
extern bool             showPreviousRange = true;
extern bool             colourLabels = true;

extern color            aucklandColour = clrSteelBlue;
extern color            sydneyColour = clrBlue;
extern color            tokyoColour = clrDeepSkyBlue;
extern color            shanghaiColour = clrPeru;
extern color            londonColour = clrMagenta;
extern color            newYorkColour = clrGold;

extern ENUM_LINE_STYLE  VerticalLineStyle = STYLE_DASH;
extern int              VerticalLineWidth = 0;

extern ENUM_LINE_STYLE  OpenPriceStyle = STYLE_DASHDOTDOT;
extern int              OpenPriceWidth = 0;

extern color            PreviousRangeLow = clrLimeGreen;
extern color            PreviousRangeHigh = clrRed;
extern ENUM_LINE_STYLE  PreviousRangeStyle = STYLE_DOT;
extern int              PreviousRangeWidth = 2;
//extern color          futureSessionColour = clrDarkSlateGray;


string prefix = "MarSess*"+DoubleToStr(pow(aucklandSessionHour*sydneySessionHour/tokyoSessionHour*shanghaiSessionHour/londonSessionHour*newyorkSessionHour,0.077),3)+"*";   //"market_sessions_";
int lastAucklandSession = -1;
int lastSydneySession = -1;
int lastTokyoSession = -1;
int lastShanghaiSession = -1;
int lastLondonSession = -1;
int lastNewYorkSession = -1;

double aucklandSessionLength,sydneySessionLength,tokyoSessionLength,shanghaiSessionLength,londonSessionLength,newyorkSessionLength;

double gmtOffset = 0;
int oneHour = 3600; // 60 seconds x 60 minutes = 1 hour
int oneDay = 86400; // oneHour * 24;

int aucklandHour;
int sydneyHour;
int tokyoHour;
int shanghaiHour;
int newyorkHour;
int londonHour;
int sydneyMinute;
int aucklandMinute;
int tokyoMinute;
int shanghaiMinute;
int nyMinute;
int londonMinute;                bool Once=false;
long currentChart = ChartID();   string sTFR;

int init()
{
   maxTimeframe = fmax(maxTimeframe,0);     /*TFK = maxTimeframe/_Period;*/    sTFR = StringSubstr(EnumToString(maxTimeframe),7);
   
   //sessionLength = _Period * 60 * ((60 / _Period) * 9);
   aucklandHour =getHour(auckland);
   aucklandSessionLength = _Period * 60 * ((60 / _Period) * aucklandSessionHour);
      
   sydneyHour = getHour(sydney);
   sydneySessionLength = _Period * 60 * ((60 / _Period) * sydneySessionHour);
   
   tokyoHour = getHour(tokyo);
   tokyoSessionLength = _Period * 60 * ((60 / _Period) * tokyoSessionHour);
   
   shanghaiHour = getHour(shanghai);
   shanghaiSessionLength = _Period * 60 * ((60 / _Period) * shanghaiSessionHour);
   
   londonHour = getHour(london);
   londonSessionLength = _Period * 60 * ((60 / _Period) * londonSessionHour);   
      
   newyorkHour = getHour(newyork);
   newyorkSessionLength = _Period * 60 * ((60 / _Period) * newyorkSessionHour);
   
   aucklandMinute =getMinute(auckland);  
   sydneyMinute = getMinute(sydney);
   tokyoMinute = getMinute(tokyo);
   shanghaiMinute=getMinute(shanghai);
   londonMinute = getMinute(london);
   nyMinute = getMinute(newyork);
   
   if (aucklandHour > -1)
   {
      aucklandHour = aucklandHour + gmtServerOffset;
      if (aucklandHour > 23) aucklandHour = aucklandHour - 24;
      if (aucklandHour < 0) aucklandHour = aucklandHour + 24;
   }    
   
   if (sydneyHour > -1)
   {
      sydneyHour = sydneyHour + gmtServerOffset;
      if (sydneyHour > 23) sydneyHour = sydneyHour - 24;
      if (sydneyHour < 0) sydneyHour = sydneyHour + 24;
   }  
   
   if (tokyoHour > -1)
   {
      tokyoHour = tokyoHour + gmtServerOffset;
      if (tokyoHour > 23) tokyoHour = tokyoHour - 24;
      if (tokyoHour < 0) tokyoHour = tokyoHour + 24;   
   }
   
   if (shanghaiHour > -1)
   {
      shanghaiHour = shanghaiHour + gmtServerOffset;
      if (shanghaiHour > 23) shanghaiHour = shanghaiHour - 24;
      if (shanghaiHour < 0) shanghaiHour = shanghaiHour + 24;
   }   
   
   if (londonHour > -1)
   {
      londonHour = londonHour + gmtServerOffset;
      if (londonHour > 23) londonHour = londonHour - 24;
      if (londonHour < 0) londonHour = londonHour + 24;
   }
   
   if (newyorkHour > -1)
   {
      newyorkHour = newyorkHour + gmtServerOffset;
      if (newyorkHour > 23) newyorkHour = newyorkHour - 24;
      if (newyorkHour < 0) newyorkHour = newyorkHour + 24;
   }
   
   return(0);
}

int deinit()
{
   clearScreen(prefix, true, NULL);
   return(0);
}

int start()
{
   if (Bars <= 10) return(0);
   
   if (_Period > maxTimeframe) {
      clearScreen(prefix, true, NULL);  
      if (!Once) {
        Comment("Market Sessions will only show on " + sTFR + " or lower");
        Alert("Market Sessions will only show on " + sTFR + " or lower");
        Print("Market Sessions will only show on " + sTFR + " or lower");  Once=true; }
      return(0);
   }

   int counted = IndicatorCounted();
   if (counted < 0) return(-1);
   if (counted > 0) counted--;
   
   int i = Bars - counted;
   int timeRange = 0;
   double rangeHigh = 0;
   double rangeLow = 0;
   
   int days = 0;
   int sessions = 0;
    
   while (i > 0)
   {
      int currentTime = Time[i];
      int dayNumber = TimeDayOfWeek(currentTime) + 1;
      string offsetLabel = (gmtServerOffset >= 0) ? "+" + gmtServerOffset : gmtServerOffset;
      
      string aucklandLabel = "Auckland open [" + auckland + " " + offsetLabel + "]";      
      string sydneyLabel = "Sydney open [" + sydney + " " + offsetLabel + "]";
      string tokyoLabel = "Tokyo open [" + tokyo + " " + offsetLabel + "]";
      string shanghaiLabel = "Shanghai open [" + shanghai + " " + offsetLabel + "]";      
      string londonLabel = "London open [" + london + " " + offsetLabel + "]";
      string newYorkLabel = "New York open [" + newyork + " " + offsetLabel + "]";
 
      if (TimeHour(currentTime) == aucklandHour && TimeMinute(currentTime) == aucklandMinute)
      {
         ObjectDelete(prefix + "future_line" + lastAucklandSession);
         lastAucklandSession = currentTime;
         
         drawVerticalLine(prefix + "aucklandTimeOpen"+i, currentTime, VerticalLineWidth, aucklandColour, VerticalLineStyle, true, aucklandLabel);
         if (showOpenPrice) drawTrendLine(prefix +"aucklandopen" + i, currentTime, currentTime + aucklandSessionLength, Open[i], Open[i], OpenPriceWidth, aucklandColour, OpenPriceStyle, true, false, DoubleToStr(Open[i], Digits), true);
         if (showPreviousRange) {
            timeRange = iBarShift(NULL, 0, lastNewYorkSession) - iBarShift(NULL, 0, currentTime) - 1;
            rangeHigh = High[iHighest(NULL, 0, MODE_HIGH, timeRange, i + 1)];
            rangeLow = Low[iLowest(NULL, 0, MODE_LOW, timeRange, i + 1)];
            
            drawTrendLine(prefix + "nyRangeHigh" + i, currentTime, currentTime + aucklandSessionLength, rangeHigh, rangeHigh, PreviousRangeWidth, PreviousRangeHigh, PreviousRangeStyle, true, false, "", false);
            drawTrendLine(prefix + "nyRangeLow" + i, currentTime, currentTime + aucklandSessionLength, rangeLow, rangeLow, PreviousRangeWidth, PreviousRangeLow, PreviousRangeStyle, true, false, "", false); 
         }         
      }       
      if (TimeHour(currentTime) == sydneyHour && TimeMinute(currentTime) == sydneyMinute)
      {
         ObjectDelete(prefix + "future_line" + lastSydneySession);
         lastSydneySession = currentTime;
         
         drawVerticalLine(prefix + "sydneyTimeOpen"+i, currentTime, VerticalLineWidth, sydneyColour, VerticalLineStyle, true, sydneyLabel);
         if (showOpenPrice) drawTrendLine(prefix +"sydneyopen" + i, currentTime, currentTime + sydneySessionLength, Open[i], Open[i], OpenPriceWidth, sydneyColour, OpenPriceStyle, true, false, DoubleToStr(Open[i], Digits), true);
         if (showPreviousRange) {
            timeRange = iBarShift(NULL, 0, lastNewYorkSession) - iBarShift(NULL, 0, currentTime) - 1;
            rangeHigh = High[iHighest(NULL, 0, MODE_HIGH, timeRange, i + 1)];
            rangeLow = Low[iLowest(NULL, 0, MODE_LOW, timeRange, i + 1)];
            
            drawTrendLine(prefix + "nyRangeHigh" + i, currentTime, currentTime + sydneySessionLength, rangeHigh, rangeHigh, PreviousRangeWidth, PreviousRangeHigh, PreviousRangeStyle, true, false, "", false);
            drawTrendLine(prefix + "nyRangeLow" + i, currentTime, currentTime + sydneySessionLength, rangeLow, rangeLow, PreviousRangeWidth, PreviousRangeLow, PreviousRangeStyle, true, false, "", false); 
         }
      }       
      else if (TimeHour(currentTime) == tokyoHour && TimeMinute(currentTime) == tokyoMinute)
      {
         ObjectDelete(prefix + "future_line" + lastTokyoSession);
         lastTokyoSession = currentTime;

         drawVerticalLine(prefix + "line"+i, currentTime, VerticalLineWidth, tokyoColour, VerticalLineStyle, true, tokyoLabel);
         if (showOpenPrice) drawTrendLine(prefix +"tokyoopen" + i, currentTime, currentTime + tokyoSessionLength, Open[i], Open[i], OpenPriceWidth, tokyoColour, OpenPriceStyle, true, false, DoubleToStr(Open[i], Digits), true);
      }
      else if (TimeHour(currentTime) == shanghaiHour && TimeMinute(currentTime) == shanghaiMinute)
      {
         ObjectDelete(prefix + "future_line" + lastShanghaiSession);
         lastShanghaiSession = currentTime;

         drawVerticalLine(prefix + "line"+i, currentTime, VerticalLineWidth, shanghaiColour, VerticalLineStyle, true, shanghaiLabel);
         if (showOpenPrice) drawTrendLine(prefix +"shanghaiopen" + i, currentTime, currentTime + shanghaiSessionLength, Open[i], Open[i], OpenPriceWidth, shanghaiColour, OpenPriceStyle, true, false, DoubleToStr(Open[i], Digits), true);
      }      
      else if (TimeHour(currentTime) == londonHour && TimeMinute(currentTime) == londonMinute)
      {
         ObjectDelete(prefix + "future_line" + lastLondonSession);
         lastLondonSession = currentTime;
         
         drawVerticalLine(prefix + "line"+i, currentTime, VerticalLineWidth, londonColour, VerticalLineStyle, true, londonLabel);
         if (showOpenPrice) drawTrendLine(prefix +"londonoopen" + i, currentTime, currentTime + londonSessionLength, Open[i], Open[i], OpenPriceWidth, londonColour, OpenPriceStyle, true, false, DoubleToStr(Open[i], Digits), true);
         if (showPreviousRange) {
            timeRange = iBarShift(NULL, 0, lastSydneySession) - iBarShift(NULL, 0, currentTime) - 1;
            rangeHigh = High[iHighest(NULL, 0, MODE_HIGH, timeRange, i + 1)];
            rangeLow = Low[iLowest(NULL, 0, MODE_LOW, timeRange, i + 1)];
            
            drawTrendLine(prefix + "asianRangeHigh" + i, currentTime, currentTime + londonSessionLength, rangeHigh, rangeHigh, PreviousRangeWidth, PreviousRangeHigh, PreviousRangeStyle, true, false, "", false);
            drawTrendLine(prefix + "asianRangeLow" + i, currentTime, currentTime + londonSessionLength, rangeLow, rangeLow, PreviousRangeWidth, PreviousRangeLow, PreviousRangeStyle, true, false, "", false); 
         }
      }
      else if (TimeHour(currentTime) == newyorkHour && TimeMinute(currentTime) == nyMinute)
      {
         ObjectDelete(prefix + "future_line" + lastNewYorkSession);
         lastNewYorkSession = currentTime;
 
         drawVerticalLine(prefix + "line"+i, currentTime, VerticalLineWidth, newYorkColour, VerticalLineStyle, true, newYorkLabel);
         if (showOpenPrice) drawTrendLine(prefix +"newyorkopen" + i, currentTime, currentTime + newyorkSessionLength, Open[i], Open[i], OpenPriceWidth, newYorkColour, OpenPriceStyle, true, false, DoubleToStr(Open[i], Digits), true);
         if (showPreviousRange) {
            timeRange = iBarShift(NULL, 0, lastLondonSession) - iBarShift(NULL, 0, currentTime) - 1;
            rangeHigh = High[iHighest(NULL, 0, MODE_HIGH, timeRange, i + 1)];
            rangeLow = Low[iLowest(NULL, 0, MODE_LOW, timeRange, i + 1)];
            
            drawTrendLine(prefix + "ukRangeHigh" + i, currentTime, currentTime + newyorkSessionLength, rangeHigh, rangeHigh, PreviousRangeWidth, PreviousRangeHigh, PreviousRangeStyle, true, false, "", false);
            drawTrendLine(prefix + "ukRangeLow" + i, currentTime, currentTime + newyorkSessionLength, rangeLow, rangeLow, PreviousRangeWidth, PreviousRangeLow, PreviousRangeStyle, true, false, "", false); 
         }
      }
         
//      if (i == 1) {
//         if (showFutureSessions) {
//            int project = (TimeDayOfWeek(lastNewYorkSession) == 5 || TimeDayOfWeek(lastAucklandSession) == 5) ? oneDay * 3 : oneDay;
//            
//            drawFutureSession(lastAucklandSession + project, aucklandLabel);
//            drawFutureSession(lastSydneySession + project, sydneyLabel);
//            drawFutureSession(lastTokyoSession + project, tokyoLabel);
//            drawFutureSession(lastShanghaiSession + project, shanghaiLabel);
//            drawFutureSession(lastLondonSession + project, londonLabel);
//            drawFutureSession(lastNewYorkSession + project, newYorkLabel);   
//         }
//      }  
      
      i--;
   }
   
   return(0);
}

int getHour (string timeString) {
   string result[];
   string needle = ":";
   string u_needle = StringGetCharacter(needle,0);
   int k = StringSplit(timeString, u_needle, result);
   
   if (k > 0) return result[0];
   
   return -1;
}

int getMinute (string timeString) {
   string result[];
   string needle = ":";
   string u_needle = StringGetCharacter(needle,0);
   int k = StringSplit(timeString, u_needle, result);
   
   if (k > 0) {
      if (StringLen(result[1]) > 0 ) {
         return result[1];
      }
   }
   
   return 0;
}

//void OnChartEvent(const int CHARTEVENT_MOUSE_MOVE, const long& lparam, const double& dparam, const string& sparam)
//{
//   int i;
//   string name = "";
//   
//   double priceMin = ChartGetDouble(currentChart, CHART_PRICE_MIN);
//
//   for (i = ObjectsTotal(); i >= 0; i--) 
//   {
//      name = ObjectName(i);
//      if (StringFind(name, "_time_label", 0) > -1) 
//      {
//         ObjectSet(name, OBJPROP_PRICE1, priceMin);
//      } 
//   }
//}

//void drawFutureSession(datetime prevSession, string label) 
//{
//   datetime futureTime = prevSession;
//   drawVerticalLine(prefix + "future_line" + prevSession, futureTime, 1, futureSessionColour, 4, true, label);
//}

void drawVerticalLine(string name, datetime time, int thickness, color colour, int style, bool background = true, string label = "") 
{ 
   if (!showVerticalLine)  return;
   
   if (ObjectFind(name) < 0) 
   {
      //if (showInIndicatorWindows) 
         ObjectCreate(currentChart, name, OBJ_VLINE, 0, time, 0);
      // else 
      //   drawTrendLine(name + "_time_label", time, time, 0, 999999, 1, colour, style, true, false, label);
      
   } 
   else 
   { 
      ObjectSet(name, OBJPROP_TIME1, time);
   }
   
   ObjectSet(name,OBJPROP_COLOR, colour);
   ObjectSet(name,OBJPROP_WIDTH, thickness);
   ObjectSet(name, OBJPROP_BACK, background);
   ObjectSet(name, OBJPROP_STYLE, style);
   ObjectSet(name, OBJPROP_SELECTABLE, false);
   
//   double priceMin = ChartGetDouble(currentChart, CHART_PRICE_MIN);
//   
//   if (colourLabels) 
//      drawLabel(name + "_time_label", label, time, priceMin, colour, 90, true);
//   else {
//      //if (showInIndicatorWindows) 
//      //   ObjectSetText(name, label, 7, "Arial", colour);
//      // else 
//         drawLabel(name + "_time_label", label, time, priceMin, White, 90, true);
//      
//   }
}

void drawLabel(string name, string text, datetime time, double price, color colour, int angle, bool background = true)
{
   if (ObjectFind(name) < 0)
   {
      ObjectCreate(currentChart, name, OBJ_TEXT, 0, time, price);
   } 
   else 
   {
      ObjectSet(name, OBJPROP_TIME1, time);
      ObjectSet(name, OBJPROP_PRICE1, price);
   }
   
   ObjectSet(name, OBJPROP_COLOR, colour);
   ObjectSet(name, OBJPROP_ANGLE, angle);
   ObjectSet(name, OBJPROP_BACK, background);
   ObjectSet(name, OBJPROP_SELECTABLE, false);
   
   ObjectSetText(name, "                                         " + text, 8, "Arial", colour);
}

void drawTrendLine(string name, double time1, double time2, double price1, double price2, int thickness, color colour, int style, bool background, bool ray, string label = "", bool boLabel=false) 
{
   if (ObjectFind(name) < 0) 
   {
      ObjectCreate(name, OBJ_TREND, 0, time1, price1, time2, price2);
      ObjectSet(name,OBJPROP_RAY,ray);
   } 
   else 
   {
      ObjectSet(name, OBJPROP_TIME1, time1);
      ObjectSet(name, OBJPROP_TIME2, time2);
      ObjectSet(name, OBJPROP_PRICE1, price1);
      ObjectSet(name, OBJPROP_PRICE2, price2);
   }

   ObjectSet(name,OBJPROP_COLOR, colour);
   ObjectSet(name,OBJPROP_WIDTH, thickness);
   ObjectSet(name,OBJPROP_BACK, background);
   ObjectSet(name,OBJPROP_SELECTABLE, false);
   ObjectSet(name,OBJPROP_STYLE, style);
   
   if (boLabel && price1 == price2) {
      if (colourLabels) {
         drawLabel(name + "_price_label", label, time1, price1, colour, 0, true);
      } else {
         drawLabel(name + "_price_label", label, time1, price1, White, 0, true);
      }
   }
   //else
   //{
   //   if (colourLabels) {
   //      drawLabel(name + "_label", label, time1, price1, colour, 90, true);
   //   } else {
   //      drawLabel(name + "_label", label, time1, price1, DimGray, 90, true);
   //   } 
   //}
}

string getDayName(int dayNumber)
{
   string days[7] = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"};
   return (days[dayNumber]);
}

void clearScreen(string pref, bool clearComments, string exception)
{   
   if (clearComments) Comment("");
   
   int i;
   string name = "";

   for (i = ObjectsTotal(); i >= 0; i--) 
   {
      name = ObjectName(i);
      if (StringFind(name, pref, 0) > -1) 
      {
         if (exception == "0" || StringFind(name, exception,0) == -1) ObjectDelete(name);
      } 
   }
}