# aceswild      ben andy
# bsammike      sam michael
# checkraise    steven kevinvallee
# elephant      ross kwan
# fillivey      myley chris
# gambler       eric royen
# hellyeah      emilyfu scott
# ilovepoker    shang jingjing
# jcardshark    nick joseph
# krispykreme   victor jay
# malibooty     kevinfujii emilykosko


aceswild=function(numattable1, crds1, board1,  round1, 
    currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
# if any pair of 9 or higher, go all in
# if any pair of less than 9, go all in with 70% probability
# if two cards of the same suit, go all in with 75% probability
# if there is one ace, go all in
# if two consecutive cards, go all in with 80% probability
# if two consecutive cards of same suit, go all in
# if two cards that are two away from each other, go all in with 50% probability
# if one of the cards is T or higher, go all in with 40% probability
x=runif(1)
a1=0
if ((crds1[1,1] == crds1[2,1]) && (crds1[1,1] >= 9))
	a1=mychips1
if (((crds1[1,1] == crds1[2,1]) && crds1[1,1] < 9 ) && x <= 0.7)
	a1=mychips1
if ((crds1[1,2] == crds1[2,2]) && x <= 0.75)
	a1=mychips1
if ((crds1[1,1] == 14) || (crds1[2,1]==14))
	a1=mychips1
if ((crds1[1,1] - 1 == crds1[2,1]) && x <= 0.8)
	a1=mychips1
if ((crds1[1,1] - 1 == crds1[2,1]) && (crds1[1,2] == crds1[2,2]))
	a1=mychips1
if ((crds1[1,1] - 2 == crds1[2,1]) && x <= 0.5)
	a1=mychips1
if ((crds1[1,1] > 9 || crds1[2,1] > 9) && x <= 0.4)
	a1=mychips1
a1
} ## end of aceswild: ben & andy



bsammike = function(numattable1, crds1, board1,  round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
## any pair 10 or higher
## Lowest card is above J
## A9-AK
## Suited connectors above 7, P=.4
##     ... and if there are 2 or fewer players left behind you,
##              then go all in with any pair or any ace with a 7 or higher.
##     ... and there's only 1 player behind you,
##              then go all in with any cards above 6.
a1 = 0
x = runif(1)
y = max(roundbets[,1])
big1 = dealer1 + 2
    if(big1 > numattable1) big1 = big1 - numattable1
    z = big1 - ind1
if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 9.5)) a1 = mychips1
if(((crds1[1,1] > 10.5) && (crds1[2,1]>10.5))) a1 = mychips1
if(((crds1[1,1] > 13.5) && (crds1[2,1]>8.5))) a1 = mychips1
if((crds1[1,1]-crds1[2,1]==1) && (crds1[1,2] == crds1[2,2]) && crds1[1,1] > 7.5 && (x<.50)) a1 = mychips1

if(y <= blinds1){
          if((z < 2.5) && ((crds1[1,1] == crds1[2,1]) || (crds1[1,1] == 14) && (crds1[2,1] > 6.5))) a1 = mychips1
	  if((z < 1.5) && ((crds1[1,1] > 6.5) && (crds1[2,1]>6.5))) a1 = mychips1
	  }

    a1
} ## end of bsammike: sam & mike



checkraise = function(numattable1, crds1, board1,  round1, currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## if pair of 10s or higher, all in.
    ## if both cards are higher than 10 and suited, all in.
## if pair of 7s or higher and there are 6 or fewer players
##      at your table (including you), then all in.
## if pair of 5s or higher and there are 4 or fewer players
##      at your table (including you), then all in.
    ## if suited connectors and low card is greater than 6 and there are 6 or fewer players
    ##      at your table, then all in.
## if your chip count is less than twice the big blind, go all in with any cards.
## if your chip count is less than three times the big blind, go all in with any ace or any ace.
## if pair of 2s or higher and there are 3 or fewer players at your table (including you), then all in.
## if AK or AQ all in.
## if AJ or A10, all in probability 67%
    ## if nobody's raised yet:
    ##      and if there are 2 or fewer players left behind you,
    ##          then go all in with any pair or any ace.

    a1 = 0
    x = runif(1)               ## x is a random number between 0 and 1.
    y = max(roundbets[,1])     ## y is the maximum bet so far.
    big1 = dealer1 + 2
    if(big1 > numattable1) big1 = big1 - numattable1
    z = big1 - ind1
    if(z<0) z = z + numattable1
    ## the previous 4 lines make it so z is the number of players left to act behind you
    if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 9.5)) a1 = mychips1
    if((crds1[1,1] == 10.5) && (crds1[1,2]>10.5) && (crds1[2,1] == crds1[2,2])) a1 = mychips1
