Shell Programming and Scripting

#!/bin/bash

UNPICKED=0
PICKED=1

DUPE_CARD=99

LOWER_LIMIT=0
UPPER_LIMIT=51
CARDS_IN_SUIT=13
CARDS=52

declare -a Deck
declare -a Suits
declare -a Cards

initialize_Deck ()
{
i=$LOWER_LIMIT
until [ "$i" -gt $UPPER_LIMIT ]
do
  Deck[i]=$UNPICKED   # Set each card of "Deck" as unpicked.
  let "i += 1"
done
echo
}

initialize_Suits ()
{
Suits[0]=C #Clubs
Suits[1]=D #Diamonds
Suits[2]=H #Hearts
Suits[3]=S #Spades
}

initialize_Cards ()
{
Cards=(2 3 4 5 6 7 8 9 10 J Q K A)
}

pick_a_card ()
{
card_number=$RANDOM
let "card_number %= $CARDS"
if [ "${Deck[card_number]}" -eq $UNPICKED ]
then
  Deck[card_number]=$PICKED
  return $card_number
else  
  return $DUPE_CARD
fi
}

parse_card ()
{
number=$1
let "suit_number = number / CARDS_IN_SUIT"
suit=${Suits[suit_number]}
echo -n "$suit-"
let "card_no = number % CARDS_IN_SUIT"
Card=${Cards[card_no]}
printf %-4s $Card
}

seed_random ()  
{               
seed=`eval date +%s`
let "seed %= 32766"
RANDOM=$seed
}

deal_hole ()
{
echo

cards_picked=0
while [ "$cards_picked" -le 1 ]
do
  pick_a_card
  t=$?

  if [ "$t" -ne $DUPE_CARD ]
  then
    parse_card $t

    u=$cards_picked+1
    let "u %= $CARDS_IN_SUIT"
    if [ "$u" -eq 0 ]   
    then
     echo
     echo
    fi
    
    let "cards_picked += 1"
    fi  
done  
}

deal_flop ()
{
echo

cards_picked=0
while [ "$cards_picked" -le 2 ]
do
  pick_a_card
  t=$?

  if [ "$t" -ne $DUPE_CARD ]
  then
    parse_card $t

    u=$cards_picked+1
    let "u %= $CARDS_IN_SUIT"
    if [ "$u" -eq 0 ]   
    then
     echo
     echo
    fi
    
    let "cards_picked += 1"
    fi  
done  
}

deal_turn ()
{
echo

cards_picked=0
while [ "$cards_picked" -le 0 ]
do
  pick_a_card
  t=$?

  if [ "$t" -ne $DUPE_CARD ]
  then
    parse_card $t

    u=$cards_picked+1
    let "u %= $CARDS_IN_SUIT"
    if [ "$u" -eq 0 ]   
    then
     echo
     echo
    fi
    
    let "cards_picked += 1"
    fi  
done  
}

deal_river ()
{
echo

cards_picked=0
while [ "$cards_picked" -le 0 ]
do
  pick_a_card
  t=$?

  if [ "$t" -ne $DUPE_CARD ]
  then
    parse_card $t

    u=$cards_picked+1
    let "u %= $CARDS_IN_SUIT"
    if [ "$u" -eq 0 ]   
    then
     echo
     echo
    fi
    
    let "cards_picked += 1"
    fi  
done  
}
####
seed_random
initialize_Deck
initialize_Suits
initialize_Cards
player1hand=`deal_hole`
player2hand=`deal_hole`
flop=`deal_flop`
turn=`deal_turn`
river=`deal_river`

clear

echo -n "What is player 1's name? "; read player1
echo -n "What is player 2's name? "; read player2

echo "$player1hand"
echo "$player2hand"
echo "$flop"
clear
echo "$flop $turn"
clear
echo "$flop $turn $river"

echo "$player1's hand was $player1hand and $player2's hand was $player2hand"

exit 0

### Functions defined as above
deal_hole 2>&1 | tee -a player1hand
...
echo "Player 1's hand was `cat player1hand`"

shuffle() #@ USAGE: shuffle
{ #@ TODO: add options for multiple or partial decks
 Deck=$(
   printf "%s\n" {1,2,3,4,5,6,7,8,9,J,Q,K,A}_{Hearts,Spades,Diamonds,Clubs} |
    awk '## Seed the random number generator
         BEGIN { srand() }

         ## Put a random number in front of each line
         { printf "%.0f\t%s\n", rand() * 99999, $0 }
    ' |
     sort -n |  ## Sort the lines numerically
      cut -f2  ## Remove the random numbers
  )
}

_deal() #@ USAGE: _deal [N] -- where N is no. of cards; defaults to 1
{       #@ RESULT: stored in $_DEAL
    local num=${1:-1}
    set -- $Deck
    _DEAL=${@:1:$num}
    shift "$num"
    cards_remaining=$#
    Deck=$*
}

deal() #@ USAGE: deal [N]
{      #@ RESULT: cards printed one to a line
    _deal "$@"
    printf "%s\n" $_DEAL
}

## Sample run
shuffle
deal 2
echo
deal 3
echo
deal

K_Hearts
A_Clubs

3_Clubs
6_Clubs
2_Hearts

5_Clubs