# alias: WeakTwoBidsLev
# button-text: (Lev)
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n2[DHS]
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
--- Weak Two Bids without 4-card major - Leveled
Opener has a 6-card suit without a 4-card side major, no voids, 6+ TP,
5-10 HCP. Matches GIB robot opening requirements. This script is leveled.
Meaning that responder is equally likely to have a pass, raise, invite, or force.
https://www.bridgebum.com/weak_two.php
@chat*/

dealer south

# Define South's Weak 2 Bids w/o 4-card major side suit
# Matches GIB requirements: 6 suit, 1-3 side suits (1-4 clubs),
# no 4-card side major, 5-10 HCP

#include "script/TP"

noVoid = not shape(south, any 0xxx)
w2s = spades(south)==6   and hearts(south)<=3 and diamonds(south)<=3 and clubs(south)<=4 and noVoid and top5(south,spades)>2
w2h = hearts(south)==6   and spades(south)<=3 and diamonds(south)<=3 and clubs(south)<=4 and noVoid and top5(south,hearts)>2
w2d = diamonds(south)==6 and spades(south)<=3 and hearts(south)<=3   and clubs(south)<=4 and noVoid and top5(south,diamonds)>2

w2Range = tpSouth>6 and hcp(south)<11

weakTwo = (w2s or w2h or w2d) and w2Range

# Define responders hand types

# Responder Raises
sFit = w2s and spades(north)>2
hFit = w2s and hearts(north)>2
dFit = w2s and diamonds(north)>2
fit = sFit or hFit or dFit

# Define Feature -- an Ace or King outside the trump suit
sAK = top2(south,spades)==1 and not sFit
hAK = top2(south,hearts)==1 and not hFit
dAK = top2(south,diamonds)==1 and not dFit
cAK = top2(south,clubs)==1
oHonor = (sAK or hAK or dAK or cAK)

rPass = hcp(north)<15 and not fit
rRaise = fit and hcp(north)<14               // Extend the preempt
rInvite = fit and hcp(north)>13              // 2N
rForce = hcp(north)>16 and not rInvite       // Do something

# Responder bids new suit
rGS = (spades(north)==5 && top5(north,spades)>3) or (spades(north)>5 and top5(north,spades) >2)
rGH = (hearts(north)==5 && top5(north,hearts)>3) or (hearts(north)>5 and top5(north,hearts) >2)
rGD = (diamonds(north)==5 && top5(north,diamonds)>3) or (diamonds(north)>5 and top5(north,diamonds) >2)
rGC = (clubs(north)==5 && top5(north,clubs)>3) or (clubs(north)>5 and top5(north,clubs) >2)
rGSuit = rGS or rGH or rGD or rGC
rNewSuit = rForce and rGSuit

# Opener shows feature
oFeature = rInvite and hcp(south)>8 and oHonor

# Opener rebids suit
oRebid = rInvite and not oFeature

#include "script/Leveling"

# Level the deal
case1 = rPass and keep11
case2 = rRaise and keep19
case3 = rInvite and keep56
case4 = rForce and keep
levelTheDeal = (case1 or case2 or case3 or case4)

# do it
weakTwo
and levelTheDeal

action
average "Responder pass          " 100 * rPass,
average "Responder raise         " 100 * rRaise,
average "Responder invite        " 100 * rInvite,
average "Responder force         " 100 * rForce,

average "2NT/Opener rebids major " 100 * oRebid,
average "2NT/Opener shows feature" 100 * oFeature,
average "New suit response       " 100 * rNewSuit,
average "Trump fit               " 100 * fit,