Changes for Rybka v2.3.2a.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 330d47b5beab0d7a133a21cc470cf04f7a67a26b..a2a5e5ee9594646332d3657600113a0152fd49e4 100644 (file)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -23,7 +23,7 @@ $| = 1;
 my $server = "freechess.org";
 my $target = "Sesse";
 # my $engine = "/usr/games/toga2";
-my $engine = "wine rybka22-mpw32.exe";
+my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
 
 open(UCILOG, ">ucilog.txt")
        or die "ucilog.txt: $!";
@@ -148,7 +148,7 @@ sub parse_infos {
                        $uciinfo{'pv'} = [ @x[1..$#x] ];
                        last;
                }
-               if ($x[0] eq 'UCI_AnalyseMode' || $x[0] eq 'setting' || $x[0] eq 'contempt') {
+               if ($x[0] eq 'string' || $x[0] eq 'UCI_AnalyseMode' || $x[0] eq 'setting' || $x[0] eq 'contempt') {
                        last;
                }
 
@@ -190,11 +190,28 @@ sub style12_to_fen {
        # en passant
        my $ep = "-";
        if ($x[10] != -1) {
-               $ep = (qw(a b c d e f g h))[$x[10]];
+               my $col = $x[10];
+               my $nep = (qw(a b c d e f g h))[$col];
+
+               if ($x[9] eq 'B') {
+                       $nep .= "3";
+               } else {
+                       $nep .= "6";
+               }
+               
+               #
+               # Showing the en passant square when actually no capture can be made
+               # seems to confuse at least Rybka. Thus, check if there's actually
+               # a pawn of the opposite side that can do the en passant move, and if
+               # not, just lie -- it doesn't matter anyway. I'm unsure what's the
+               # "right" thing as per the standard, though.
+               #
                if ($x[9] eq 'B') {
-                       $ep .= "3";
+                       $ep = $nep if ($col > 0 && substr($board[4], $col-1, 1) eq 'p');
+                       $ep = $nep if ($col < 7 && substr($board[4], $col+1, 1) eq 'p');
                } else {
-                       $ep .= "6";
+                       $ep = $nep if ($col > 0 && substr($board[3], $col-1, 1) eq 'P');
+                       $ep = $nep if ($col < 7 && substr($board[3], $col+1, 1) eq 'P');
                }
        }
        $fen .= " ";