Replace jsPlumb by writing some SVG arrows ourselves.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index ab492bc443365dffe8dea1d342ab85e4f8af0820..0522e52888fca392a6f0936d337d76719c79e417 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',
@@ -1145,9 +1144,9 @@ sub score_sort_key {
 
        if (defined($info->{'score_mate' . $mpv})) {
                if ($invert) {
-                       return -(99999 - $info->{'score_mate' . $mpv});
-               } else {
                        return 99999 - $info->{'score_mate' . $mpv};
+               } else {
+                       return -(99999 - $info->{'score_mate' . $mpv});
                }
        } else {
                if (exists($info->{'score_cp' . $mpv})) {
@@ -1178,6 +1177,9 @@ sub long_score {
        } else {
                if (exists($info->{'score_cp' . $mpv})) {
                        my $score = $info->{'score_cp' . $mpv} * 0.01;
+                       if ($score == 0) {
+                               return "Score:  0.00";
+                       }
                        if ($pos->{'toplay'} eq 'B') {
                                $score = -$score;
                        }