Say what move we're analyzing from.

diff --git a/remoteglot.pl b/remoteglot.pl
index 8c871084ead93aca57e599d80e1a98aaaf927a8b..b36487d2987cad84a4654741e8eb594c95fe5ec9 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -18,7 +18,7 @@ use warnings;
 
 # Configuration
 my $server = "freechess.org";
 
 # Configuration
 my $server = "freechess.org";

-my $target = "22";
+my $target = "224";

 # my $engine = "/usr/games/toga2";
 my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
 my $telltarget = undef;   # undef to be silent
 # my $engine = "/usr/games/toga2";
 my $engine = "wine Rybkav2.3.2a.mp.w32.exe";
 my $telltarget = undef;   # undef to be silent


@@ -374,6 +374,8 @@ sub style12_to_fen {
        $fen .= $x[26];
 
        $pos{'fen'} = $fen;
        $fen .= $x[26];
 
        $pos{'fen'} = $fen;

+       $pos{'move_num'} = $x[26];
+       $pos{'last_move'} = $x[29];

 
        return \%pos;
 }
 
        return \%pos;
 }


@@ -566,12 +568,22 @@ sub output_screen {
                return;
        }
 
                return;
        }
 

-       my $text = '';
+       my $text = 'Analysis';
+       if ($pos_calculating->{'last_move'} ne 'none') {
+               if ($pos_calculating->{'toplay'} eq 'W') {
+                       $text .= sprintf ' after %u. ... %s', ($pos_calculating->{'move_num'}-1), $pos_calculating->{'last_move'};
+               } else {
+                       $text .= sprintf ' after %u. %s', $pos_calculating->{'move_num'}, $pos_calculating->{'last_move'};
+               }
+               if (exists($uciid{'name'})) {
+                       $text .= ',';
+               }
+       }

 
        if (exists($uciid{'name'})) {
 
        if (exists($uciid{'name'})) {

-               $text .= "Analysis by $uciid{'name'}:\n\n";
+               $text .= " by $uciid{'name'}:\n\n";

        } else {
        } else {

-               $text .= "Analysis:\n\n";
+               $text .= ":\n\n";

        }
 
        return unless (exists($pos_calculating->{'board'}));
        }
 
        return unless (exists($pos_calculating->{'board'}));