print
("$0 [-h] [-o] [-v] dictfile tries\n\t-o allows original game rules\n\
+t-v shows helpful in",
"fos\n")&&exit if $ARGV[0 ]eq'-h'or 2>@ARGV;$ n=$v=1,shift if $ARGV[ 0
+]eq'-vo'or$ ARGV [0]eq
'-ov';$v=1,shift if$ARGV[0]eq'-v';$n= 1,shift if$ARGV [0]eq'-o';$v=1,s
+hift if$ ARGV[0]eq'-v'
;open I,$ ARGV
[0]or die 'n'.
'o '. 'd'. 'i'.
'ct'. 'i'. 'o'.
'na'. 'r'. 'y'.
" '".$ARGV [0].
"' fo". "u".'nd '
.'('. "$!)";@w=<I>;
chomp ($w=$w[int rand
@w]); $t=$ARGV[01];
while (07){%S=();
%T=() ;if
(join (''
,grep {!$S{$_}++}sort
split (//,$w))eq join('',gre
+p{
! $T{ $_}++}sort(split //,$g)
+)){
print "\tLIFE!\n";exit;}last if
+! $t;
print "\t",(map{(index($g,$_)>=
+0)?$_
:'_'} split(//,$w)),($v?" ($t "
+.($n?
'wro' .'ng ':'').'guesses left
+[gue'
.'ss' .'ed:'.$g.'/'.$f.'])':'')
+,"\n"
;$i = substr<STDIN>,0,1;--$t if!
+$n;if(
index ($w,$i)>=0){--$t if$n&&inde
+x($g,$i
)>=0; $g.=$i;}else{--$t if $
+n;
$ f.= $i;}}print "\tDEA"
,"TH" ,"!\n";print"the "
,"So" ,"lution was $w\n"
if$v; # Copyright 2004
#by C hristian Duehl. Al
#l ri ghts reserved. Thi
#s pr ogram is free soft
#ware . You can redistri
+b
#ute# it and/or m odify it
+ un
#der#
#the#
#same
#term
#s as
#perl itself.