# alias: XferAfter1MX
# button-text: Xfer after 1M (X)
# gib-works: false
# bba-works: true
# auction-filter: Auction.....\n1[HS] +X [12]. +
# convention-card-ns: 21GF-DEFAULT
# convention-card-ew: 21GF-GIB

/*@chat
--- Transfers after Opponents double our 1!H or 1!S
Transfers start at 1N and end at 2M-1; then skip to 3M-1.
  • 1N  --> 2!C
  • 2!C --> 2!D
  • 2!D --> 2!H
  • 2!H --> 2!S (only after 1!S opener)
With less than 3-card support: With 6+, bid 1!S or transfer to !C/!D/!H. With 11+/semi-balanced, XX.
With 3/4-card support raise (4-7) or transfer (8-10)+ to the 2-level w/3 or 3-level w/4.
With 5-card support and no slam interest, raise to game.
Transfers into a new suit show something like a weak 2 or better.
Transfer & raise is invitational.
https://www.nxtbook.com/acbl/bridgebulletin/2025_06/index.php#/p/66
@chat*/

# South opens 1 Major
dealer south

#include "script/GIB-1N"
# Defines gibNT

# South opens 1M
oneH = shape(south,x7xx + x6xx + x5xx -any 75xx -any 65xx -any 55xx)
oneS = shape(south,7xxx + 6xxx + 5xxx -any 75xx -any 65xx -any 55xx)
southM = (oneH or oneS) and not gibNT and hcp(south)>11 and hcp(south)<20

# West Doubles  // avoid any honor in short suit
wShort = (oneH and hearts(west)<3 and hcp(west,hearts)==0) or (oneS and spades(west)<3 and hcp(west,spades)==0)
wShape = shape(west,any 5440 +any 5431 +any 4441 +any 4432-5xxx-x5xx) // Exclude 5M to reduce overcalls
wHCP   = hcp(west)>11 and hcp(west)<15
westX  = wShort and wShape and wHCP

# North fits and xFit
n3 = (oneH and hearts(north)==3) or (oneS and spades(north)==3)
n4 = (oneH and hearts(north)==4) or (oneS and spades(north)==4)
n5 = (oneH and hearts(north)>4)  or (oneS and spades(north)>4)
xFit = not (n3 or n4 or n5)   // no fit

# North strengths
rWeak  = hcp(north)>3 and hcp(north)<7   // weak   Note: BBA rarely raises w/4-5 HCP
rConst = hcp(north)>6 and hcp(north)<10  // constructive
rInv   = hcp(north)>9 and hcp(north)<13  // invitational
rCI    = hcp(north)>6 and hcp(north)<13  // constructive plus

# Define North's actions w/o fit
XX = xFit and hcp(north)>10
S1 = xFit and rCI and spades(north)>3   and hcp(north,spades)>2 and oneH and not (XX)             // Redouble -- it's our hand
N1 = xFit and rCI and clubs(north)>4    and top5(north,clubs)>2          and not (XX or S1)       // Bid 1NT -- Transfer to 2C
c2 = xFit and rCI and diamonds(north)>4 and top5(north,diamonds)>2       and not (XX or S1 or N1) // Bid 2C -- Transfer to 2D
     //Note: In Dealer code,C2 refers to the 2 of Clubs; so, I can't use it in my code.

# Define North's actions w/fit
M4 = n5                                                // Bid 4M
X2 = n3 and rCI   and not (M4)                         // Transfer to 2M
M2 = n3 and rWeak and not (M4 or X2)                   // Bid 2M
N2 = n4 and rInv  and not (M4 or X2 or M2)             // Bid 2NT
M3 = n4 and rWeak and not (M4 or X2 or M2 or N2)       // Bid 3M
X3 = n4 and rCI   and not (M4 or X2 or M2 or N2 or M3) // Transfer to 3M

nActsWithFit    =  M4 or X2 or M2 or N2 or M3 or X3
nActsWithoutFit = XX or S1 or N1 or c2

# Now do it
southM and westX and (nActsWithFit or nActsWithoutFit)

action
average "----- NO FIT ----- " 100 * nActsWithoutFit,
average "10+ XX - penalty   " 100 * XX,
average "6+  1S - spades    " 100 * S1,
average "6+  1N - clubs     " 100 * N1,
average "6+  2C - diamonds  " 100 * c2,
average "------ FIT ------- " 100 * nActsWithFit,
average "4-7   w/3  2M      " 100 * M2,
average "4-7   w/4  xfr 2M  " 100 * M3,
average "8-10  w/3  3M      " 100 * X2,
average "8-10  w/4  xfr 3M  " 100 * X3,
average "????  w/5  4M      " 100 * M4,
average "11+        2NT     " 100 * N2,