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

diff --git a/dart/dart-template.pl b/dart/dart-template.pl
new file mode 100644
index 0000000..f6a3e26
--- /dev/null
+++ b/dart/dart-template.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/perl
+use strict;
+use Dart;
+
+$|=1;
+my (@player) = @ARGV;
+
+my $dart = new Dart(player_names=>\@player, 
+                    callbacks => {
+                      shoot=>\&shoot,   
+                      next_player=>\&next_player,
+                      before_shoot=>\&print_score,
+                      init=>\&init,
+                    }
+                  );
+exit $dart->run();
+
+### ===============================
+
+sub init
+{
+  my $self=shift;
+  # TODO
+}
+
+sub win_condition
+{
+  my ($self) = @_;
+  # TODO
+  return 0;
+}
+
+sub shoot
+{
+  my $self=shift;
+  my ($mult,$zahl)=@_;
+  # $self->get_current_player()->{score} = {} if not $self->get_current_player()->{score}; 
+
+  # if (not gueltig($zahl,$mult))
+  # {
+  #   $self->shout("miss");
+  #   return;
+  # }
+
+  # $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
+{
+  my $self=shift;
+
+  # TODO
+}
+
+sub print_score
+{
+  my ($self)=@_;
+  printf STDERR "\n\n";
+  printf STDERR "Runde\t%d\n\n",$self->{round};
+  for my $player_idx (0..($self->{player_count}-1))
+  {
+    printf STDERR "%s\t", ($player_idx == $self->{current_player})?"(".$self->get_player($player_idx)->{name}.")":$self->get_player($player_idx)->{name};
+  }
+  print STDERR "\n";
+  
+  # TODO
+}