| … | |
… | |
| 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.2'; |
20 | our $VERSION = '2.201'; |
| 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 $_->{invisible} || $_->{face} || exists $_->{no_pass} || exists $_->{no_pick}, @$as; |
155 | push @class, "fishy" if grep exists $_->{invisible} || exists $_->{face} |
|
|
156 | || exists $_->{move_block} || exists $_->{move_allow} |
|
|
157 | || exists $_->{no_pick}, @$as; |
| 156 | push @class, "exit" if grep $is_exit{$ARCH{$_->{_name}}{type}} && $_->{slaying}, @$as; |
158 | push @class, "exit" if grep $is_exit{$ARCH{$_->{_name}}{type}} && $_->{slaying}, @$as; |
| 157 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
159 | push @class, "dialog" if grep $_->{msg} =~ /^\@match/m, @$as; |
| 158 | |
160 | |
| 159 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
161 | print "<td", (@class ? " class='" . (join " ", @class) . "'" : ""), ">"; |
| 160 | print "<div>"; |
162 | print "<div>"; |
