projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
improved multi cricket
[svn42.git]
/
dart
/
dart-soundonly.pl
diff --git
a/dart/dart-soundonly.pl
b/dart/dart-soundonly.pl
index
83c2d85
..
a9950bb
100755
(executable)
--- a/
dart/dart-soundonly.pl
+++ b/
dart/dart-soundonly.pl
@@
-13,13
+13,20
@@
sub main
my ($mult,$zahl)=split /\s+/,$schuss or next;
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";
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+)/;
next;
}
($zahl) = $zahl =~ m/(\d+)/;