sub crossover_magic {
  my %opt = @_;

  our $magic;

  my $open_directory = file_directory('Fandom/Crossovers', 'imagesd');
  my $link_directory = file_directory('Fandom/Crossovers', 'images');
  my @cross_files = file_list($open_directory);
  my @big_images = $opt{big} ? @{$opt{big}} : ();
  for my $cross_file (@cross_files) {
    my $link  = "$link_directory/$cross_file";
    my $text  = textify($cross_file);
    my $class = 'svg_group';
       $class .= ' right' unless grep(/$text/i, @big_images);
    my $title = "$text chart";

    $magic->{$text} = sub {
      figure(6, sub {
        line(7, anchor( '', { 'href' => $link, 'target' => 'new' }));
        line(7, object( '', { 'data' => $link, 'type' => 'image/svg+xml'}));
      }, { 'class' => "$class", 'title' => $title });
    };
  }

  my $series = series('data', 'me');
  my $series_list = movie_option('series');
  for my $item (sort keys %$series_list) {
    my $magic_search;
    my $magic_text;
    if ($series->{$item}) {
      for my $program (@{$series->{$item}->{programs}}) {
        my $magic_key    = $item eq $program ? "$program-single" : $program;
           $magic_text   = textify($program);
           $magic_search = searchify($item, [$program]);
        $magic->{$magic_key} = qq(A<I<$magic_text>|href="../../Movies/Movies_by_series.pl?series=$magic_search">);
      }
    }
    $magic_text   = $item eq 'Scorpion' ? '&#60;/Scorpion&#62;' :
                    $item eq 'EUReKA'   ? 'EURSUP<e>KA' :
                    textify($item);
    $magic_search = searchify($item);
    $magic->{$item} = qq(A<I<$magic_text>|href="../../Movies/Movies_by_series.pl?series=$magic_search">);
  }

  return $magic;
}