| … | |
… | |
| 120 | escape_html $meta->{info}{msg}, |
120 | escape_html $meta->{info}{msg}, |
| 121 | "</p>"; |
121 | "</p>"; |
| 122 | |
122 | |
| 123 | print "<table class='map'>"; |
123 | print "<table class='map'>"; |
| 124 | |
124 | |
| 125 | my %ignore = map +($_ => 1), qw(name _name x y); |
125 | my %ignore = map +($_ => 1), qw(name _name _atype x y); |
| 126 | my %is_exit = map +($_ => 1), 41, 57, 66; |
126 | my %is_exit = map +($_ => 1), 41, 57, 66; |
| 127 | |
127 | |
| 128 | for my $y (0.. $meta->{height} - 1) { |
128 | for my $y (0.. $meta->{height} - 1) { |
| 129 | print "<tr>"; |
129 | print "<tr>"; |
| 130 | for my $x (0.. $meta->{width} - 1) { |
130 | for my $x (0.. $meta->{width} - 1) { |
