… | |
… | |
15 | # |
15 | # |
16 | # You should have received a copy of the GNU General Public License |
16 | # You should have received a copy of the GNU General Public License |
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.201'; |
20 | our $VERSION = '2.202'; |
21 | |
21 | |
22 | use strict; |
22 | use strict; |
23 | |
23 | |
24 | use List::Util qw(min max); |
24 | use List::Util qw(min max); |
25 | use Deliantra; |
25 | use Deliantra; |
… | |
… | |
150 | print "<tr>"; |
150 | print "<tr>"; |
151 | for my $x (0.. $W - 1) { |
151 | for my $x (0.. $W - 1) { |
152 | if (my $as = $map[$x][$y]) { |
152 | if (my $as = $map[$x][$y]) { |
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}, @$as; |
157 | || exists $_->{no_pick} || exists $_->{tag} |
|
|
158 | , @$as |
158 | 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; |
159 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
160 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
160 | |
161 | |
161 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
162 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
162 | print "<div>"; |
163 | print "<div>"; |