Handle double pawn moves in can_reach.

diff --git a/remoteglot.pl b/remoteglot.pl
index c6323870037adb08629e5f3aff0749a0c01a5ffe..cf9d119b52be7e3160b43d8fb1542ac9dd753377 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -853,11 +853,17 @@ sub can_reach {
                return (can_reach($board, 'R', $from_row, $from_col, $to_row, $to_col) ||
                        can_reach($board, 'B', $from_row, $from_col, $to_row, $to_col));
        }
                return (can_reach($board, 'R', $from_row, $from_col, $to_row, $to_col) ||
                        can_reach($board, 'B', $from_row, $from_col, $to_row, $to_col));
        }

+
+       # TODO: en passant

        if ($piece eq 'p') {
                # black pawn
                if ($to_col == $from_col && $to_row == $from_row + 1) {
                        return ($dest_piece eq '-');
                }
        if ($piece eq 'p') {
                # black pawn
                if ($to_col == $from_col && $to_row == $from_row + 1) {
                        return ($dest_piece eq '-');
                }

+               if ($to_col == $from_col && $from_row == 1 && $to_row == 3) {
+                       my $middle_piece = substr($board->[2], $to_col, 1);
+                       return ($dest_piece eq '-' && $middle_piece eq '-');
+               }

                if (abs($to_col - $from_col) == 1 && $to_row == $from_row + 1) {
                        return ($dest_piece ne '-');
                }
                if (abs($to_col - $from_col) == 1 && $to_row == $from_row + 1) {
                        return ($dest_piece ne '-');
                }


@@ -868,6 +874,10 @@ sub can_reach {
                if ($to_col == $from_col && $to_row == $from_row - 1) {
                        return ($dest_piece eq '-');
                }
                if ($to_col == $from_col && $to_row == $from_row - 1) {
                        return ($dest_piece eq '-');
                }

+               if ($to_col == $from_col && $from_row == 6 && $to_row == 4) {
+                       my $middle_piece = substr($board->[5], $to_col, 1);
+                       return ($dest_piece eq '-' && $middle_piece eq '-');
+               }

                if (abs($to_col - $from_col) == 1 && $to_row == $from_row - 1) {
                        return ($dest_piece ne '-');
                }
                if (abs($to_col - $from_col) == 1 && $to_row == $from_row - 1) {
                        return ($dest_piece ne '-');
                }