// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// © trademate2000

//@version=4
study("OGT Price Action Indicator", overlay = true)
showengulf = input(defval = true, title = "Show Engulfing", group = "engulf")
showdoji = input(defval = true, title = "Show Doji", group = "doji")
candles = input(defval = 5, minval = 1, title = "Check no. of candles", group = "engulf")
minper = input(defval = 70,minval = 1, title = "Min %age of engulfing candle body", group = "engulf")/100


range = high-low
minpercond = abs(close-open) > (range*minper)
bullengulf = high>high[1] and low<low[1] and close>open and open[1]>close[1] and range==highest(range,candles) and minpercond
bearengulf = high>high[1] and low<low[1] and close<open and open[1]<close[1] and range==highest(range,candles) and minpercond
plotshape(bullengulf and showengulf, text = "Bullish engulf", title = "Bullish engulf", textcolor=color.white, size = size.auto, style=shape.labelup, location=location.belowbar, color=color.green)
plotshape(bearengulf and showengulf, text = "Bearish engulf", title = "Bearish engulf", textcolor=color.white,size = size.auto, style=shape.labeldown, location=location.abovebar, color=color.red)

// plot(highest(range,candles))
//////////doji

bodyper = input(defval=0.1, minval = 0, step = 0.001, title = "%age for doji (%)", group = "doji")
// age = input(defval)
currentbodyper = (abs(close-open)/open)*100


highwick = close>open ? high-close : high-open
lowwick = close>open ? open-low : close-low
body = close>open ? close-open : open-close
maxwick = max(highwick,lowwick)
fourpricedoji = currentbodyper<bodyper and close==high and close==low and body<maxwick
gravestonedoji = currentbodyper<bodyper and open==low and high>open and body<maxwick
dragonflydoji = currentbodyper<bodyper and open==high and low<open and body<maxwick
longleggeddoji = currentbodyper<bodyper and open!=high and open!=low and body<highwick and body<lowwick

plotshape(fourpricedoji and showdoji, text = "Doji", textcolor=color.white, size = size.auto, style=shape.labelup, location=location.belowbar, color=color.blue)
plotshape(gravestonedoji and showdoji, text = "Doji", textcolor=color.white, size = size.auto, style=shape.labelup, location=location.belowbar, color=color.blue)
plotshape(dragonflydoji and showdoji, text = "Doji", textcolor=color.white, size = size.auto, style=shape.labelup, location=location.belowbar, color=color.blue)
plotshape(longleggeddoji and showdoji, text = "Doji", textcolor=color.white, size = size.auto, style=shape.labelup, location=location.belowbar, color=color.blue)