# alias: ExclusionStaJac
# button-text: Exclusion Sta/Jac
# gib-works: false
# bba-works: true
# auction-filter: Note....Exclusion
# convention-card-ns: 21GF-SPECIALS2
# convention-card-ew: 21GF-GIB

/*@chat
--- Exclusion Blackwood after Stayman or Jacoby
Leveled for Stayman vs Jacoby.
@chat*/

dealer south
produce 1000

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

hFit4 = hearts(north)==4 and hearts(south)>3   // 4-4 or 4-5
sFit4 = spades(north)==4 and spades(south)>3
hFit5 = hearts(north)==5 and hearts(south)>2   // 5-3, 5-4, or 5-5
sFit5 = spades(north)==5 and spades(south)>2
jac = shape(north, 5xxx + x5xx -54xx -45xx)    // exclude smolen
jacFit = jac and (hFit5 or sFit5)
sta = shape(north, 4xxx + x4xx)                // includes smolen
staFit = sta and (hFit4 or sFit4)

#include "script/Leveling"

# Define Leveling
case1  = jacFit    and keep70
case2  = staFit    and keep
levelTheDeal = case1 or case2

# Do it
gibNT and hcp(north)>13 and shape(north,any 0xxx) and (case1 or case2)
and levelTheDeal

action
average "Jac + Fit " 100 * jacFit,
average "Sta + Fit " 100 * staFit,
average "hcp south " hcp(south),