From 70060c135b7ca0a8fe0838208c048a2b42e52614 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Fri, 10 May 2019 23:02:31 +0200
Subject: [PATCH] Add support for 7-piece Fathom.

---
 remoteglot.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/remoteglot.pl b/remoteglot.pl
index 7220412..d8a7925 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -585,13 +585,13 @@ sub complete_using_tbprobe {
 			$pos = $pos->make_move(parse_uci_move($move));
 		}
 
-		while ($pos->num_pieces() > 6 && $#pv > -1) {
+		while ($pos->num_pieces() > 7 && $#pv > -1) {
 			my $move = shift @pv;
 			push @moves, $move;
 			$pos = $pos->make_move(parse_uci_move($move));
 		}
 
-		return if ($pos->num_pieces() > 6);
+		return if ($pos->num_pieces() > 7);
 
 		my $fen = $pos->fen();
 		my $pgn_text = `fathom --path=/srv/syzygy "$fen"`;
@@ -603,6 +603,9 @@ sub complete_using_tbprobe {
 		# Splice the PV from the tablebase onto what we have so far.
 		for my $move (@{$pgn->moves}) {
 			last if $move eq '#';
+			last if $move eq '1-0';
+			last if $move eq '0-1';
+			last if $move eq '1/2-1/2';
 			my $uci_move;
 			($pos, $uci_move) = $pos->make_pretty_move($move);
 			push @moves, $uci_move;
-- 
2.39.2