use strict;
use warnings;
-$SIG{ALRM} = sub { output_screen(); };
-
-$| = 1;
-
+# Configuration
my $server = "freechess.org";
my $target = "Sesse";
# my $engine = "/usr/games/toga2";
my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
+# Program starts here
+$SIG{ALRM} = sub { output_screen(); };
+
+$| = 1;
+
open(FICSLOG, ">ficslog.txt")
or die "ficslog.txt: $!";
print FICSLOG "Log starting.\n";
uciprint("setoption name NalimovPath value c:\\nalimov");
uciprint("setoption name NalimovUsage value Rarely");
uciprint("setoption name Hash value 1024");
-# uciprint("setoption name MultiPV value 3");
+uciprint("setoption name MultiPV value 3");
# uciprint("setoption name Contempt value 1000");
# uciprint("setoption name Outlook value Ultra Optimistic");
uciprint("ucinewgame");
uciprint("stop");
uciprint("position fen $fen");
uciprint("go infinite");
+
+ #
+ # Output a command every move to note that we're
+ # still paying attention -- this is a good tradeoff,
+ # since if no move has happened in the last half
+ # hour, the analysis/relay has most likely stopped
+ # and we should stop hogging server resources.
+ #
+ $t->cmd("date");
}
#print "FICS: [$line]\n";
$sleep = 0;