Trading hours background highlighter UTC based

//Created by user ChrisMoody 2-17-2014
//Forex Session Templates Based on EST-New York Time Zone
//Special Thanks to TheLark AKA The Coding Genius for helping me with the "On - Off" CheckBoxes in the inputs tab

study(title="CM_Forex-Sessions-Highlight_V1 UTC based",shorttitle="CM_forex_Sess_Highlight_UTC", overlay=true)
timeinrange(res, sess) => time(res, sess) != 0

//Change true to false = You have to turn on, won't show up by default
//****Always use lowercase letters

doNYOpen = input(defval=true, type = bool, title="NY Open On")
doNYSession = input(defval=true, type = bool, title="NY Session On")
doNYClose = input(defval=true, type = bool, title="NY Close On")

doAussieOpen = input(defval=true, type = bool, title="Aussie Open On")
doAussieSession = input(defval=true, type = bool, title="Aussie Session On")
doAussieClose = input(defval=true, type = bool, title="Aussie Close On")

doAsiaOpen = input(defval=true, type = bool, title="Asia Open On")
doAsiaSession = input(defval=true, type = bool, title="Asia Session On")
doAsiaClose = input(defval=true, type = bool, title="Asia Close On")

doEurOpen = input(defval=true, type = bool, title="Euro Open On")
doEurSession = input(defval=true, type = bool, title="Euro Session On")
doEurClose = input(defval=true, type = bool, title="Euro Close On")

//You can copy and paste these colors. white - silver - gray - maroon - red - purple - fuchsia - green - lime
//   olive - yellow - navy - blue - teal - aqua - orange 

nySessionStart = white
nySession = white
nySessionEnd = white
australiaSessionStart = #A9A9A9
australiaSession = #A9A9A9
australiaSessionEnd = #A9A9A9
asiaSessionStart = #DAA520
asiaSession = #DAA520
asiaSessionEnd = #DAA520
europeSessionStart = #1E90FF
europeSession = #1E90FF
europeSessionEnd = #1E90FF

//****Note ---- Use Military Times --- So 3:00PM = 1500

bgcolor(doNYOpen and timeinrange(period, "0800-0810") ? nySessionStart : na, transp=20)
bgcolor(doNYSession and timeinrange(period, "0800-1700") ? nySession : na, transp=75)
bgcolor(doNYClose and timeinrange(period, "1650-1700") ? nySessionEnd : na, transp=20)

bgcolor(doAussieOpen and timeinrange(period, "1700-1710") ? australiaSessionStart : na, transp=20)
bgcolor(doAussieSession and timeinrange(period, "1700-0200") ? australiaSession : na, transp=75)
bgcolor(doAussieClose and timeinrange(period, "0150-0200") ? australiaSessionEnd : na, transp=20)

bgcolor(doAsiaOpen and timeinrange(period, "1900-1910") ? asiaSessionStart : na, transp=20)
bgcolor(doAsiaSession and timeinrange(period, "1900-0400") ? asiaSession : na, transp=75)
bgcolor(doAsiaClose and timeinrange(period, "0350-0400") ? asiaSessionEnd : na, transp=20)

bgcolor(doEurOpen and timeinrange(period, "0800-0810") ? europeSessionStart : na, transp=20)
bgcolor(doEurSession and timeinrange(period, "0800-1630") ? europeSession : na, transp=75)
bgcolor(doEurClose and timeinrange(period, "1615-1630") ? europeSessionEnd : na, transp=20)