# rook
substr($nb[0], 7, 1, '-');
- substr($nb[0], 5, 1, 'R');
+ substr($nb[0], 5, 1, 'r');
return ('0-0', prettyprint_pv(\@nb, @pvs));
}
# rook
substr($nb[0], 0, 1, '-');
- substr($nb[0], 3, 1, 'R');
+ substr($nb[0], 3, 1, 'r');
return ('0-0-0', prettyprint_pv(\@nb, @pvs));
}
} else {
# single-PV
if (defined($uciinfo{'score_mate'})) {
- printf " Mate in %d\n", $uciinfo{'score_mate'};
+ my $mate = $uciinfo{'score_mate'};
+ if ($ficsinfo{'toplay'} eq 'B') {
+ $mate = -$mate;
+ }
+ if ($mate > 0) {
+ printf " White mates in %u\n", $mate;
+ } else {
+ printf " Black mates in %u\n", -$mate;
+ }
} else {
if (exists($uciinfo{'score_cp'})) {
my $score = $uciinfo{'score_cp'} * 0.01;