| … | |
… | |
| 17 | # along with cfmaps; if not, write to the Free Software |
17 | # along with cfmaps; if not, write to the Free Software |
| 18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
| 19 | |
19 | |
| 20 | our $VERSION = '2.202'; |
20 | our $VERSION = '2.202'; |
| 21 | |
21 | |
| 22 | use strict; |
22 | use common::sense; |
| 23 | |
23 | |
| 24 | use List::Util qw(min max); |
24 | use List::Util qw(min max); |
| 25 | use Deliantra; |
25 | use Deliantra; |
| 26 | |
26 | |
| 27 | my $T = 32; |
27 | my $T = 32; |
| … | |
… | |
| 153 | my @class; |
153 | my @class; |
| 154 | |
154 | |
| 155 | push @class, "fishy" if grep exists $_->{invisible} || exists $_->{face} |
155 | push @class, "fishy" if grep exists $_->{invisible} || exists $_->{face} |
| 156 | || exists $_->{move_block} || exists $_->{move_allow} |
156 | || exists $_->{move_block} || exists $_->{move_allow} |
| 157 | || exists $_->{no_pick} || exists $_->{tag} |
157 | || exists $_->{no_pick} || exists $_->{tag} |
| 158 | , @$as |
158 | , @$as; |
| 159 | push @class, "exit" if grep $is_exit{$ARCH{$_->{_name}}{type}} && $_->{slaying}, @$as; |
159 | push @class, "exit" if grep $is_exit{$ARCH{$_->{_name}}{type}} && $_->{slaying}, @$as; |
| 160 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
160 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
| 161 | |
161 | |
| 162 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
162 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
| 163 | print "<div>"; |
163 | print "<div>"; |
