From: realraum <realraum@realraum.at>
Date: Sat, 2 Jul 2011 20:47:52 +0000 (+0000)
Subject: new dart features beliebiges cricket
X-Git-Url: https://git.realraum.at/?a=commitdiff_plain;h=a1473cd2c1d79bade183ab34edb3bf85d44be2d1;p=svn42.git

new dart features beliebiges cricket
---

diff --git a/dart/dart-dummy.pl b/dart/dart-dummy.pl
new file mode 100755
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
--- 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++;