## Projects are due by email to me, on Sat Nov 26 8pm,
## to frederic@stat.ucla.edu .
## Rules:
## a) We will run several tournaments.
## Each will have 3 winners, with payouts of 13,8, and 5.
## b) Start with 1000 chips each, and blinds of 10 and 20.
## c) Small blind = 1/2 big blind (rounded to nearest integer).
## d) Blinds last 10 hands, then increase by 50 percent. (rounded)

## Examples:
tommy = function(numattable1, crds1, board1,  round1, currentbet, 
mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
     ## all in with any pair.
     a1 = 0
     if(crds1[1,1] == crds1[2,1]) a1 = mychips1
     a1
} ## end of tommy

ursula = function(numattable1, crds1, board1,  round1, currentbet, 
mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
     ## if pair of 9s or better, then all in
     a1 = 0
     if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 8.5)) a1 = mychips1
     a1
} ## end of ursula

william = function (numattable1, crds1, board1, round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft) 
{
    a1 = 0
    if (mychips1 < 3 * blinds1)  a1 = mychips1
    if ((crds1[1, 1] == 14) && (crds1[2, 1] == 14)) a1 = mychips1
    if ((crds1[1, 1] == 10) && (crds1[2, 1] == 9)) {
        u = runif(1)
        if (u < 0.4)  a1 = mychips1
        if (u >= 0.4)  a1 = 0
       }
    if (currentbet == blinds1) a1 = mychips1
    if ((crds1[1, 1] == crds1[2, 1])&&(crds1[1, 1] >11.5)&&(numattable1 < 10)) a1 = mychips1
    a1
}

## MAKE TEAMS:

x = c("daniel", "christian", "sheldon", "justind", "adam",
"george", "andrew", "tecpatl", "justinl","emma","rachel","liliana",
"aria","you","candice","bingru","krista","terry","patrick","nicholas")

n = length(x)

teams = function(){
y = x[sample(n)]
for(i in 1:(n/2)){
cat("\n", i, y[(2*i-1):(2*i)])
}
}

teams()

install.packages("holdem")
library(holdem)
name1 = c("gravity","tommy","ursula","timemachine","vera","william","xena")
decision1 = list(gravity, tommy, ursula, timemachine, vera, william, xena) 
tourn1(name1, decision1, myfast1 = 2) ## run quickly
name1 = c("gravity","tommy","ursula","vera")
decision1 = list(gravity, tommy, ursula,vera) 
tourn1(name1, decision1, myfast1 = 0) ## run slowly