}
# 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));
}