# alias: NToverLHO3x
# button-text: 3N over LHO's 3x (Lev)
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n3[CDHS] +Pass +Pass +3N
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
---  3NT over LHO's 3x Preempt.
• 18+ and 1 stop
• 16+ and good suit
• 16+ and 2 stops
and a prayer!
@chat*/

dealer west

### 3N over LHO's 3x ###

# define south's controls for each suit
sCs = controls(south,spades)
sCh = controls(south,hearts)
sCd = controls(south,diamonds)
sCc = controls(south,clubs)

# define honor cards
aS = sCs==2
kS = sCs==1
aH = sCh==2
kH = sCh==1
aD = sCd==2
kD = sCd==1
aC = sCc==2
kC = sCc==1

qS = hascard(south,QS)
qH = hascard(south,QH)
qD = hascard(south,QD)
qC = hascard(south,QC)
jS = hascard(south,JS)
jH = hascard(south,JH)
jD = hascard(south,JD)
jC = hascard(south,JC)

# define number of cards in each suit
s = spades(south)
h = hearts(south)
d = diamonds(south)
c = clubs(south)

# define south's sHCP points
sHCP = hcp(south)

# Define South's Long Rebiddable suits -- 6+ cards 3 of the top 4
lrS = spades(south)>5   and top4(south,spades)==3
lrH = hearts(south)>5   and top4(south,hearts)==3
lrD = diamonds(south)>5 and top4(south,diamonds)==3
lrC = clubs(south)>5    and top4(south,clubs)==3
sRebid = (lrS or lrH or lrD or lrC)

# west preempts and the 3-level
sW = shape(west, 7xxx-x4xx-any 5xxx)      and top2(west,spades)>0  and top5(west,spades)>2
hW = shape(west, x7xx-4xxx-any 5xxx)      and top2(west,hearts)>0   and top5(west,hearts)>2
dW = shape(west, xx7x-4xxx-x4xx-any 5xxx) and top2(west,diamonds)>0 and top5(west,diamonds)>2
cW = shape(west, xxx7-4xxx-x4xx-any 5xxx) and top2(west,clubs)>0    and top5(west,clubs)>2
wPreempts = (sW or hW or dW or cW) and hcp(west)>6 and hcp(west)<11


# North and Easy both pass
nPasses = hcp(north)<11 and shape(north, xxxx - any 7xxx -any 6xxx -any 55xx)
ePasses = hcp(east)<11 and shape(east, xxxx - any 7xxx -any 6xxx -any 55xx)

# define south has only 1 stop -- A, Kx, QJx
s1s = sW and (aS or (kS and s>1) or (qS and jS and s>2))
h1s = hW and (aH or (kH and h>1) or (qH and jH and h>2))
d1s = dW and (aD or (kD and d>1) or (qD and jD and d>2))
c1s = cW and (aC or (kC and c>1) or (qC and jC and c>2))
oneStop = (s1s or h1s or d1s or c1s)

# define south has 2 stops -- AK, AQ, KQx
s2s = sW and ((aS and kS) or (aS and qS) or (kS and qS and s>2))
h2s = hW and ((aH and kH) or (aH and qH) or (kH and qH and h>2))
d2s = dW and ((aD and kD) or (aD and qD) or (kD and qD and d>2))
c2s = cW and ((aC and kC) or (aC and qC) or (kC and qC and c>2))
twoStop = (s2s or h2s or d2s or c2s)

# define the three cases
case1 = oneStop and sHCP>17
case2 = oneStop and sRebid and sHCP>15 and not case1
case3 = twoStop and sHCP>15 and not (case1 or case2)

#include "script/Leveling"

# Level it
level1 = case1 and keep06
level2 = case2 and keep97
level3 = case3 and keep
levelTheDeal = level1 or level2 or level3

# south bids 3N
wPreempts and nPasses and ePasses and (case1 or case2 or case3)
and levelTheDeal

action
average "1 Stop and >17             " 100 * case1,
average "1 Stop, good suit, and >15 " 100 * case2,
average "2 Stop and >15             " 100 * case3,