projects
/
svn42.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
bugfixes and sounds
[svn42.git]
/
dart
/
Dart.pm
diff --git
a/dart/Dart.pm
b/dart/Dart.pm
index
d9b3795
..
7adec4a
100644
(file)
--- a/
dart/Dart.pm
+++ b/
dart/Dart.pm
@@
-29,7
+29,7
@@
sub get_color
{
my $self=shift;
my ($mul,$zahl)=@_;
{
my $self=shift;
my ($mul,$zahl)=@_;
- my @zahlen = qw/20 1 18 4 13 6 10 15 2 17 3 19 7 16 8 11 14 9 12 5/;
+ my @zahlen = qw/20 1 18 4 13 6 10 15 2 17 3 19 7 16 8 11 14 9 12 5 25/;
my $counter=0;
$counter++ while($zahl != shift @zahlen and @zahlen);
$mul=0 if $mul >1;
my $counter=0;
$counter++ while($zahl != shift @zahlen and @zahlen);
$mul=0 if $mul >1;