if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 6.5) && (numattable1 < 6.5)) a1 = mychips1
if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 4.5) && (numattable1 < 4.5)) a1 = mychips1
if((crds1[2,1] > 5.5) && (crds1[1,1] == crds1[2,1] + 1) && (numattable1 < 6.5)) a1 = mychips1
if((mychips1 < 3*blinds1) && (crds1[1,1] > 12.5)) a1 = mychips1
if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 1.5) && (numattable1 < 3.5)) a1 = mychips1
if((crds1[1,1] == 14) && (crds1[1,2]>11.5)) a1 = mychips1
if((crds1[1,1] == 14) && (crds1[1,2]>9.5) && (x<.67)) a1 = mychips1
    if(mychips1 < 2*blinds1) a1 = mychips1
    if(y <= blinds1){
          if((z < 2.5) && ((crds1[1,1] == crds1[2,1]) || (crds1[1,1] == 14))) a1 = mychips1
	  }
    a1
} ## end of checkraise: steven and kevin vallee


elephant = function(numattable1, crds1, board1, round1, currentbet, 
    mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
## if pair of  eights or better, then allin
## if ace and any card higher than ten, then allin
## if ace or king and any card higher than jack is suited, allin
a1 = 0
if (((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 7.5)) || ((crds1[1,1] > 13.5) && 
    (crds1[2,1]>9.5)) || ((crds1[1,1] > 12.5) && (crds1[2,1]>10.5) && 
(crds1[1,2] == crds1[2,2]))) a1 = mychips1
a1
}
## end of elephant: ross & kwan




fillivey = function(numattable1, crds1, board1,  round1, currentbet, mychips1,
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
## go all in with any pair 9 or higher, AK, AQ
## AJ, KQ, 77, 88 if no one is all in yet
## if less than 5 times the big blind, go all in if 1st card is 10 or higher and 2nd card is 9 or higher, or any pair
## if nobody's raised yet, and on the button go all in with A8 or greater
a1 = 0
x = runif(1)
y = max(roundbets[,1])
big1 = dealer1 + 2
if(big1 > numattable1) big1 = big1 - numattable1
z = big1 - ind1
if(z<0) z = z + numattable1
if((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 8.5)) a1 = mychips1
if((crds1[1,1] == 14) && (crds1[2,1] > 11.5)) a1 = mychips1
if((crds1[1,1] == 14) && (crds1[2,1] == 11) && (currentbet <= blinds1)) a1 = mychips1
if((crds1[1,1] == 13) && (crds1[2,1] == 12) && (currentbet <= blinds1)) a1 = mychips1
if((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 6.5) && (currentbet <= blinds1)) a1 = mychips1
if((mychips1 < 5*blinds1) && (crds1[1,1] >= 10) && (crds1[2,1] >= 9)) a1 = mychips1
if((mychips1 < 5*blinds1) && (crds1[1,1] == crds1[2,1])) a1 = mychips1
if(y <= blinds1){
	if((z < 1.5) && ((crds1[1,1] == 14) && (crds1[2,1] > 7.5))) a1 = mychips1
	}
a1
} ## end of fillivey: myley & chris


