| … | |
… | |
| 119 | print "<tr>"; |
119 | print "<tr>"; |
| 120 | for my $x (0.. $meta->{width} - 1) { |
120 | for my $x (0.. $meta->{width} - 1) { |
| 121 | if (my $as = $meta->{map}[$x][$y]) { |
121 | if (my $as = $meta->{map}[$x][$y]) { |
| 122 | my @class; |
122 | my @class; |
| 123 | |
123 | |
| 124 | push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as; |
124 | push @class, "fishy" if grep $_->{invisible} || $_->{face} || exists $_->{no_pass}, @$as; |
| 125 | push @class, "exit" if grep $is_exit{$arch->{$_->{_name}}{type}} && $_->{slaying}, @$as; |
125 | push @class, "exit" if grep $is_exit{$arch->{$_->{_name}}{type}} && $_->{slaying}, @$as; |
| 126 | push @class, "npc" if grep $_->{msg}, @$as; |
126 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
| 127 | |
127 | |
| 128 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
128 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
| 129 | print "<div>"; |
129 | print "<div>"; |
| 130 | |
130 | |
| 131 | print join "\n", map "<span class='c'>$_</span>", |
131 | print join "\n", map "<span class='c'>$_</span>", |
