$| = 1;
my $server = "freechess.org";
-my $target = "Sesse";
+my $target = "GMCarlsen";
# my $engine = "/usr/games/toga2";
my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
+open(FICSLOG, ">ficslog.txt")
+ or die "ficslog.txt: $!";
+print FICSLOG "Log starting.\n";
+select(FICSLOG);
+$| = 1;
+
open(UCILOG, ">ucilog.txt")
or die "ucilog.txt: $!";
print UCILOG "Log starting.\n";
uciprint("setoption name UCI_AnalyseMode value true");
uciprint("setoption name NalimovPath value c:\\nalimov");
uciprint("setoption name NalimovUsage value Normally");
-# 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");
# now talk to FICS
my $t = Net::Telnet->new(Timeout => 10, Prompt => '/fics% /');
-#$t->input_log(\*STDOUT);
+$t->input_log(\*FICSLOG);
$t->open($server);
$t->print("guest");
$t->waitfor('/Press return to enter the server/');