X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-cricket.pl;h=55b4d02441e05673e021e3084e983cd5c874ce85;hb=4fa78e69f33a6597822418749b9552c7805d0172;hp=c3199996f5344546de38917671377422ceba1eef;hpb=e2babe3999a68a8a7fc77dd9260a8c88bd737ccb;p=svn42.git

diff --git a/dart/dart-cricket.pl b/dart/dart-cricket.pl
index c319999..55b4d02 100755
--- a/dart/dart-cricket.pl
+++ b/dart/dart-cricket.pl
@@ -6,9 +6,10 @@ our $sieb =1; # Spielmodus Zahlensieb
 
 
 $|=1;
-my (@player) = @ARGV;
+my ($shout_fifo, @player) = @ARGV;
 
 my $dart = new Dart(player_names=>\@player, 
+                    shout_fifo=>$shout_fifo,
                     callbacks => {
                       shoot=>\&shoot,   
                       next_player=>\&next_player,
@@ -51,6 +52,7 @@ sub win_condition
   my $score = $self->get_current_player()->{score}->{0};
   for my $player_idx (0..($self->{player_count}-1))
   {
+    next if not $self->get_player($player_idx)->{active};
     return if $score > $self->get_player($player_idx)->{score}->{0};
   }
   return 1;
@@ -114,25 +116,25 @@ sub next_player
 sub print_score
 {
   my ($self)=@_;
-  printf STDERR "\n\n";
-  printf STDERR "Runde\t%d\n\n",$self->{round};
+  printf "\n\n";
+  printf "Runde\t%d\n\n",$self->{round};
   for my $player_idx (0..($self->{player_count}-1))
   {
-    printf STDERR "%s\t", ($player_idx == $self->{current_player})?"(".$self->get_player($player_idx)->{name}.")":$self->get_player($player_idx)->{name};
+    printf "%s\t", ($player_idx == $self->{current_player})?"(".$self->get_player($player_idx)->{name}.")":$self->get_player($player_idx)->{name};
   }
-  print STDERR "\n";
+  print "\n";
   for my $i (1..21)
   {
     for my $player_idx (0..($self->{player_count}-1))
     {
       my $zahl = $i>20?25:$i;
       next if not gueltig($zahl);
-      printf STDERR ("%2d %s    ",$zahl, '#' x $self->get_player($player_idx)->{score}->{$zahl}. '-' x (3-$self->get_player($player_idx)->{score}->{$zahl}));
+      printf ("%2d %s    ",$zahl, '#' x $self->get_player($player_idx)->{score}->{$zahl}. '-' x (3-$self->get_player($player_idx)->{score}->{$zahl}));
     }
-    print STDERR "\n";
+    print "\n";
   }
   for my $player_idx (0..($self->{player_count}-1))
   {
-    printf STDERR ("%3d\t", $self->get_player($player_idx)->{score}->{0});
+    printf ("%3d\t", $self->get_player($player_idx)->{score}->{0});
   }
 }