zombie-maze-walker.sh

#!/usr/bin/env bash

MAZEFILE=`dirname $0`/maze.txt
REPLAY=false
INVERTWALLS=

while getopts "f:ri" opt; do
  case "$opt" in
    r)   REPLAY=true
         LOG=$(tempfile) || exit;;
    f)   MAZEFILE="$OPTARG";;
    i)   INVERTWALLS='s/[^><^vuldr ]/&/g';;
    [?]) cat <<- EOF
		Usage: $0 [OPTION] [-f mazefile]"
		  -f filename 
		        use the custom maze file. Default: maze.txt
		  -r    replay mode. Print the replay command at the end.
		  -i    invert wall colors.
		EOF
         exit 1;;
  esac
done

if [ ! -f "$MAZEFILE" ]; then
  echo Maze file "$MAZEFILE" was not found.
  exit 1
fi

IFS=''

while read line; do
  new=$(wc -c <<< "$line")
  if [[ -n "$prev" ]] && [[ ! "$new" = "$prev" ]]; then
    echo "Lines of the maze must have equal length. Please fix."
    exit 1
  fi
  prev=$new
done < "$MAZEFILE"

MAZE=$(sed 's#[/\\]#\\&#g;s#^#s/$/#;s#$#~/#;$s#~/$#/#' "$MAZEFILE")
if [[ ! $MAZE =~ ^([^><v^]*[><v^][^><v^]*)$ ]]; then
  echo "The maze must have exactly one player represented by ^,>,<, or v"
  exit 1
fi

GAMEFILE=$(tempfile) || exit
trap '{ $REPLAY && echo To rerun "\"sed -nf $GAMEFILE < $LOG\"" || rm -f $GAMEFILE; }' EXIT

WIDTH=$(read line < $MAZEFILE; echo -n "$line" | wc -c)

cat << EOF > $GAMEFILE

#!/bin/sed -nf

1{
s/.*//
$MAZE
h; b display
}

/^\(\[A\)\|w/{x; s/[><v]/^/; x; b next;}
/^\(\[B\)\|s/{x; s/[><^]/v/; x; b next;}
/^\(\[D\)\|a/{x; s/[>^v]/</; x; b next;}
/^\(\[C\)\|d/{x; s/[<v^]/>/; x; b next;}

:next

x
# Losing condition #1 - you walk into a zombie
/\([udlr]\(.\{$WIDTH\}\)\^\)\|\(v\(.\{$WIDTH\}\)[udlr]\)\|\(>[udlr]\|[udlr]<\)/{
s/$/&~ZOMBIE SAYS YUM!!!/
x
b display
}
# character movements
s/ \(.\{$WIDTH\}\)\^/^\1 /
s/v\(.\{$WIDTH\}\) / \1v/
s/> / >/
s/ </< /

# Losing condition #2 - a zombie walks into you
/\([><v^].\{$WIDTH\}u\)\|\(d.\{$WIDTH\}[><v^]\)\|\(r[><v^]\)\|\([><v^]l\)/{
s/$/&~YUM BRAINZZZ!!!/
x
b display
}

# nemesis movements
:nem
/[udlr]/{
# turning around
s/\(\([^ ].\{$WIDTH\}\)\|\(^.\{,$WIDTH\}\)\)u/\1D/
s/d\(\(.\{$WIDTH\}[^ ]\|\(.\{,$WIDTH\}\)$\)\)/U\1/
s/r\([^ ]\|~\|$\)/L\1/
s/\([^ ]\|~\|^\)l/\1R/

# moving
s/ \(.\{$WIDTH\}\)u/U\1 /
s/d\(.\{$WIDTH\}\) / \1D/
s/r / R/
s/ l/L /
b nem
}
y/UDLR/udlr/
# winning condition
/\(^[^~]*\^\)\|\(v[^~]*$\)\|\(>~\)\|\(~<\)\|\(^<\)\|\(>$\)/s/$/~YOU WON!!! HAVE A COOKIE/

x
:display
g
s/~/\\
/g

$INVERTWALLS
s/[><^v]/&/g
s/[udlr]/Z/g

i\\

p
/!/q

EOF
#-------------
# Play phase 

mytime="`date +%s`"

export LC_ALL="C"
(while true; do
  read -s -t 1 -n 1 TMP
  RES=$?
  CMD="$TMP"
  if [ "$CMD" == '' ]; then
    read -s -n 1 TMP; CMD="$CMD$TMP"
    if [ "$CMD" == '[' ]; then
      read -s -n 1 TMP; CMD="$CMD$TMP"
    fi
  fi
  if [ $RES -eq 0 ]; then
    echo "$CMD"
    continue
  fi
  mytimenew="`date +%s`"
  if [ "$mytimenew" != "$mytime" ]; then
    echo
    mytime=$mytimenew
  fi
done) | ( $REPLAY && tee "$LOG" || cat ) | sed -nf $GAMEFILE