# alias: Lebensohl
# button-text: Lebensohl
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n1N +2[DHS].*(2[HS]|2NT|3[CDHSN])
# convention-card-ns: 21GF-SPECIALS
# convention-card-ew: 21GF-GIB

/*@chat
--- Lebensohl
After we open 1N and RHO overcalls 2!D, 2!H, or 2!S...
• A suit at the 2-level is natural and not forcing.
• 2N is a relay to 3!C and after the opener's 3!C bid...
  ◦ Pass to play 3!C.
  ◦ A new lower-ranking suit is to play.
  ◦ A cue bid is Stayman WITH A STOP.
  ◦ A new higher-ranking suit is constructive.
  ◦ 3N is to play WITH A STOP.
• A new suit at the 3-level is game-forcing.
• A cue bid is Stayman WITHOUT a stop.
• 3N is natural, WITHOUT a STOP -- opener should pass or scramble.
https://www.larryco.com/bridge-articles/lebensohl
https://www.larryco.com/bridge-articles/transfer-lebensohl
@chat*/

# Lebensohl
dealer south


# South opens 1N, Robot style
sOpens = hcp(south)>14 and hcp(south)<18 and shape(south,any 4333 +any 4432 +any 5332 -5xxx-x5xx)

# Good Suits West -- QJT or better
GSW = top4(west,spades)>1   and top5(west,spades)>2   and spades(west)>3
GHW = top4(west,hearts)>1   and top5(west,hearts)>2   and hearts(west)>3
GDW = top4(west,diamonds)>1 and top5(west,diamonds)>2 and diamonds(west)>3
GCW = top4(west,clubs)>1    and top5(west,clubs)>2    and clubs(west)>3

# Clubs excluded -- a good club suit produces a 2C overcall, which Lebensohl
# does not apply over.  16+ hands excluded -- they double rather than overcall.
w2Suit  = (GSW + GHW + GDW)==2 and shape(west,any 64xx+any 55xx+any 54xx) and hcp(west)>11 and hcp(west)<16
w6Suit  = (GSW or GHW or GDW) and shape(west,any 7xxx+any 6xxx) and hcp(west)>10 and hcp(west)<16 and not w2Suit
w5Suit  = (GSW or GHW or GDW) and shape(west,any 5xxx)          and hcp(west)>11 and hcp(west)<16 and not w2Suit
w1Suit  = (w6Suit or w5Suit)

wCompetes = (w2Suit or w1Suit)

# Good Suits North -- 5+ to the QJT or better
GSN = top5(north,spades)>2   and shape(north,6xxx+5xxx+any 1xxx+any 0xxx)
GHN = top5(north,hearts)>2   and shape(north,x6xx+x5xx+any 1xxx+any 0xxx)
GDN = top5(north,diamonds)>2 and shape(north,xx6x+xx5x+any 1xxx+any 0xxx)
GCN = top5(north,clubs)>2    and shape(north,xxx6+xxx5+any 1xxx+any 0xxx)

n0Suit  = shape(north,any 4432+any 4333+any 4441) and hcp(north)>9
n1Suit  = (GSN or GHN or GDN or GCN)              and hcp(north)>8
nForces = (n0Suit or n1Suit)

#include "script/Leveling"

# Reduce West's 1-suited hands
lev1Suit  = w1Suit  and keep03
lev2Suit  = w2Suit  and keep
levelTheDeal = (lev2Suit or lev1Suit)

# Now do it
sOpens and wCompetes and nForces
and levelTheDeal

action
average "South HCP      " hcp(south),
average "North HCP      " hcp(north),
average "North Balanced " 100 * n0Suit,
average "North 1 Suit   " 100 * n1Suit,
average "West 2-Suited  " 100 * w2Suit,
average "West 1-Suited  " 100 * w1Suit,
average "West 6+ Suit   " 100 * w6Suit,
average "West 5  Suit   " 100 * w5Suit,