}
+sub get_color
+{
+ 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 25/;
+ my $counter=0;
+ $counter++ while($zahl != shift @zahlen and @zahlen);
+ $mul=0 if $mul >1;
+ my $result = ($counter+$mul )%2;
+ return $result;
+}
+
sub init
{
my $self=shift;