--- cfmaps/cfmap2html	2005/11/20 08:04:19	1.13
+++ cfmaps/cfmap2html	2005/11/20 08:58:26	1.17
@@ -121,14 +121,17 @@
           if (my $as = $meta->{map}[$x][$y]) {
              my @class;
 
-             push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as;
-             push @class, "exit"  if grep $is_exit{$arch->{$_->{_name}}{type}}, @$as;
-
-             my @connected = grep $_, map $_->{connected}, @$as;
+             push @class, "fishy"  if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as;
+             push @class, "exit"   if grep $is_exit{$arch->{$_->{_name}}{type}} && $_->{slaying}, @$as;
+             push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as;
 
              print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">";
              print "<div>";
-             print "<span class='c'>", (join ", ", @connected), "</span>" if @connected;
+
+             print join "\n", map "<span class='c'>$_</span>",
+                reverse sort { (length $a) <=> (length $b) or $b <=> $a }
+                   grep $_, map $_->{connected}, @$as;
+
              print "<div>($x|$y)";
 
              sub print_archs {