# alias: AfterPartnerTakeoutDouble
# button-text: After Partner's Takeout X
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n1[CDHS] +X +P
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
--- Advancing Partner's Takeout Double
West opens 1!C, 1!D, 1!H, or 1!S. Your partner (North) makes a takeout
double, and East passes. You — the advancer — must respond. You are NOT
allowed to pass a takeout double for penalty here; partner is asking you to
bid, so describe your hand.

Two jobs as advancer: bid your longest suit, and show your strength by the
LEVEL you choose, not by bidding longer.

• 0-8 HCP  — bid your longest unbid suit as cheaply as possible.
• 8-11 HCP — JUMP in your longest suit (the jump shows values, not length).
• 12+ HCP  — cuebid opener's suit, forcing to game.

With a stopper in opener's suit you may bid notrump instead of a suit:
• 1NT — 8-11 HCP with a stopper.
• 2NT — 12-13 HCP with a stopper.
• 3NT — 14 HCP with a stopper.

Partner (the doubler) then shows any extra by raising your suit (4-card
support) or cuebidding opener's suit (only 3-card support but extra values).

Level: intermediate.
Reference: https://www.advinbridge.com/this-week-in-bridge/642
@chat*/

dealer west

#include "script/TP"
# Provides tpWest, tpNorth, tpEast, tpSouth.

##### West opens 1 of a suit (natural) #####
s = spades(west)
h = hearts(west)
d = diamonds(west)
c = clubs(west)
oS = s>4 and s>=h and s>=d and s>=c
oH = not oS and h>4 and h>=d and h>=c
oD = not (oS or oH) and ((d>3 and d>=c) or c<3)
oC = not (oS or oH or oD)
openSuit = oS or oH or oD or oC

# Not a 1NT opener (balanced 15+) and not a preempt (no 7-card suit).
# Floor at 12 HCP so the robot reliably opens rather than passing a light hand.
wNotNT     = not (shape(west, any 4432+any 4333+any 5332) and hcp(west)>14)
wNoPreempt = s<7 and h<7 and d<7 and c<7
westRange  = hcp(west)>11 and hcp(west)<16
westHand   = openSuit and wNotNT and wNoPreempt and westRange

##### North makes a takeout double of opener's suit #####
# Shortness in opener's suit is the defining feature.
nShort = (oS and spades(north)<3)
      or (oH and hearts(north)<3)
      or (oD and diamonds(north)<3)
      or (oC and clubs(north)<3)

# 3+ cards in each of the three unbid suits.
nSupS = oS or spades(north)>2
nSupH = oH or hearts(north)>2
nSupD = oD or diamonds(north)>2
nSupC = oC or clubs(north)>2
nSupport = nSupS and nSupH and nSupD and nSupC

# Takeout shapes: 4441 / 4432 / 5431 / 5440. Combined with nShort + nSupport
# the short suit is forced to be opener's, so the 5-card suit in 5431/5440
# lands in an unbid suit. Keep that 5-card suit a MINOR: with a 5-card major
# the robot overcalls the major instead of doubling (a different auction), so
# hold spades/hearts to four. Minimum-strength range so a 15+ balanced hand
# does not tempt a 1NT overcall either.
nShape    = shape(north, any 4441+any 4432+any 5431+any 5440)
nNoMajor5 = spades(north)<5 and hearts(north)<5
nRange    = hcp(north)>11 and hcp(north)<15 and tpNorth>11
northHand = nShort and nSupport and nShape and nNoMajor5 and nRange

##### East passes (weak, no fit, no biddable suit) #####
# East is responder over the double; to keep the auction 1X-X-P, deny East a
# reason to act: under 6 HCP, no 4-card major to introduce, no 5-card suit,
# and no 4-card support to raise opener.
eWeak     = hcp(east)<6
eNoMajor4 = spades(east)<4 and hearts(east)<4
eNoLong   = spades(east)<5 and hearts(east)<5 and diamonds(east)<5 and clubs(east)<5
eNoRaise  = (oS and spades(east)<4)
         or (oH and hearts(east)<4)
         or (oD and diamonds(east)<4)
         or (oC and clubs(east)<4)
eastHand  = eWeak and eNoMajor4 and eNoLong and eNoRaise

##### South advances (the student) #####
# Wide range so weak, invitational, and game-forcing advances all appear.
# No 5-card stack in opener's suit (those become penalty-pass hands).
sRange   = hcp(south)<16
sNoStack = (oS and spades(south)<5)
        or (oH and hearts(south)<5)
        or (oD and diamonds(south)<5)
        or (oC and clubs(south)<5)
southHand = sRange and sNoStack

##### Level the opening suit across the four suits #####
# Dealt naturally this scenario skews to majors (S 40%, H 34%, D 12%, C 14%)
# because North's takeout shape absorbs the unbid suits. Keep the rarest
# opening (D) fully and downsample the others by 12/theirs so each opening
# lands near 25%.
#include "script/Leveling"
levS = oS and keep33
levH = oH and keep33
levD = oD and keep94
levC = oC and keep94
levelTheDeal = levS or levH or levD or levC

##### Now do it #####
westHand and northHand and eastHand and southHand and levelTheDeal

action
average "W 1C          " 100 * oC,
average "W 1D          " 100 * oD,
average "W 1H          " 100 * oH,
average "W 1S          " 100 * oS,
average "N HCP avg     "       hcp(north),
average "N has 4441    " 100 * shape(north, any 4441),
average "S HCP avg     "       hcp(south),
average "S 0-8  (weak) " 100 * (hcp(south)<9),
average "S 8-11 (inv)  " 100 * (hcp(south)>7 and hcp(south)<12),
average "S 12+  (GF)   " 100 * (hcp(south)>11),