//@version=4
// Stochas Ta Cult 3.2
// Caretaker edit
// Version 3.2

study ( title = "Stochas Ta Cult 3.2", shorttitle="STC3.2", format = format.price , precision = 2 )

// Stochastic K1 & D1 Inputs

periodK1 = input ( 5     , title = "K1"       , minval=1)
periodD1 = input ( 3     , title = "D1"       , minval=1)
smoothK1 = input ( 5     , title = "Smooth 1" , minval=1)
sourceK1 = input ( close , title = "Source K1"          )

// Stochastic K2 & D2 Inputs

periodK2 = input ( 8     , title = "K2"       , minval=1)
periodD2 = input ( 3     , title = "D2"       , minval=1)
smoothK2 = input ( 6     , title = "Smooth 2" , minval=1)
sourceK2 = input ( close , title = "Source K2"           )

// Stochastic K3 & D3 Inputs

periodK3 = input ( 14    , title = "K3"        , minval=1)
periodD3 = input ( 3     , title = "D3"        , minval=1)
smoothK3 = input ( 6     , title = "Smooth 3"  , minval=1)
sourceK3 = input ( close , title = "Source K3"           )

// Stochastic K4 & D4 Inputs

periodK4 = input ( 34    , title = "K4"        , minval=1)
periodD4 = input ( 3     , title = "D4"        , minval=1)
smoothK4 = input ( 4     , title = "Smooth 4"  , minval=1)
sourceK4 = input ( close , title = "Source K4"           )

// Stoch Calcs

K1 = sma ( stoch ( sourceK1 , high , low , periodK1 ) , smoothK1 )
K2 = sma ( stoch ( sourceK2 , high , low , periodK2 ) , smoothK2 )
K3 = sma ( stoch ( sourceK3 , high , low , periodK3 ) , smoothK3 )
K4 = sma ( stoch ( sourceK4 , high , low , periodK4 ) , smoothK4 )

D1 = sma ( K1 , periodD1 )
D2 = sma ( K2 , periodD2 )
D3 = sma ( K3 , periodD3 )
D4 = sma ( K4 , periodD4 )

// Scale Zone Plots & Fills

BullTop = input ( 100 , title = "BullTop" , minval=1)
BullSig = input ( 80 , title = "BullSig" , minval=1)
BullMid = input ( 80 , title = "BullMid" , minval=1)
BullLow = input ( 61.8 , title = "BullLow" , minval=1)
MidLine = input ( 50 , title = "MidLine" , minval=1)
BearTop = input ( 38.2 , title = "BearTop" , minval=1)
BearMid = input ( 20 , title = "BearMid" , minval=1)
BearSig = input ( 20 , title = "BearSig" , minval=1)
BearLow = input ( 00 , title = "BearMid" , minval=1)

//  hline(price, title, color, linestyle, linewidth, editable)

BullTopPlot = hline ( BullTop , title = "BullTop" , linestyle = hline.style_dotted , color = color.aqua , linewidth = 2 )
//BullSigPlot = hline ( BullSig , title = "BullSig" , linestyle = hline.style_dotted , color = color.silver , linewidth = 2 )
BullMidPlot = hline ( BullMid , title = "BullMid" , linestyle = hline.style_dashed , color = color.aqua , linewidth = 1 )
BullLowPlot = hline ( BullLow , title = "BullLow" , linestyle = hline.style_solid , color = color.silver , linewidth = 1 )
//MidLinePlot = hline ( MidLine , title = "MidLine" , linestyle = hline.style_dotted , color = color.silver , linewidth = 2 )
BearTopPlot = hline ( BearTop , title = "BearTop" , linestyle = hline.style_solid , color = color.silver , linewidth = 1 )
BearMidPlot = hline ( BearMid , title = "BearMid" , linestyle = hline.style_dashed , color = color.purple , linewidth = 1 )
//BearSigPlot = hline ( BearSig , title = "BearSig" , linestyle = hline.style_dotted , color = color.silver , linewidth = 2 )
BearLowPlot = hline ( BearLow , title = "BearMid" , linestyle = hline.style_dotted , color = color.purple , linewidth = 2 )

// Stoch Plots & Fills

PlotK1  = plot ( K1 , title = "K1" , color = K1 > K1[1] ? color.white : color.silver  , linewidth = 2 , transp = 100 )
PlotD1  = plot ( D1 , title = "D1" , color = D1 > D1[1] ? color.white : color.silver  , linewidth = 2 , transp = 0 )

fill ( PlotK1 , PlotD1 , title = "Fill K1 - D1" , color = K1 > D1 ? color.white   : color.white  , transp = 100 )

PlotK2  = plot ( K2 , title = "K2" , color = K2 > K2[1] ? color.lime : color.yellow  , linewidth = 2 , transp = 100 )
PlotD2  = plot ( D2 , title = "D2" , color = D2 > D2[1] ? color.lime : color.yellow  , linewidth = 2 , transp = 0 )

fill ( PlotK2 , PlotD2 , title = "Fill K2 - D2" , color = K2 > D2 ? color.lime    : color.yellow , transp = 100 )

