ACJ <- function(numattable1, crds1, board1, round1, currentbet, mychips1, pot1, roundbets, blinds1, chips1, ind1, dealer1, tablesleft){
	# all in with pocket pair of Queens, Kings, or Aces
	# all in with AK of any suits
	# all in with AQ, AJ, A10 if same suit and noone else is all in yet
	# all in with KQ if same suit and noone else is all in yet
	# all in with any pocket pair if only 1-2 players left to play and nobody is all in yet
	# all in if chip count less than 3 times the big blind with any cards
	a1 = 0
	if((crds1[1,1] == crds1[2,1]) & (crds1[1,1] >= 12)) a1 = mychips1
	if(crds1[1,1] == 14 & crds1[2,1] == 13) a1 = mychips1
	if(currentbet <= blinds1){
		if(crds1[1,1] == 14 & crds1[2,1] >= 10 & crds1[1,2] == crds1[2,2]) a1 = mychips1
		if(crds1[1,1] == 13 & crds1[2,1] == 12 & crds1[1,2] == crds1[2,2]) a1 = mychips1
		}
	big.blind <- dealer1 + 2
	if(big.blind > numattable1) big.blind <- big.blind - numattable1
	players.left <- big.blind - ind1
	if(players.left < 0) players.left <- players.left + numattable1
	if(currentbet <= blinds1){
		if((players.left <= 2) && (crds1[1,1] == crds1[2,1])) a1 = mychips1
		}
	if(mychips1 < 3 * blinds1) a1 = mychips1
	a1
}