gambler = function(numattable1, crds1, board1,  round1, currentbet,
mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
a1 = 0
#Any Pocket Pair
 if(crds1[1,1] == crds1[2,1]) a1 = mychips1
#AT or higher
if((crds1[1,1] == 14) && (crds1[2,1]  > 9.5)) a1 = mychips1
#78 suited or higher
if((crds1[1,2] == crds1[2,2]) && (crds1[1,1] - crds1[2,1] == 1)) a1 = mychips1
# if nobody has raised yet, and the lowest card is 9 or greater, and there
# are 1 or 2 players behind, go all in with any cards
    big1 = dealer1 + 2
    if(big1 > numattable1) big1 = big1 - numattable1
    z = big1 - ind1
    if(z<0) z = z + numattable1
    y = max(roundbets[,1])
if((y<= blinds1) && (z <2.5) && (crds1[2,1] > 8.5)) a1 = mychips1
a1
} #end of gambler: eric & royen





hellyeah = function(numattable1, crds1, board1,  round1, currentbet, 
    mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
	## any pair 9s or higher
	## any suited cards J or higher
## if your chip count is less than three times the big blind, go ##  all in with any cards.
## Suited connectors go all in with Prob. 10%
a1=0
x = runif(1)
if((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 8.9)) a1 = mychips1
if((crds1[1,2] == crds1[2,2]) && (crds1[1,1] > 10) && (crds1[2,1] >10)) a1 = mychips1
if(mychips1 < 3*blinds1) a1 = mychips1
if((crds1[1,1]-crds1[2,1]==1) && (crds1[1,2] == crds1[2,2]) && (x<.1)) a1 = mychips1
a1
} ## end of hellyeah: emilyfu & scott



ilovepoker = function(numattable1, crds1, board1,  round1, currentbet,
mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1,
tablesleft){
	## any pairs 7 or higher OR
	## AK, AQ, AJ, AT OR
	## suited connectors
a1 = 0
x = runif(1)
if(((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 6.5)) || ((crds1[1,1]
== 14) && (crds1[2,1] > 9.5))||((crds1[1,1]-crds1[2,1]==1) &&
(crds1[1,2] == crds1[2,2]))) a1=mychips1
a1
} ## end of ilovepoker: shang & jingjing

jcardshark = function(numattable1, crds1, board1,  round1, currentbet, mychips1, 
    pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
	## any pocket pair
	## AK, AQ, AJ, A10
	## KQ, KJ, QJ
	## suited connectors above eight with 75%
a1=0
x=runif(1)
if((crds1[1,1]>13.5) && (crds1[2,1] > 9.5)) a1=mychips1
if((crds1[1,1]>12.5) && (crds1[2,1] > 10.5)) a1=mychips1
if( ( (crds1[1,1]-crds1[2,1])==1) && (crds1[1,2]==crds1[2,2]) && (crds1[1,1]>7.5) && (x>=0.75) ) a1=mychips1
a1
} #end of jcardshark: nick & joseph


krispykreme = function(numattable1, crds1, board1, round1, 
    currentbet, mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
a1 = 0
##all-in for pair 10 or higher or any combination of face cards
if((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 9.5)) a1 = mychips1
if((crds1[1,1] > 10.5) && (crds1[2,1] > 10.5)) a1 = mychips1
a1
} ## end of krispykreme: victor & jay



malibooty = function(numattable1, crds1, board1,  round1, currentbet, 
    mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
## go all-in with any pocket pair, or any combination of T-A
## go all-in with 80% probability if suited connector
a1 = 0
x = runif(1)
if((crds1[1,1] == crds1[2,1]) || ((crds1[1,1] > 9.5) && (crds1[2,1]>9.5))) a1 = mychips1
if((crds1[1,1]-crds1[2,1]==1) && (crds1[1,2] == crds1[2,2]) && (crds1[1,1] < 10.5) && 
    (crds1[2,1] < 9.5) && (x<.80)) a1 = mychips1
a1
} ## end of malibooty: kevinfujii & emilykosko





