# alias: McCabeAfterWJO
# button-text: McCabe over WJO (Lev)
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n1[CDHS] +[23][DHSC] +X
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
--- McCabe after Partner's Weak Jump Overcall is Doubled -- Leveled.
After the opponents open and partner's weak jump overcal is doubled...
responder has six possible continuations:
• Bid game - Preempt or Rule of 17
• Raise below game - a mild preempt
• Bid a new suit - Please lead this suit.
• Bid 2N - I'm interested in game.  Do you have a feature?
• Redouble - I have a long suit of my own
• Pass - Good Luck!
@chat*/

# McCabe after Weak Jump Overcall
# The McCabe Convention gives useful options for Advancer after Partner’s Weak Jump Overcall is doubled.

dealer east

# Define East's Opening of 1C, 1D, or 1H
s = spades(east)
h = hearts(east)
d = diamonds(east)
c = clubs(east)
eS = s>4 and s>=h and s>=d and s>=c
eH = not eS and h>4 and h>=d and h>=c
eD = not (eS or eH) and ((d>3 and d>=c) or c<3)
eC = not (eS or eH or eD)
eastOpens = hcp(east)>11 and hcp(east)<15 and (eC or eD or eH)

# Define South's Weak Jump Overcall

    // at least half of south's points are in the suit
    // allow no 4-card side major

tp = hcp(south)
sp = hcp(south,spades)
hp = hcp(south,hearts)
dp = hcp(south,diamonds)
w2s = shape(south,6xxx-x4xx     -any 7xxx-any 66xx-any 65xx) and 2 * sp > tp and top4(south,spades)>1
w2h = shape(south,x6xx-4xxx     -any 7xxx-any 66xx-any 65xx) and 2 * hp > tp and top4(south,hearts)>1
w2d = shape(south,xx6x-x4xx-4xxx-any 7xxx-any 66xx-any 65xx) and 2 * dp > tp and top4(south,diamonds)>1

wjoRange = tp>6 and tp<10 and losers(south)<8  // I tried reducing the tp to <9 and got many more errors
wjoSuit = (eH and w2s) or (eD and (w2s or w2h)) or (eC and (w2s or w2h or w2d))
weakJumpOvercall = wjoSuit and wjoRange

// Define responders hand types
//  • 4 of Opener’s suit – Preempt or Rule of 17 raise.
//  • Redouble – I have a long suit of my own. Please keep the bidding
//    open by bidding the cheapest denomination if Advancer passes so
//    that I may bid my suit or pass if you bid it.
//  • 2NT – Asks feature or Ogust just like without their double.
//  • Preempt - 3/4 of Opener’s suit.
//  • New suit – I want you to lead the suit I bid. I have a some spot cards
//    in you suit so you can rebid your own suit if Advancer passes.

### Define West X -- short in opener's suit and 4-cards in each unbid major
// deny e/w fit, reduce west hcp, and allow 5431 to reduce 'Error generating deal'
sShort = w2s and spades(west)<3   and hearts(west)>3  //shape(west,x5xx+x4xx)
hShort = w2h and hearts(west)<3   and spades(west)>3  //shape(west,5xxx+4xxx)
dShort = w2d and diamonds(west)<3 and hearts(west)>3 and spades(west)>3  //shape(west,54xx+45xx+44xx)
ewFit = (eH and hearts(west)>2) or (eD and diamonds(west)>3) or (eC and clubs(west)>3)
westX = hcp(west)>6 and (sShort or hShort or dShort) and shape(west,any 5440+any 5431+any 4441+any 4432) and not ewFit

# Define North's fit with South's suit
sFit = w2s and spades(north)>2
hFit = w2h and hearts(north)>2
dFit = w2d and diamonds(north)>2
nsFit = sFit or hFit or dFit

### Define Rule17 points -- FORCE TO GAME
sLen = sFit ? spades(north)   : 0
hLen = hFit ? hearts(north)   : 0
dLen = dFit ? diamonds(north) : 0
trumpLength = (sLen + hLen + dLen)
rule17 = (hcp(north) + trumpLength)>17

### Define Rule15       -- INVITE GAME
rule15 = (hcp(north) + trumpLength)>15   and not (rule17)

### Define Lead my suit -- MILD PREEMPT
lS = top3(north,spades)>1   and not w2s
lH = top3(north,hearts)>1   and not w2h
lD = top3(north,diamonds)>1 and not w2d
lC = top3(north,clubs)>1
leadAsk = nsFit and (lS or lH or lD or lC) and not (rule17 or rule15)

### Define Mild preempt -- MILD PREEMPT
raise = nsFit and hcp(north)>6    and not(rule17 or rule15 or leadAsk)

### Define North's long & strong suits -- 5+9
sS = (spades(north)   + hcp(north,spades)  )>12 and spades(north)>4
sH = (hearts(north)   + hcp(north,hearts)  )>12 and hearts(north)>4
sD = (diamonds(north) + hcp(north,diamonds))>12 and diamonds(north)>4
sC = (clubs(north)    + hcp(north,clubs)   )>12 and clubs(north)>4
mySuit = (sS or sH or sD or sC) and not nsFit and not (rule17 or rule15 or leadAsk or raise)

### Define pass
pass = not (rule17 or rule15 or leadAsk or raise or mySuit)

# Define leveling
#include "script/Leveling"

# Level the deal
lRule17      = rule17     and keep
lRule15      = rule15     and keep44
lLeadAsk     = leadAsk    and keep06 and not c3  // 4.5%
lRaise       = raise      and keep06 and not c3  // 4.5%
lmySuit      = mySuit     and keep56
lPass        = pass       and keep03
levelTheDeal = lRule17 or lRule15 or lLeadAsk or lRaise or lmySuit or lPass

# Now do it
eastOpens and weakJumpOvercall and westX and (rule17 or rule15 or leadAsk or raise or mySuit or pass)
and levelTheDeal

action
average "Rule of 17" 100 * rule17,
average "Rule of 15" 100 * rule15,
average "Lead Ask  " 100 * leadAsk,
average "Raise     " 100 * raise,
average "mySuit    " 100 * mySuit,
average "Pass      " 100 * pass,