# alias: GerberByOpener
# button-text: Gerber by Opener
# gib-works: true
# bba-works: false
# auction-filter: Auction.....\n(2C =1= +Pass +2N +Pass\n4C|1[CD] +Pass +2N +Pass\n4C)
# convention-card-ns: 21GF-GIB
# convention-card-ew: 21GF-GIB

/*@chat
--- Gerber by Opener (Leveled)
There are two sequences where Gerber might be used -- after 1m - 2N
or 2!C - 2N and opener has slam interest.  The 1m - 2N sequences are rare.
https://www.bridgebum.com/gerber.php
@chat*/

# These are sequences where 4C-Gerber might be bid by Opener

# Gerber by Opener
#
# 1m - 2N - ?
# 2C - 2N - ?

dealer south

#include "script/Calm-Opponents"
# Defines calmWest
#include "script/Predict-Opening-1-Bid"
# Defines oneClub, oneDiamond

#include "script/TP"
# Defines tpSouth

predeal north DQ,CQ
dQ = 1
cQ = 1
predeal south D75,C64

# Define suit quality for NT -- Qxx opener's suit and Kxx or QJx in unbid suits
#dQ = hcp(north,diamonds)>1   // 10-12 doesn't have room for 3-points in each suit
#cQ = hcp(north,clubs)>1
mK = hcp(north,hearts)>2 and hcp(north,spades)>2

# South opens a minor and North has any 4333 with 10-12 and honor(s)in every suit
s1C = oneClub    and clubs(south)>5     and top5(south,clubs)>2
s1D = oneDiamond and diamonds(south)>5  and top5(south,diamonds)>2
s1mShape = shape(south,any 83xx +any 74xx +any 65xx -5xxx -x5xx -4xxx -x4xx)       // south shape upgrades required for TP
s1mRange = hcp(south)<19 and losers(south)==4
n1mRange = hcp(north)>10 and hcp(north)<13      // north responds 2N (I hope!)
n1mShape = shape(north,any 4333 +any 4432 -4xxx -x4xx)

# South opens 1m and North responds 2N
s1m = (s1C or s1D) and s1mShape and s1mRange and mK  and n1mRange

# South opens 2C and north responds 2N
n2cRange = hcp(north)>7
n2cShape = shape(north,3343+3334+2344+3244)  // avoid Stayman after 2C - 2D - 2N
n2cQ     = hcp(north,clubs)>1 and hcp(north,diamonds)>1 and hcp(north,hearts)>1 and hcp(north,spades)>1

s2C = hcp(south)>21 and n2cRange and n2cShape and n2cQ 

# Now do it
(s1m and calmWest) or s2C

produce 30
action
printoneline,
average "1m - 2N  " 100 * s1m,
average "2C - 2N  " 100 * s2C,