X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-fullcricket.pl;h=fc2065815801a24e7d4301754eec73440014dab2;hb=d9fed165717827a0bff689d69c6e1d512fcb427c;hp=38eb707eb9316ea191a44087c8eb715b73af4a10;hpb=b159be9b8f14a1d645a8424b3d2481a6ba8a4f5d;p=svn42.git

diff --git a/dart/dart-fullcricket.pl b/dart/dart-fullcricket.pl
index 38eb707..fc20658 100755
--- a/dart/dart-fullcricket.pl
+++ b/dart/dart-fullcricket.pl
@@ -1,14 +1,20 @@
 #!/usr/bin/perl
 use strict;
-use POSIX;
-use Term::Cap;
+#use POSIX;
+#use Term::Cap;
 # General terminal line I/O
-my $termios = new POSIX::Termios;
-$termios->getattr;
-my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
+#my $termios = new POSIX::Termios;
+#$termios->getattr;
+#my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
 
+sub gueltig{
+    my ($zahl,$mult) = @_;
+    return $zahl<6 || $zahl>20;
+  };
 
 
+$|=1;
+
 # Extract the entry of the terminal type
 
 # clear
@@ -16,62 +22,82 @@ my $term = Term::Cap->Tgetent( { OSPEED => $termios->getospeed } );
 my (@player) = @ARGV;
 
 my $numplayer = @player;
-
+my $round =0;
 my %score;
 my $current_player=1;
 while ( my $schuss = <STDIN>)
 {
-  print $schuss;
-	my ($mult,$zahl) = split /\s+/, $schuss;
-   
+  #print STDERR $schuss;
+  my ($mult,$zahl) = split /\s+/, $schuss;
+
   if ($mult =~/^\d$/)
-	{
+  {
+    if (not gueltig($zahl,$mult))
+    {
+      print "miss\n";
+      next;
+    }
+    my ($scho,$scored,$self_scored);
     while($mult--)
-		{
-			if ($score{$current_player}{$zahl}<3)
-			{
-				$score{$current_player}{$zahl}++;
-			} else {
-				for my $playernum (1..$numplayer)
-				{
-					if ($score{$playernum}{$zahl}<3)
-					{
-						$score{$playernum}{0}+=$zahl;
-						print "score\n";
-					}
-				}
-			}
-		}
-	} else {
+    {
+
+      if ($score{$current_player}{$zahl}<3)
+      {
+        $score{$current_player}{$zahl}++;
+        $self_scored;
+      } else {
+        $scho++;
+        for my $playernum (1..$numplayer)
+        {
+          if ($score{$playernum}{$zahl}<3)
+          {
+            $score{$playernum}{0}+=$zahl;
+            $scored++;
+          }
+        }
+      }
+    }
+    print $schuss if ($scored || $scho || $self_scored);
+    print "scored\n" if $scored;
+    print "scho\n" if $scho;
+  } elsif ($mult eq 'btn') {
+    print $schuss;
     $current_player++;
+    $round++ if $current_player > $numplayer;
     $current_player=1 if $current_player > $numplayer;
-	}
-	print_score();
+    # print "player\n";
+    print $player[$current_player-1]."\n";
+  }
+  print_score($schuss);
 }
 
 
 
 sub print_score
 {
+  my ($schuss) =@_;
 # $term->Tputs('cl', 1, <STDERR>);
-				for my $playernum (1..$numplayer)
-				{
+  printf STDERR "\n\n";
+  printf STDERR "$schuss Runde\t$round\n\n";
+  for my $playernum (1..$numplayer)
+  {
 
-								printf STDERR "%s\t", ($playernum == $current_player)?"(".$player[$playernum-1].")":$player[$playernum-1];
-				}
-				print STDERR "\n";
-				for my $i (1..21)
-				{
-								for my $playernum (1..$numplayer)
-								{
-												my $zahl = $i>20?25:$i;
-												printf STDERR ("%2d %s    ",$zahl, '#' x $score{$playernum}{$zahl}. '-' x (3-$score{$playernum}{$zahl}));
-								}
-								print STDERR "\n";
-				}
-				for my $playernum (1..$numplayer)
-				{
+    printf STDERR "%s\t", ($playernum == $current_player)?"(".$player[$playernum-1].")":$player[$playernum-1];
+  }
+  print STDERR "\n";
+  for my $i (1..21)
+  {
+    for my $playernum (1..$numplayer)
+    {
+      next if not gueltig($i);
+      my $zahl = $i>20?25:$i;
+      printf STDERR ("%2d %s    ",$zahl, '#' x $score{$playernum}{$zahl}. '-' x (3-$score{$playernum}{$zahl}));
+    }
+    print STDERR "\n";
+  }
+  for my $playernum (1..$numplayer)
+  {
 
-								printf STDERR ("%3d\t", $score{$playernum}{0});
-				}
+    printf STDERR ("%3d\t", $score{$playernum}{0});
+  }
 }