From: Othmar Gsenger <otti@realraum.at>
Date: Thu, 30 Jun 2011 23:17:29 +0000 (+0000)
Subject: ii
X-Git-Url: https://git.realraum.at/?p=svn42.git;a=commitdiff_plain;h=5f51aa0e63abcc055314d6e81038646074b04918

ii
---

diff --git a/dart/dart-fullcricket.pl b/dart/dart-fullcricket.pl
index 38eb707..1bb4049 100755
--- a/dart/dart-fullcricket.pl
+++ b/dart/dart-fullcricket.pl
@@ -16,7 +16,7 @@ my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
 my (@player) = @ARGV;
 
 my $numplayer = @player;
-
+my $round =0;
 my %score;
 my $current_player=1;
 while ( my $schuss = <STDIN>)
@@ -44,16 +44,20 @@ while ( my $schuss = <STDIN>)
 		}
 	} else {
     $current_player++;
+    $round++ if $current_player > $numplayer;
     $current_player=1 if $current_player > $numplayer;
 	}
-	print_score();
+	print_score($schuss);
 }
 
 
 
 sub print_score
 {
+ my ($schuss) =@_;
 # $term->Tputs('cl', 1, <STDERR>);
+ printf STDERR "\n\n";
+ printf STDERR "$schuss Runde\t$round\n\n";
 				for my $playernum (1..$numplayer)
 				{