#!/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