timemachine = function(numattable1, crds1, board1,  round1, currentbet, 
    mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
	## any pair 7 or higher
	## AK, AQ
	## AJ if nobody's all in yet.
	## if less than 3 times bb & one card is Ten or higher, then 75%
 a1 = 0
 x = runif(1)
 if((crds1[1,1] == crds1[2,1]) && (crds1[1,1] > 6.5)) a1 = mychips1
 if((crds1[1,1] == 14) && (crds1[2,1] > 11.5)) a1 = mychips1
 if((crds1[1,1] == 14) && (crds1[2,1] == 11) && 
     (currentbet <= blinds1)) a1 = mychips1
 if((mychips1 < 3*blinds1) && (crds1[1,1] >= 10) && (x<.75)) a1 = mychips1
a1
} ## end of timemachine

unbeatable1 = function(numattable1, crds1, board1,  round1, currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## any pair, or AT-AK,
	a1 = 0
    if((crds1[1,1] == crds1[2,1]) || ((crds1[1,1] > 13.5) && (crds1[2,1]>9.5))) a1 = mychips1
    a1
} ## end of unbeatable


version2 = function(numattable1, crds1, board1,  round1, currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## any pair, or AT-AK, or suited connectors
	a1 = 0
    if((crds1[1,1] == crds1[2,1]) || ((crds1[1,1] > 13.5) && (crds1[2,1]>9.5)) ||
      ((crds1[1,1]-crds1[2,1]==1) && (crds1[1,2] == crds1[2,2]))) a1 = mychips1
    a1
} ## end of unbeatable



wilma = function(numattable1, crds1, board1,  round1, currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## if pair of 9s or 10s, all in with probability 35%
    ## if higher pair, all in with prob. 50%
    a1 = 0
    x = runif(1)
    if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 8.5) && (crds1[2,1]<10.5) && (x<.35)) a1 = mychips1
    if((crds1[1,1] == crds1[2,1]) && (crds1[2,1]>10.5) && (x<.50)) a1 = mychips1
    a1
} ## end of wilma



xena = function(numattable1, crds1, board1,  round1, currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## if any pair, suited anything, or if the smaller card is at least 9, then all in
    a1 = 0
    if((crds1[1,1] == crds1[2,1]) || (crds1[1,2] == crds1[2,2]) || (crds1[2,1] > 8.5)) a1 = mychips1
    a1
} ## end of xena




yolanda = 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 yolanda



zebra = function(numattable1, crds1, board1,  round1, currentbet, mychips1, pot1,
    roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
    ## if pair of 10s or higher, all in for sure, no matter what.
    ## if AK or AQ, all in with probability 75%.
    ## if pair of 7s or higher and there are 6 or fewer players 
    ##      at your table (including you), then all in. 
    ## if your chip count is less than twice the big blind, go all in with any cards.
    ## if nobody's raised yet:
    ##     ... and if there are 3 or fewer players left behind you,
    ##              then go all in with any pair or any ace.
    ##     ... and there's only 1 or 2 players behind you,
    ##              then go all in with any cards.
    
    a1 = 0
    x = runif(1)               ## x is a random number between 0 and 1.
    y = max(roundbets[,1])     ## y is the maximum bet so far.
    big1 = dealer1 + 2
    if(big1 > numattable1) big1 = big1 - numattable1
    z = big1 - ind1
    if(z<0) z = z + numattable1 
    ## the previous 4 lines make it so z is the number of players left to act behind you.
    if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 9.5)) a1 = mychips1
    if((crds1[1,1] == 14) && (crds1[1,2]>11.5) && (x<.75)) a1 = mychips1
    if((crds1[1,1] == crds1[2,1]) && (crds1[2,1] > 6.5) && (numattable1 < 6.5)) a1 = mychips1
    if(mychips1 < 2*blinds1) a1 = mychips1
    if(y <= blinds1){
          if((z < 3.5) && ((crds1[1,1] == crds1[2,1]) || (crds1[1,1] == 14))) a1 = mychips1
	  if(z < 2.5) a1 = mychips1
	  }
    a1
} ## end of zebra