# alias: TrapPass
# button-text: Trap Pass
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n1.*\nX +Pass +Pass
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
--- Trap Pass
After 1x, (overcall), Pass, (Pass), consider reopening with DOUBLE.
@chat*/

#include "script/TP"

##### Predict South's Opening Suit #####
# With 12-14 HCP and 5440/5431/5422 shape, South always opens the unique 5-card suit
s = spades(south)
h = hearts(south)
d = diamonds(south)
c = clubs(south)
oneSpade   = s>4 and s>=h and s>=d and s>=c
oneHeart   = not oneSpade and h>4 and h>=d and h>=c
oneDiamond = not oneSpade and not oneHeart and d>4
oneClub    = not oneSpade and not oneHeart and not oneDiamond
##### End of Predict South's Opening Suit #####

dealer south

predeal west HQ,DK,CA

# North does not have a fit with South (avoid raise) and North is short in West's suit
# and West is NOT short in North's suit (avoid X)
s1S = oneSpade   and spades(north)<3   and spades(west)>2
s1H = oneHeart   and hearts(north)<3   and hearts(west)>2
s1D = oneDiamond and diamonds(north)<4 and diamonds(west)>2
s1C = oneClub    and clubs(north)<4    and clubs(west)>2
sOpens = (s1S or s1H or s1D or s1C) and shape(south,any 5440 +any 5431 +any 5422) and hcp(south)>11 and hcp(south)<15

# Determine West's longest suit
sw = spades(west)
hw = hearts(west)
dw = diamonds(west)
cw = clubs(west)
wS = sw>=hw and sw>=dw and sw>=cw
wH = not wS and hw>=dw and hw>=cw
wD = not wS and not wH and dw>=cw
wC = not wS and not wH and not wD

# West has a good suit, North has a stack, and South has a take-out double
w1S = wS and top3(west,spades)==2   and spades(north)==5   and top5(north,spades)>=2
w1H = wH and top3(west,hearts)==2   and hearts(north)==5   and top5(north,hearts)>=2
w1D = wD and top3(west,diamonds)==2 and diamonds(north)==5 and top5(north,diamonds)>=2
w1C = wC and top3(west,clubs)==2    and clubs(north)==5    and top5(north,clubs)>=2
wGoodSuitNorthStack = (w1S or w1H or w1D or w1C) and shape(south,any 5422 +any 5431 +any 5440)

wRangeAndShape = hcp(west)>11 and hcp(west)<15 and shape(west,any 6xxx +any 5xxx -any 65xx -any 55xx)
wOvercallTrap = wGoodSuitNorthStack and wRangeAndShape and hcp(north)>9

# East is quiet
eQuiet = shape(east,xxxx-any 7xxx -any 6xxx) and hcp(east)<9

# Now do it
sOpens and wOvercallTrap and eQuiet

action
average "Trap Pass" 100 * wOvercallTrap,