added dart red/blue

[svn42.git] / dart / dart-red-x01.pl

diff --git a/dart/dart-red-x01.pl b/dart/dart-red-x01.pl
index 78c3a9e..af4491c 100755 (executable)
--- 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;