new dart features beliebiges cricket

diff --git a/dart/dart-dummy.pl b/dart/dart-dummy.pl
new file mode 100755 (executable)
index 0000000..5743114
--- /dev/null
+++ b/dart/dart-dummy.pl
@@ -0,0 +1,6 @@
+#!/usr/bin/perl
+$|=1;
+while(<>)
+{
+  print
+}

diff --git a/dart/dart-fullcricket.pl b/dart/dart-fullcricket.pl
index fc20658..92c6721 100755 (executable)
--- a/dart/dart-fullcricket.pl
+++ b/dart/dart-fullcricket.pl
@@ -44,7 +44,7 @@ while ( my $schuss = <STDIN>)
       if ($score{$current_player}{$zahl}<3)
       {
         $score{$current_player}{$zahl}++;
-        $self_scored;
+        $self_scored++;
       } else {
         $scho++;
         for my $playernum (1..$numplayer)
@@ -57,9 +57,9 @@ while ( my $schuss = <STDIN>)
         }
       }
     }
-    print $schuss if ($scored || $scho || $self_scored);
+    print $schuss if ($scored || $self_scored);
     print "scored\n" if $scored;
-    print "scho\n" if $scho;
+    print "scho\n" if $scho && not $scored;
   } elsif ($mult eq 'btn') {
     print $schuss;
     $current_player++;