X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-soundonly.pl;h=a9950bb2f7703acfbc15af5a1f1d684465dd2e2e;hb=d9fed165717827a0bff689d69c6e1d512fcb427c;hp=83c2d859fdac90320e10bbde041ed7696ecd45f2;hpb=401ac8c4c344a8705af99bef084b1c47d2db9f5d;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+)/;