X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-cricket.pl;fp=dart%2Fdart-cricket.pl;h=de18e0ef1097f896df899809d8baf90fec2559f0;hb=3311c2a78c87d6428b8aeca2b14e8d86f49505fd;hp=b026b04a942fc3d3d5cde3f343d5b6d5132b49b4;hpb=6958c3826f9f0587d2e2071c9370eb0e87a6d167;p=svn42.git

diff --git a/dart/dart-cricket.pl b/dart/dart-cricket.pl
index b026b04..de18e0e 100755
--- a/dart/dart-cricket.pl
+++ b/dart/dart-cricket.pl
@@ -1,7 +1,8 @@
 #!/usr/bin/perl
-# use strict;
+use strict;
 use Dart;
 
+our $sieb =1; # Spielmodus Zahlensieb
 
 
 $|=1;
@@ -13,11 +14,10 @@ my $dart = new Dart(player_names=>\@player,
                       next_player=>\&next_player,
                     }
                   );
-exit $dart->run(STDIN,STDOUT);
+exit $dart->run();
 
 ### ===============================
 
-my $sieb =1; # Spielmodus Zahlensieb
 sub gueltig
 {
   my ($zahl,$mult) = @_;
@@ -44,7 +44,7 @@ sub shoot
     {
       $score->{$zahl}++;
       $self_scored++;
-      if ($sieb && ($score->{$zahl} == 3))
+      if ($main::sieb && ($score->{$zahl} == 3))
       {
         for my $count (2..21)
         {