## Projects are due by email to me, on Sunday, May 27, 8:00pm
## Rules:
## a) We will run several tournaments.
## Each will have 3 winners, with payouts of 13,8, and 5.
## b) Start with 1500 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
} ## 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

## MAKE TEAMS:

x = c("Dana", "Austin", "Ho", "Amy", "Ronald", "Yi", "Katherine",
"Jennie", "Wesley", "Brian", "Joseph", "Keren", "Daniel", "Michael",
"Santino", "Hanna", "Zesheng", "Kyleigh", "Jeffrey", "Richard", "Kelly")

n = length(x)

name1 = c("a","b","c","d","e","f","g","h","i","j")

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

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")
decision1 = list(gravity, tommy, ursula) 
tourn1(name1, decision1, myfast1 = 0) ## run slowly

 a Yi Jeffrey
 b Hanna Keren
 c Michael Brian
 d Daniel Kelly
 e Kyleigh Amy
 f Wesley Richard
 g Ho Katherine
 h Zesheng Santino
 i Joseph Jennie
 j Dana Austin  Ronald