R/gravity.R

In holdem: Texas Holdem Simulator

gravity <-
function(numattable1, crds1, board1,  round1, currentbet, 
    mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## all in with any pair of 10s or greater, 
    ## or AJ-AK, or suited connectors with lowest card a 10 or higher.
    ## if your chip count is less than twice the big blind, go all in 
    ## with any cards.
    a1 = 0
    if((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 9.5)) a1 = mychips1
    if((crds1[1,1] > 13.5) && (crds1[2,1]>10.5)) a1 = mychips1
    if((crds1[1,1]-crds1[2,1]==1) && (crds1[1,2] == crds1[2,2]) && 
	(crds1[2,1]>9.5)) a1 = mychips1
    if(mychips1 < 2*blinds1)  a1 = mychips1
    a1
} ## end of gravity