Do various tweaks to work better on mobile devices.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 39fa629304b429840583dfe22cbe414b25284153..313ccbe9026c1d807b641d39473de330132ac866 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -25,8 +25,7 @@ my $engine2_cmdline = "./stockfish_13111119_x64_modern_sse42";
 my $telltarget = undef;   # undef to be silent
 my @tell_intervals = (5, 20, 60, 120, 240, 480, 960);  # after each move
 my $uci_assume_full_compliance = 0;                    # dangerous :-)
-my $update_max_interval = 2.0;
-my $second_engine_start_depth = 8;
+my $update_max_interval = 1.0;
 my @masters = (
        'Sesse',
        'Sessse',
@@ -239,6 +238,7 @@ sub handle_uci {
                                $pos_waiting = undef;
                        }
                } else {
+                       $engine2->{'info'} = {};
                        my $pos = $pos_waiting // $pos_calculating;
                        uciprint($engine2, "position fen " . $pos->{'fen'});
                        uciprint($engine2, "go infinite");
@@ -344,6 +344,11 @@ sub style12_to_pos {
        $pos{'black_castle_q'} = $x[14];
        $pos{'time_to_100move_rule'} = $x[15];
        $pos{'move_num'} = $x[26];
+       if ($x[27] =~ /([a-h][1-8])-([a-h][1-8])/) {
+               $pos{'last_move_uci'} = $1 . $2;
+       } else {
+               $pos{'last_move_uci'} = undef;
+       }
        $pos{'last_move'} = $x[29];
        $pos{'fen'} = make_fen(\%pos);
 
@@ -771,7 +776,7 @@ sub output_screen {
                        my $key = $pretty_move;
                        my $line = sprintf("  %-6s %6s %3s  %s",
                                $pretty_move,
-                               short_score($info, $pos_calculating_second_engine, $mpv, 1),
+                               short_score($info, $pos_calculating_second_engine, $mpv, 0),
                                "d" . $info->{'depth' . $mpv},
                                join(', ', @pretty_pv));
                        push @refutation_lines, [ $key, $line ];