X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-soundonly.pl;fp=dart%2Fdart-soundonly.pl;h=0000000000000000000000000000000000000000;hb=0e355f9c332eeecbedf2d40082d9c58ecb75cfa3;hp=a9950bb2f7703acfbc15af5a1f1d684465dd2e2e;hpb=a6ed211f3bf4130d0bb08a66aacc8f238858a502;p=svn42.git

diff --git a/dart/dart-soundonly.pl b/dart/dart-soundonly.pl
deleted file mode 100755
index a9950bb..0000000
--- a/dart/dart-soundonly.pl
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/usr/bin/perl -T -w
-use strict;
-$ENV{PATH}='';
-$| = 1;
-&main();
-exit 0;
-
-sub main
-{
-  while (my $schuss = <STDIN>)
-  {
-    chomp $schuss;
-		
-    my ($mult,$zahl)=split /\s+/,$schuss or next;
-
-    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";
-    } 
-    if (not $zahl =~ m/\d+/)
-    {
-      print STDERR "Unexpected input $zahl\n";
-      next;
-    }
-    ($zahl) = $zahl =~ m/(\d+)/;
-    if ($zahl >0 && $zahl < 21)
-    {
-      print $zahl . "\n";
-    } else {
-      print "bull\n";
-    }
-  } 
-}
-