X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=16416ba07fb7a37c48c6e1c36e54c0c9cd69fe04;hp=1b2e49a8d89057d6cbe0fc3edaadf21ee8582747;hb=a8b3bf55a7bed6924b44c94931d0fc2c71f6aae2;hpb=6851dc53ed0d8873ee2c7cbbc1422eea752f4a32 diff --git a/remoteglot.pl b/remoteglot.pl index 1b2e49a..16416ba 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -18,16 +18,21 @@ use warnings; # Configuration my $server = "freechess.org"; -my $target = "224"; +my $target = "GMCarlsen"; # my $engine = "/usr/games/toga2"; -my $engine = "wine Rybkav2.3.2a.mp.w32.exe"; +#my $engine = "wine Rybkav2.3.2a.mp.w32.exe"; +my $engine = "~/microwine-0.5/microwine Rybkav2.3.2a.mp.x64.exe"; +#my $engine = "ssh -t sesse\@84.48.204.209 ./microwine-0.5/microwine ./Rybkav2.3.2a.mp.x64.exe"; +#my $engine = "ssh -t sesse\@cirkus.samfundet.no nice -n 19 ./microwine-0.5/microwine ./microwine-0.5/Rybkav2.3.2a.mp.x64.exe"; 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 @@ -67,10 +72,10 @@ while () { 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 MultiPV value 2"); # uciprint("setoption name Contempt value 1000"); # uciprint("setoption name Outlook value Ultra Optimistic"); uciprint("ucinewgame"); @@ -81,7 +86,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 +215,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 +338,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; @@ -375,41 +382,18 @@ sub style12_to_fen { $pos{'fen'} = $fen; $pos{'move_num'} = $x[26]; + $pos{'last_move'} = $x[29]; return \%pos; } -sub prefix_pv { - my ($move_num, $toplay) = @_; - - if ($toplay eq 'B') { - return "$move_num. .."; - } else { - return ""; - } -} - sub prettyprint_pv { - my ($board, $move_num, $toplay, @pvs) = @_; + my ($board, @pvs) = @_; - if (!defined($board) || !defined($move_num) || !defined($toplay)) { - die "Missing data"; - } if (scalar @pvs == 0 || !defined($pvs[0])) { return (); } - - my ($prefix, $next_move, $next_toplay); - if ($toplay eq 'W') { - $prefix = "$move_num."; - $next_move = $move_num; - $next_toplay = 'B'; - } else { - $prefix = ""; - $next_move = $move_num + 1; - $next_toplay = 'W'; - } - + my @nb = @$board; my $pv = shift @pvs; @@ -422,13 +406,7 @@ sub prettyprint_pv { my $piece = substr($board->[$from_row], $from_col, 1); if ($piece eq '-') { - die "Invalid move"; - } - if ($piece eq uc($piece) && $toplay eq 'B') { - die "Black tried to move a white piece"; - } - if ($piece eq lc($piece) && $toplay eq 'W') { - die "White tried to move a black piece"; + die "Invalid move $pv"; } # white short castling @@ -441,7 +419,7 @@ sub prettyprint_pv { substr($nb[7], 7, 1, '-'); substr($nb[7], 5, 1, 'R'); - return ($prefix . '0-0', prettyprint_pv(\@nb, $next_move, $next_toplay, @pvs)); + return ('0-0', prettyprint_pv(\@nb, @pvs)); } # white long castling @@ -454,7 +432,7 @@ sub prettyprint_pv { substr($nb[7], 0, 1, '-'); substr($nb[7], 3, 1, 'R'); - return ($prefix . '0-0-0', prettyprint_pv(\@nb, $next_move, $next_toplay, @pvs)); + return ('0-0-0', prettyprint_pv(\@nb, @pvs)); } # black short castling @@ -467,7 +445,7 @@ sub prettyprint_pv { substr($nb[0], 7, 1, '-'); substr($nb[0], 5, 1, 'r'); - return ($prefix . '0-0', prettyprint_pv(\@nb, $next_move, $next_toplay, @pvs)); + return ('0-0', prettyprint_pv(\@nb, @pvs)); } # black long castling @@ -480,7 +458,7 @@ sub prettyprint_pv { substr($nb[0], 0, 1, '-'); substr($nb[0], 3, 1, 'r'); - return ($prefix . '0-0-0', prettyprint_pv(\@nb, $next_move, $next_toplay, @pvs)); + return ('0-0-0', prettyprint_pv(\@nb, @pvs)); } # check if the from-piece is a pawn @@ -567,7 +545,7 @@ sub prettyprint_pv { $pretty .= '+'; } - return ($prefix . $pretty, prettyprint_pv(\@nb, $next_move, $next_toplay, @pvs)); + return ($pretty, prettyprint_pv(\@nb, @pvs)); } sub output_screen { @@ -583,18 +561,12 @@ sub output_screen { eval { my $dummy; if (exists($uciinfo{'pv'})) { - $dummy = prettyprint_pv($pos_calculating->{'board'}, - $pos_calculating->{'move_num'}, - $pos_calculating->{'toplay'}, - @{$uciinfo{'pv'}}); + $dummy = prettyprint_pv($pos_calculating->{'board'}, @{$uciinfo{'pv'}}); } my $mpv = 1; while (exists($uciinfo{'pv' . $mpv})) { - $dummy = prettyprint_pv($pos_calculating->{'board'}, - $pos_calculating->{'move_num'}, - $pos_calculating->{'toplay'}, - @{$uciinfo{'pv' . $mpv}}); + $dummy = prettyprint_pv($pos_calculating->{'board'}, @{$uciinfo{'pv' . $mpv}}); ++$mpv; } }; @@ -603,12 +575,22 @@ sub output_screen { return; } - my $text = ''; + my $text = 'Analysis'; + if ($pos_calculating->{'last_move'} ne 'none') { + if ($pos_calculating->{'toplay'} eq 'W') { + $text .= sprintf ' after %u. ... %s', ($pos_calculating->{'move_num'}-1), $pos_calculating->{'last_move'}; + } else { + $text .= sprintf ' after %u. %s', $pos_calculating->{'move_num'}, $pos_calculating->{'last_move'}; + } + if (exists($uciid{'name'})) { + $text .= ','; + } + } if (exists($uciid{'name'})) { - $text .= "Analysis by $uciid{'name'}:\n\n"; + $text .= " by $uciid{'name'}:\n\n"; } else { - $text .= "Analysis:\n\n"; + $text .= ":\n\n"; } return unless (exists($pos_calculating->{'board'})); @@ -625,27 +607,6 @@ sub output_screen { } } } - - my @text_pvs = (); - if (exists($uciinfo{'pv1'}) && exists($uciinfo{'pv2'})) { - # multi-PV - my $mpv = 1; - while (exists($uciinfo{'pv' . $mpv})) { - $text_pvs[$mpv] = prefix_pv($pos_calculating->{'move_num'}, $pos_calculating->{'toplay'}) . - join(' ', prettyprint_pv($pos_calculating->{'board'}, - $pos_calculating->{'move_num'}, - $pos_calculating->{'toplay'}, - @{$uciinfo{'pv' . $mpv}})); - ++$mpv; - } - } else { - # single-PV - $text_pvs[0] = prefix_pv($pos_calculating->{'move_num'}, $pos_calculating->{'toplay'}) . - join(' ', prettyprint_pv($pos_calculating->{'board'}, - $pos_calculating->{'move_num'}, - $pos_calculating->{'toplay'}, - @{$uciinfo{'pv'}})); - } if (exists($uciinfo{'pv1'}) && exists($uciinfo{'pv2'})) { # multi-PV @@ -656,8 +617,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})) { @@ -666,21 +631,27 @@ sub output_screen { } $text .= ":\n"; - $text .= " $text_pvs[$mpv]\n\n"; + $text .= " " . join(', ', prettyprint_pv($pos_calculating->{'board'}, @{$uciinfo{'pv' . $mpv}})) . "\n"; + $text .= "\n"; ++$mpv; } } else { # single-PV my $score = long_score(\%uciinfo, $pos_calculating, ''); $text .= " $score\n" if defined($score); - $text .= " PV: $text_pvs[0]\n"; + $text .= " PV: " . join(', ', prettyprint_pv($pos_calculating->{'board'}, @{$uciinfo{'pv'}})); + $text .= "\n"; if (exists($uciinfo{'nodes'}) && exists($uciinfo{'nps'}) && exists($uciinfo{'depth'})) { $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'}; @@ -688,6 +659,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 ""; # clear the screen print $text; @@ -717,14 +690,16 @@ sub output_screen { $tell_text .= sprintf " (%2u ply)", $uciinfo{'depth' . $mpv}; } - $tell_text .= ": $text_pvs[$mpv]\n"; + $tell_text .= ": "; + $tell_text .= join(', ', prettyprint_pv($pos_calculating->{'board'}, @{$uciinfo{'pv' . $mpv}})); + $tell_text .= "\n"; ++$mpv; } } else { # single-PV my $score = long_score(\%uciinfo, $pos_calculating, ''); $tell_text .= " $score\n" if defined($score); - $tell_text .= " PV: $text_pvs[0]"; + $tell_text .= " PV: " . join(', ', prettyprint_pv($pos_calculating->{'board'}, @{$uciinfo{'pv'}})); if (exists($uciinfo{'depth'})) { $tell_text .= sprintf " (depth %u ply)", $uciinfo{'depth'}; } @@ -987,3 +962,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; +}