From 5f51aa0e63abcc055314d6e81038646074b04918 Mon Sep 17 00:00:00 2001 From: Othmar Gsenger Date: Thu, 30 Jun 2011 23:17:29 +0000 Subject: [PATCH] ii --- dart/dart-fullcricket.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) 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 = ) @@ -44,16 +44,20 @@ while ( my $schuss = ) } } 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, ); + printf STDERR "\n\n"; + printf STDERR "$schuss Runde\t$round\n\n"; for my $playernum (1..$numplayer) { -- 1.7.10.4