X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-cricket.pl;h=c3199996f5344546de38917671377422ceba1eef;hb=e2babe3999a68a8a7fc77dd9260a8c88bd737ccb;hp=91431d9ddd7eb192d7a8622f72723032dedc3744;hpb=d96e3a99d81c498c26e7f000a0bd98953fc40e22;p=svn42.git

diff --git a/dart/dart-cricket.pl b/dart/dart-cricket.pl
index 91431d9..c319999 100755
--- a/dart/dart-cricket.pl
+++ b/dart/dart-cricket.pl
@@ -13,6 +13,7 @@ my $dart = new Dart(player_names=>\@player,
                       shoot=>\&shoot,   
                       next_player=>\&next_player,
                       before_shoot=>\&print_score,
+                      init=>\&init,
                     }
                   );
 exit $dart->run();
@@ -25,6 +26,36 @@ sub gueltig
   return $zahl>1;
 }
 
+sub init
+{
+  my $self=shift;
+  for my $i (0..21)
+  {
+    for my $player_idx (0..($self->{player_count}-1))
+    {
+      my $zahl = $i>20?25:$i;
+      next if $zahl > 0 and not gueltig($zahl);
+      $self->get_player($player_idx)->{score}->{$zahl}=0;
+    }
+  }
+}
+
+sub win_condition
+{
+  my ($self) = @_;
+  for my $i (keys %{$self->get_current_player()->{score}})
+  {
+    next if not $i;
+    return if $self->get_current_player()->{score}->{$i}<3;
+  }
+  my $score = $self->get_current_player()->{score}->{0};
+  for my $player_idx (0..($self->{player_count}-1))
+  {
+    return if $score > $self->get_player($player_idx)->{score}->{0};
+  }
+  return 1;
+}
+
 sub shoot
 {
   my $self=shift;
@@ -72,6 +103,7 @@ sub shoot
   $self->shout_last_shoot() if ($scored || $self_scored);
   $self->shout("scored") if $scored;
   $self->shout("scho") if $scho && not $scored;
+  $self->win() if &win_condition($self);
 }
 
 sub next_player