X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/acea822c3a40b7e74b8d390f6c4d497eface0b56..e503c5e7b17c8da4dcb3dec44abb228cbe334a45:/graphplay

diff --git a/graphplay b/graphplay
index d6baebf..bbbbc28 100755
--- a/graphplay
+++ b/graphplay
@@ -2,10 +2,17 @@
 use strict;
 use warnings;
 
+use Getopt::Long 2.33 qw(HelpMessage :config bundling);
 use Template;
 use List::Util;
 use Data::Dumper;
 
+our $VERSION = '1.00';
+
+GetOptions(
+	"verbose|v!" => \our $DEBUG,
+) or HelpMessage(-exitval => 2);
+
 my %area = (
 	fieldxmin => 45,
 	fieldxmax => 1590,
@@ -54,6 +61,22 @@ for my $input (@ARGV) {
 		}
 	}
 
+	for (0 .. 2) {
+		my $line = $lines[$_][$player];
+		my $start;
+		my $lasty;
+		for (my $i = 1; $i <= $#$line; $i++) {
+			defined $line->[$i] or next;
+			if ($line->[$i][1] == $line->[$i - 1][1]) {
+				$start = $i unless defined $start;
+			} elsif (defined $start) {
+				delete @$line[$start .. $i-2];
+				undef $start;
+			}
+		}
+		delete @$line[$start .. $#$line-2] if defined $start; # or -1
+	}
+
 	$player++;
 }