X-Git-Url: https://git.realraum.at/?a=blobdiff_plain;f=dart%2Fdart-red-x01.pl;h=af4491c50738441f10d3d7c537d096980a1c10ff;hb=52738a9c3bc2b9bbd0729d8ba1dcb1b970681e67;hp=78c3a9e2cea355c2db0bb7bd495216816b27e741;hpb=bb6a4ae2d56165eda02ce1232d40efd1381ffef0;p=svn42.git diff --git a/dart/dart-red-x01.pl b/dart/dart-red-x01.pl index 78c3a9e..af4491c 100755 --- a/dart/dart-red-x01.pl +++ b/dart/dart-red-x01.pl @@ -13,8 +13,10 @@ my $dart = new Dart(player_names=>\@player, next_player=>\&next_player, before_shoot=>\&print_score, init=>\&init, + end_game=>\&Dart::plot_trace_shoot, } ); +$dart->trace_shoot('score'); exit $dart->run(); ### =============================== @@ -22,7 +24,6 @@ exit $dart->run(); sub init { my $self=shift; - for my $player_idx (0..($self->{player_count}-1)) { $self->get_player($player_idx)->{score} = $maxScore;