# alias: StaymanX
# button-text: X Stayman
# gib-works: true
# bba-works: true
# auction-filter: Auction.....\n1N +Pass +2C.* X
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
--- Opponents X Stayman
@chat*/

# Opponents Double Stayman
dealer south
produce 1000

# Define South's NT opening -- robot style
sNT = shape(south, any 4333 +any 4432 +any 5332-5xxx-x5xx) and hcp(south)>14 and hcp(south)<18

# North responds 2C -- w/45xx GIB transfers to H and bids S
n2C = shape(north, 54xx+44xx+43xx+34xx+42xx+24xx) and hcp(north)>8

# East doubles
oneSuit = shape(east,any 7xxx+any 6xxx+any 5xxx-any 75xx-any 66xx-any 65xx-any 55xx)
eDoubles = ((clubs(east)>4 and top4(east,clubs)==3) or (clubs(east)>5 and top4(east,clubs)==2)) and hcp(east)>8 and oneSuit

#include "script/Leveling"

# Reduce long club suits
lev5 = clubs(east)==5 and keep
levMore = clubs(east)>5 and keep44
levelTheDeal = lev5 or levMore

sNT and n2C and eDoubles
and levelTheDeal

action

average "South hcp    " hcp(south),
average "North hcp    " hcp(north),
average "East Clubs=5 " 100 * (clubs(east)==5),
average "East Clubs>5 " 100 * (clubs(east)>5),