X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-soundonly.pl;h=a9950bb2f7703acfbc15af5a1f1d684465dd2e2e;hb=a1473cd2c1d79bade183ab34edb3bf85d44be2d1;hp=83c2d859fdac90320e10bbde041ed7696ecd45f2;hpb=4e1578fe2dccf967d08b64207aed239752f8f929;p=svn42.git

diff --git a/dart/dart-soundonly.pl b/dart/dart-soundonly.pl
index 83c2d85..a9950bb 100755
--- a/dart/dart-soundonly.pl
+++ b/dart/dart-soundonly.pl
@@ -13,13 +13,20 @@ sub main
 		
     my ($mult,$zahl)=split /\s+/,$schuss or next;
 
-    if ($mult==2)
-    {
+    if ($mult eq "btn") {
+      print "player\n";
+      next;
+    } elsif (not $mult =~ /^\d+$/) {
+      print "$mult\n";
+      next;
+    } elsif ($mult==2) {
       print "double\n";
     } elsif ($mult==3) {
       print "triple\n";
-    } elsif ($mult eq "btn") {
-      print "player\n";
+    } 
+    if (not $zahl =~ m/\d+/)
+    {
+      print STDERR "Unexpected input $zahl\n";
       next;
     }
     ($zahl) = $zahl =~ m/(\d+)/;