PlotK3  = plot ( K3 , title = "K3" , color = K3 > K3[1] ? color.green : color.orange , linewidth = 2 , transp = 100 )
PlotD3  = plot ( D3 , title = "D3" , color = D3 > D3[1] ? color.green : color.orange , linewidth = 2 , transp = 0 )

fill ( PlotK3 , PlotD3 , title = "Fill K3 - D3" , color = K3 > D3 ? color.green   : color.orange , transp = 100 )

PlotK4  = plot ( K4 , title = "K4" , color = K4 > K4[1] ? color.blue : color.red     , linewidth = 3 , transp = 100 )
PlotD4  = plot ( D4 , title = "D4" , color = D4 > D4[1] ? color.blue : color.red     , linewidth = 3 , transp = 0 )

fill ( PlotK4 , PlotD4 , title = "Fill K4 - D4" , color = K4 > D4 ? color.blue    : color.red    , transp = 100 )

DX= ( K1 + K2 + K3 ) / 3

PlotDX  = plot ( DX , title = "DX" , color = DX > DX[1] ? color.lime : color.red     , linewidth = 3 , transp = 0 )

bgcolor ( color= D1 > D1[1] and D2 > D2[1] and D3 > D3[1] ? color.green : D1 < D1[1] and D2 < D2[1] and D3 < D3[1] ? color.red : na, transp = 75 )


fastn1 = input(17, "Godmode: Channel Length")
fastn2 = input(6, "Godmode: Average Length")
fastn3 = input(4, "Godmode: Short Length")
slown1 = input(9, "Godmode: Slow Channel Length")
slown2 = input(26, "Godmode: Slow Average Length")
slown3 = input(13, "Godmode: Slow Short Length")
gsrc0  = hlc3

tci_1(gsrc, n1, n2) =>
    ema((gsrc - ema(gsrc, n1)) / (0.025 * ema(abs(gsrc - ema(gsrc, n1)), n1)), n2) +
       50
tci_2(gsrc, n1, n2) =>
    ema((gsrc - ema(gsrc, n1)) / (0.025 * ema(abs(gsrc - ema(gsrc, n1)), n1)), n2) +
       50
mf_1(gsrc, n3) =>
    rsi(sum(volume * (change(gsrc) <= 0 ? 0 : gsrc), n3), sum(volume * (change(gsrc) >= 0 ? 0 : gsrc), n3))

mf_2(gsrc, n3) =>
    rsi(sum(volume * (change(gsrc) <= 0 ? 0 : gsrc), n3), sum(volume * (change(gsrc) >= 0 ? 0 : gsrc), n3))

willy(gsrc, n2) =>
    60 * (gsrc - highest(gsrc, n2)) / (highest(gsrc, n2) - lowest(gsrc, n2)) + 80

csi(gsrc, n1, n2, n3) =>
    avg(rsi(gsrc, n3), tsi(gsrc0, n1, n2) * 50 + 50)

godmode(gsrc, n1, n2, n3) =>
    avg(tci_1(gsrc, n1, n2), csi(gsrc, n1, n2, n3), mf_1(gsrc, n3), willy(gsrc, n2))

tradition(gsrc, n1, n2, n3) =>
    avg(tci_2(gsrc, n1, n2), mf_2(gsrc, n3), rsi(gsrc, n3))

extended(wt2) =>
    wt2 < 20 ? wt2 + 5 : wt2 > 80 ? wt2 - 5 : na

fastwt1 = godmode(gsrc0, fastn1,fastn2, fastn3)
fastwt2 = sma(fastwt1, 6)
tradwt1 = tradition(gsrc0,fastn1,fastn2, fastn3)
slowwt1 = godmode(gsrc0, slown1, slown2, slown3)
slowwt2 = sma(slowwt1, 6)
//fastextended = fastwt2<25 ? fastwt2-15 : fastwt2>75 ? fastwt2+15 : na
//slowextended = extended(slowwt2)<25 ? extended(slowwt2)-20 : extended(slowwt2)>75 ? extended(slowwt2)+20 : na

dotsLow = 4
dotsHigh = 96
space = 2
fastextended = fastwt2 < 25 ? dotsLow  : fastwt2 > 75 ? dotsHigh : na
extended__1 = extended(slowwt2)
slowextended = extended(slowwt2) < 25 ? dotsLow - space :
   extended__1 > 75 ? dotsHigh + space : na
color_7 = color.new(color.lime, 0)
color_8 = color.new(color.red, 0)

plot(fastextended, title="Godmode Caution", color=fastwt2 < 25 ? color_7 : fastwt2 > 75 ? color_8 : na, style=plot.style_circles, linewidth=2)
//bgcolor ( color = fastextended and fastwt2 < 25 ? color.green : fastextended and fastwt2 > 75 ? color.red : na, transp = 75 )

color_9 = color.new(color.lime, 0)
color_10 = color.new(color.red, 0)

plot(slowextended, title="Godmode Extreme Caution", color=fastwt2 < 25 ? color_9 : fastwt2 > 75 ? color_10 : na, style=plot.style_circles, linewidth=2)
//bgcolor ( color= slowextended and slowwt2 < 25 ? color.green : slowextended and slowwt2 > 75 ? color.red : na, transp = 75 )

// End