#!/bin/sh
# -*- tcl -*-
# The next line is executed by /bin/sh, but not tcl \
exec tclsh "$0" ${1+"$@"}
package require Expect
# Look for a GREAT game of rogue.
# Idea is that any game with a Strength of 18 is unusually good.
# Written by Don Libes - March, 1990
set timeout -1
while {1} {
spawn rogue
expect "Str: 18" break \
"Str: 16"
send "Q"
expect "quit?"
send "y"
close
wait
}
interact