rogue.exp   [plain text]

#!../expect -f
# 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