OKCoin Weekly Settlement
Paints bg of cande red, tags with okc :D
study("OKCoin Weekly Settlement")
colorA = black
okcTime = '0701-0700'
okcFutSettlement(hr) => dayofweek == 6 and not na(time("1", hr)) == 1
bgcolor(okcFutSettlement(okcTime) == 0 and change(okcFutSettlement(okcTime)) ? red : white, transp=70)
plotshape(okcFutSettlement(okcTime) == 0 and change(okcFutSettlement(okcTime)) , color=white, style=shape.circle, text="OKC", location=location.bottom)