summaryrefslogtreecommitdiff
path: root/expect/example/rogue.exp
blob: 712f68c9f0fea302a663bcc9dace964fe9fa92c7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!../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