Remove some obsolete parameters.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index b36487d2987cad84a4654741e8eb594c95fe5ec9..c4c9c3699f8d9d8ccbaf9365e721611c3cf99960 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -18,16 +18,17 @@ use warnings;
 
 # Configuration
 my $server = "freechess.org";
-my $target = "224";
-# my $engine = "/usr/games/toga2";
-my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
+my $target = "GMCarlsen";
+my $engine = "'./Deep Rybka 4 SSE42 x64'";
 my $telltarget = undef;   # undef to be silent
 my @tell_intervals = (5, 20, 60, 120, 240, 480, 960);  # after each move
-my $uci_assume_full_compliance = 1;                    # dangerous :-)
+my $uci_assume_full_compliance = 0;                    # dangerous :-)
 my @masters = (
        'Sesse',
        'Sessse',
-       'Sesssse'
+       'Sesssse',
+       'greatestguns',
+       'beuki'
 );
 
 # Program starts here
@@ -66,13 +67,10 @@ while (<UCIREAD>) {
 }
 
 uciprint("setoption name UCI_AnalyseMode value true");
-# uciprint("setoption name Preserve Analysis value true");
-uciprint("setoption name NalimovPath value c:\\nalimov");
+# uciprint("setoption name NalimovPath value /srv/tablebase");
 uciprint("setoption name NalimovUsage value Rarely");
 uciprint("setoption name Hash value 1024");
-uciprint("setoption name MultiPV value 3");
-# uciprint("setoption name Contempt value 1000");
-# uciprint("setoption name Outlook value Ultra Optimistic");
+# uciprint("setoption name MultiPV value 2");
 uciprint("ucinewgame");
 
 print "Chess engine ready.\n";
@@ -81,7 +79,7 @@ print "Chess engine ready.\n";
 my $t = Net::Telnet->new(Timeout => 10, Prompt => '/fics% /');
 $t->input_log(\*FICSLOG);
 $t->open($server);
-$t->print("guest");
+$t->print("SesseBOT");
 $t->waitfor('/Press return to enter the server/');
 $t->cmd("");
 
@@ -210,6 +208,7 @@ sub handle_uci {
 
        chomp $line;
        $line =~ tr/\r//d;
+       $line =~ s/  / /g;  # Sometimes needed for Zappa Mexico
        print UCILOG localtime() . " <= $line\n";
        if ($line =~ /^info/) {
                my (@infos) = split / /, $line;
@@ -332,6 +331,7 @@ sub style12_to_fen {
        $castling .= "k" if ($x[13] == 1);
        $castling .= "q" if ($x[14] == 1);
        $castling = "-" if ($castling eq "");
+       # $castling = "-"; # chess960
        $fen .= " ";
        $fen .= $castling;
 
@@ -382,7 +382,7 @@ sub style12_to_fen {
 
 sub prettyprint_pv {
        my ($board, @pvs) = @_;
-       
+
        if (scalar @pvs == 0 || !defined($pvs[0])) {
                return ();
        }
@@ -399,7 +399,7 @@ sub prettyprint_pv {
        my $piece = substr($board->[$from_row], $from_col, 1);
 
        if ($piece eq '-') {
-               die "Invalid move";
+               die "Invalid move $pv";
        }
 
        # white short castling
@@ -610,8 +610,12 @@ sub output_screen {
                        $text .= "  ($score)" if (defined($score));
 
                        my $tbhits = '';
-                       if (exists($uciinfo{'tbhits' . $mpv})) {
-                               $tbhits = sprintf ", %u tbhits", $uciinfo{'tbhits' . $mpv};
+                       if (exists($uciinfo{'tbhits' . $mpv}) && $uciinfo{'tbhits' . $mpv} > 0) {
+                               if ($uciinfo{'tbhits' . $mpv} == 1) {
+                                       $tbhits = ", 1 tbhit";
+                               } else {
+                                       $tbhits = sprintf ", %u tbhits", $uciinfo{'tbhits' . $mpv};
+                               }
                        }
 
                        if (exists($uciinfo{'nodes' . $mpv}) && exists($uciinfo{'nps' . $mpv}) && exists($uciinfo{'depth' . $mpv})) {
@@ -635,8 +639,12 @@ sub output_screen {
                        $text .= sprintf "  %u nodes, %7u nodes/sec, depth %u ply",
                                $uciinfo{'nodes'}, $uciinfo{'nps'}, $uciinfo{'depth'};
                }
-               if (exists($uciinfo{'tbhits'})) {
-                       $text .= sprintf ", %u Nalimov hits", $uciinfo{'tbhits'};
+               if (exists($uciinfo{'tbhits'}) && $uciinfo{'tbhits'} > 0) {
+                       if ($uciinfo{'tbhits'} == 1) {
+                               $text .= ", one Nalimov hit";
+                       } else {
+                               $text .= sprintf ", %u Nalimov hits", $uciinfo{'tbhits'};
+                       }
                }
                if (exists($uciinfo{'seldepth'})) {
                        $text .= sprintf " (%u selective)", $uciinfo{'seldepth'};
@@ -644,6 +652,8 @@ sub output_screen {
                $text .=  "\n\n";
        }
 
+       #$text .= book_info($pos_calculating->{'fen'}, $pos_calculating->{'board'}, $pos_calculating->{'toplay'});
+
        if ($last_text ne $text) {
                print "\e[H\e[2J"; # clear the screen
                print $text;
@@ -945,3 +955,55 @@ sub long_score {
 
        return undef;
 }
+
+my %book_cache = ();
+sub book_info {
+       my ($fen, $board, $toplay) = @_;
+
+       if (exists($book_cache{$fen})) {
+               return $book_cache{$fen};
+       }
+
+       my $ret = `./booklook $fen`;
+       return "" if ($ret =~ /Not found/ || $ret eq '');
+
+       my @moves = ();
+
+       for my $m (split /\n/, $ret) {
+               my ($move, $annotation, $win, $draw, $lose, $rating, $rating_div) = split /,/, $m;
+
+               my $pmove;
+               if ($move eq '')  {
+                       $pmove = '(current)';
+               } else {
+                       ($pmove) = prettyprint_pv($board, $move);
+                       $pmove .= $annotation;
+               }
+
+               my $score;
+               if ($toplay eq 'W') {
+                       $score = 1.0 * $win + 0.5 * $draw + 0.0 * $lose;
+               } else {
+                       $score = 0.0 * $win + 0.5 * $draw + 1.0 * $lose;
+               }
+               my $n = $win + $draw + $lose;
+               
+               my $percent;
+               if ($n == 0) {
+                       $percent = "     ";
+               } else {
+                       $percent = sprintf "%4u%%", int(100.0 * $score / $n + 0.5);
+               }
+
+               push @moves, [ $pmove, $n, $percent, $rating ];
+       }
+
+       @moves[1..$#moves] = sort { $b->[2] cmp $a->[2] } @moves[1..$#moves];
+       
+       my $text = "Book moves:\n\n              Perf.     N     Rating\n\n";
+       for my $m (@moves) {
+               $text .= sprintf "  %-10s %s   %6u    %4s\n", $m->[0], $m->[2], $m->[1], $m->[3]
+       }
+
+       return $text;
+}