# alias: Benjamin2D
# button-text: Benjamin 2 Bids (Lev)
# gib-works: false
# bba-works: true
# auction-filter: Auction.....\n2[CD] +
# convention-card-ns: 21GF-PolishTwoSuiters
# convention-card-ew: 21GF-GIB

/*@chat
--- Benjamin 2 Bid - 2!C strong & 2!D Game Forcing
• 2!C shows 18-19 w/very strong 2-suiter, 20-22 unbalanced w/very good suit, or 23-24 bal, responses are...
  • 2!D 7-HCP, continue by bidding 4-card suits up the line
  • 2!H 5+HCP and 5+!H
  • 2!S 5+HCP and 5+!S
  • 2NT 8+HCP and balanced hand 
• 2!D shows 23+ unbalanced or 24+ balanced -- GAME FORCE, responses are...
  • 2NT 5-HCP, no 5-card major
  • 2!H/!S 5+!H/!S
  • 3!C/!D 6+!C/!D
This is leveled so that 2!C and 2!D occur at about the same frequency.
https://en.wikipedia.org/wiki/Benjamin_Twos
@chat*/

# Game Forcing Benjamin 2D
dealer south

gC = clubs(south)>4    and top3(south,clubs)==3    or top5(south,clubs)==4
gD = diamonds(south)>4 and top3(south,diamonds)==3 or top5(south,diamonds)==4
gH = hearts(south)>4   and top3(south,hearts)==3   or top5(south,hearts)==4
gS = spades(south)>4   and top3(south,spades)==3   or top5(south,spades)==4

suits1 = gC or gD or gH or gS
suits2 = (gC and gD) or (gC and gH) or (gC and gS) or (gD and gH) or (gD and gS) or (gH and gS)

oneSuit = suits1 and shape(south,any 8xxx +any 7xxx +any 6xxx)
twoSuit = suits2 and shape(south,any 76xx +any 75xx +any 66xx +any 65xx +any 55xx)
bal = not (twoSuit or oneSuit)

s2C2S = hcp(south)>17 and hcp(south)<25 and twoSuit
s2C1S = hcp(south)>19 and hcp(south)<25 and oneSuit and not twoSuit
s2CB = hcp(south)>22 and hcp(south)<25 and bal
s2DU = hcp(south)>23 and not bal
s2DB = hcp(south)>24 and bal

twoC = s2C2S or s2C1S or s2CB
twoD = s2DU or s2DB

#include "script/Leveling"

levs2C2S = s2C2S and keep
levs2C1S = s2C1S and keep11
levs2CB  = s2CB  and keep11

levs2DU = s2DU and keep
levs2DB = s2DB and keep19
levelTheDeal = levs2C2S or levs2C1S or levs2CB or levs2DU or levs2DB

# Now do it
(s2C1S or s2C2S or s2CB or s2DU or s2DB)
and levelTheDeal

action printoneline,
average "C 1-suit" 100 * s2C2S,
average "C 2-suit" 100 * s2C1S,
average "C bal   " 100 * s2CB,
average "Open 2C " 100 * twoC,

average "D unbal " 100 * s2DU,
average "D bal   " 100 * s2DB,
average "open 2D " 100 * twoD,