- $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 ($pos->{'toplay'} eq 'B') {
- $ep = $nep if ($col > 0 && $pos->{'board'}[4][$col-1] eq 'p');
- $ep = $nep if ($col < 7 && $pos->{'board'}[4][$col+1] eq 'p');
- } else {
- $ep = $nep if ($col > 0 && $pos->{'board'}[3][$col-1] eq 'P');
- $ep = $nep if ($col < 7 && $pos->{'board'}[3][$col+1] eq 'P');