// This Strategy was Created by ©NoobSharks
// if you use it and like it, send us some donation: BinancePay ID: 223731148 - Metamask: 0x82782b3ebD1d6bf7faa18a3943fA6f16EBBF3134
// (yes, I might be naive but I trully Believe you will support us)
// For more information about this indicator check "https://www.youtube.com/c/NoobSharksLutanoMercadoCripto" and give us a hand following us on YouTube
// Check also our website includeing strategies, free indicatores and technical analysis videos: https://www.noobsharks.com

//@version=5

indicator(shorttitle="[NB]IND.BB.AdjustableMA&CandleColor", title="[NBpkgF] Indicator - Bollinger Bands Adjustable Moving Average & Institutional Volume on Candle", overlay=true, timeframe="", timeframe_gaps=true)

// inputs
maTp = input.string(defval = "SMA", options = ["EMA", 'HMA', 'RMA', 'SMA', 'SWMA', 'VWAP', 'VWMA', 'WMA'], title = "MA Type", group = "Bollinger Bands")
len = input.int(defval = 20, minval=1, title = "MA Length", group = "Bollinger Bands")
src = input(close, title="MA Source", group = "Bollinger Bands")
mult = input.float(2.0, minval=0.001, maxval=50, title="StdDev", group = "Bollinger Bands")
length = input.int(defval = 55, title="MA Volume Length", minval=2, group = "Institutional Candle Color")
thresholdExtraHigh = input.float(defval = 4, title="Extra High Volume Index", group = "Institutional Candle Color")

// functions
selectMa(TypeF, srcF, lenF)=>
    if TypeF == "SMA"
        selectMa = ta.sma(srcF, lenF)
    else
        if TypeF == "EMA"
            selectMa = ta.ema(srcF, lenF)
        else
            if TypeF == "RMA"
                selectMa = ta.rma(srcF, lenF)
            else
                if TypeF == "WMA"
                    selectMa = ta.wma(srcF, lenF)
                else
                    if TypeF == "VWMA"
                        selectMa = ta.vwma(srcF, lenF)
                    else
                        if TypeF == "HMA"
                            selectMa = ta.hma(srcF, lenF)
                        else
                            if TypeF == "SWMA"
                                selectMa = ta.swma(srcF)
                            else
                                if TypeF == "VWAP"
                                    selectMa = ta.vwap(srcF, lenF)
                                else
                                    na

// bb calculation and plot

basis = selectMa(maTp, src, len)
dev = mult * ta.stdev(src, len)
upper = basis + dev
lower = basis - dev

plot(basis, "Basis", color=color.navy)
p1 = plot(upper, "Upper Band", color=color.gray)
p2 = plot(lower, "Lower Band", color=color.gray)
fill(p1, p2, title = "Background", color=color.new(color.navy, transp = 90))


// inputs

thresholdHigh = thresholdExtraHigh / 1.6
thresholdMedium = thresholdExtraHigh / 4
thresholdNormal = thresholdExtraHigh/8 - thresholdMedium


// calc
mean   = ta.sma(volume, length)
std    = ta.stdev(volume, length)
stdbar = (volume - mean) / std


// bar colors
bcolor = stdbar > thresholdExtraHigh ? color.red :
  stdbar > thresholdHigh  ? color.orange :
  stdbar > thresholdMedium ? color.yellow :
  stdbar > thresholdNormal ? color.white :
  color.blue
  
barcolor(bcolor, title="Volume Bar Color")