From a1473cd2c1d79bade183ab34edb3bf85d44be2d1 Mon Sep 17 00:00:00 2001
From: realraum <realraum@realraum.at>
Date: Sat, 2 Jul 2011 20:47:52 +0000
Subject: [PATCH] new dart features beliebiges cricket

---
 dart/dart-dummy.pl       |    6 ++++++
 dart/dart-fullcricket.pl |    6 +++---
 2 files changed, 9 insertions(+), 3 deletions(-)
 create mode 100755 dart/dart-dummy.pl

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++;
-- 
1.7.10.4