projects
/
svn42.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
26a46e5
)
ii
author
Othmar Gsenger
<otti@realraum.at>
Thu, 30 Jun 2011 23:17:29 +0000
(23:17 +0000)
committer
Othmar Gsenger
<otti@realraum.at>
Thu, 30 Jun 2011 23:17:29 +0000
(23:17 +0000)
dart/dart-fullcricket.pl
patch
|
blob
|
history
diff --git
a/dart/dart-fullcricket.pl
b/dart/dart-fullcricket.pl
index
38eb707
..
1bb4049
100755
(executable)
--- 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 (@player) = @ARGV;
my $numplayer = @player;
-
+my $round =0;
my %score;
my $current_player=1;
while ( my $schuss = <STDIN>)
my %score;
my $current_player=1;
while ( my $schuss = <STDIN>)
@@
-44,16
+44,20
@@
while ( my $schuss = <STDIN>)
}
} else {
$current_player++;
}
} else {
$current_player++;
+ $round++ if $current_player > $numplayer;
$current_player=1 if $current_player > $numplayer;
}
$current_player=1 if $current_player > $numplayer;
}
- print_score();
+ print_score($schuss);
}
sub print_score
{
}
sub print_score
{
+ my ($schuss) =@_;
# $term->Tputs('cl', 1, <STDERR>);
# $term->Tputs('cl', 1, <STDERR>);
+ printf STDERR "\n\n";
+ printf STDERR "$schuss Runde\t$round\n\n";
for my $playernum (1..$numplayer)
{
for my $playernum (1..$numplayer)
{