projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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,
next_player=>\&next_player,
before_shoot=>\&print_score,
init=>\&init,
+ end_game=>\&Dart::plot_trace_shoot,
}
);
}
);
+$dart->trace_shoot('score');
exit $dart->run();
### ===============================
exit $dart->run();
### ===============================
@@
-22,7
+24,6
@@
exit $dart->run();
sub init
{
my $self=shift;
sub init
{
my $self=shift;
-
for my $player_idx (0..($self->{player_count}-1))
{
$self->get_player($player_idx)->{score} = $maxScore;
for my $player_idx (0..($self->{player_count}-1))
{
$self->get_player($player_idx)->{score} = $maxScore;