alias MakeDeck {
hmake Deck 5
var %Cards = 2,3,4,5,6,7,8,9,10,J,Q,K,A
var %Suit = H,D,S,C
var %cnt = 1
while (%cnt <= 13) {
var %cnt2 = 1
while (%cnt2 <= 4) {
hadd Deck $gettok(%Cards,%cnt,44) $+ $gettok(%Suit,%cnt2,44)
inc %cnt2
}
inc %cnt
}
}
alias DrawCard {
var %random.card = $rand(1,$hget(Deck,0).item)
var %card = $hget(Deck,%random.card).item
hdel Deck %card
echo -a You drew this card: %card -- Cards Remaining: $hget(Deck,0).item
}