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: $!";
$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;
}
}
# white long castling
- if ($pv eq 'e1b1' && $piece eq 'K') {
+ if ($pv eq 'e1c1' && $piece eq 'K') {
my @nb = @$board;
# king
# rook
substr($nb[7], 0, 1, '-');
- substr($nb[7], 2, 1, 'R');
+ substr($nb[7], 3, 1, 'R');
return ('0-0-0', prettyprint_pv(\@nb, @pvs));
}
}
# black long castling
- if ($pv eq 'e8b8' && $piece eq 'k') {
+ if ($pv eq 'e8c8' && $piece eq 'k') {
my @nb = @$board;
# king
# rook
substr($nb[0], 0, 1, '-');
- substr($nb[0], 2, 1, 'R');
+ substr($nb[0], 3, 1, 'R');
return ('0-0-0', prettyprint_pv(\@nb, @pvs));
}