holdem (version 1.2)

hand1: Play a hand of Texas Hold'em

Description

Used in tourn1() to play a single hand of Texas Hold'em.

Usage

hand1(numattable1, playerseats1, chips1, blinds1, dealer1, ntable1, 
myfast1, t1, t2, chipstart1, lowercut1, decision1, 
name1 = c("vera","william","xena","yosef","zelda"))

Arguments

numattable1

number of players at the table

playerseats1

list of indices, who's in seat 1, seat 2, etc.

chips1

list of chips left, for players at this table only.

blinds1

vector of small and big blind

dealer1

seat that the dealer is in

ntable1

how many tables remain in the tournament

myfast1

2 = fast, or 0 = slow, i.e. 2 means it will not show the hand graphically.

t1

probability of showing the hand graphically if there is a double up

t2

probability of showing the hand graphically if there is an elimination

chipstart1

starting number of chips everyone has

lowercut1

lower plotting threshold for a player's number of chips (the y axis)

decision1

a vector of the players' codes

name1

names of the players

Value

chips2

how many chips everyone has after the hand

draw1

2 if the hand is to be shown graphically, or 0 if not

%% ...

Examples

# NOT RUN {
##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function(numattable1, playerseats1, chips1, blinds1, dealer1, 
ntable1,myfast1,t1,t2,chipstart1,lowercut1, decision1){
    ## numattable1 = number of players at the table
    ## playerseats1 = list of indices, who's in seat 1, seat 2, etc.
    ## chips1 = list of chips left, FOR PLAYERS AT THIS TABLE ONLY!
    ## blinds = vector of small and then big blind
    ## dealer1 = seat that the dealer is in.    
    ## ntable1 = how many tables remain.
    chips2 = chips1 ## this will be the revised chips counts, at the end
    if(numattable1 < 1.5) return(chips2)  
          ## want to return other stuff too, liks who's left?
          ## No need... can do that within main loop. Just check for zeros.
    b3 = deal1(numattable1)
    b4 = bid1(numattable1,playerseats1, chips1, blinds1, dealer1, b3, ntable1, decision1)
    # cat("\n...",b4$bl1,"\n....",b4$il1,"\n")
    b5 = bid2(numattable1,playerseats1, blinds1, dealer1, b3,b4,2, ntable1, decision1)
    b6 = bid2(numattable1,playerseats1, blinds1, dealer1, b3,b5,3, ntable1, decision1)
    b7 = bid2(numattable1,playerseats1, blinds1, dealer1, b3,b6,4, ntable1, decision1)
    chips2 = calcwin1(numattable1,playerseats1, b3, b7) 
    draw1 = 0
    u21 = runif(1)
    if(((max(chips2/(chips1+.01)) > 1.99) && 
    (u21 < t1)) || ((max(chips1/(chips2+.01)) > 99) && (u21 < t2))) {
	if(myfast1 < 1) {
	    text(1,lowercut1,"click to continue",cex=.7)
	    locator(1)
	}
	mygraphics1(numattable1,playerseats1,chips1,blinds1,dealer1,
	b3,b4,b5,b6,b7,chips2,ntable1,myfast1,chipstart1,
		    name1,lowercut1) 
	draw1 = 2
    }
    list(chips2=chips2,draw1=draw1)
  }  ## end of hand1
# }