scrabble by mail

scrabble.sh

#!/bin/bash

case "${1:-help}" in
inspect)
  cat bag|openssl aes-256-cbc -a -d -salt -pass pass:scrabble
  ;;
start)
    CONTENTS=$(
      (
        echo EEEEEEEEEEEE;
        echo AAAAAAAAA;
        echo IIIIIIIII;
        echo OOOOOOOO;
        echo NNNNNNRRRRRR;
        echo TTTTTTLLLLSSSS;
        echo UUUUDDDDGGG;
        echo BBCCMMPP;
        echo FFHHVVWWYY;
        echo KJXQZ
      ) | fold -w1;
      echo blank;
      echo blank
    )
    echo "$CONTENTS"|shuf|openssl aes-256-cbc -a -salt -pass pass:scrabble > bag
  ;;
draw)
  CONTENTS=$(cat bag|openssl aes-256-cbc -a -d -salt -pass pass:scrabble)
  echo "$CONTENTS"|head -n ${2:-1}
  echo "$CONTENTS"|tail -n +$(( ${2:-1} + 1))|shuf|openssl aes-256-cbc -a -salt -pass pass:scrabble > bag
  ;;
discard)
  if [ ! -z "$2" ]; then
    CONTENTS=$(cat bag|openssl aes-256-cbc -a -d -salt -pass pass:scrabble)
    (echo $2;echo "$CONTENTS")|shuf|openssl aes-256-cbc -a -salt -pass pass:scrabble > bag
  fi
  ;;
*)
  cat <<-END
USAGE:
$(basename $0) start - shuffle all tiles into the bag
$(basename $0) draw N - draw N tiles from the bag
$(basename $0) discard A - return tile 'A' to the bag
$(basename $0) help - print this message
END
  exit 1
  ;;
esac