| … | |
… | |
| 19 | List::Util::max |
19 | List::Util::max |
| 20 | map $_->type == cf::FORCE && $_->slaying =~ /^Invitor Level (\d+)$/ ? $1 : 0, |
20 | map $_->type == cf::FORCE && $_->slaying =~ /^Invitor Level (\d+)$/ ? $1 : 0, |
| 21 | $ob->inv |
21 | $ob->inv |
| 22 | } |
22 | } |
| 23 | |
23 | |
| 24 | # determine level required for the given map/position |
24 | # determine level required for the given location |
| 25 | sub map_level { |
25 | sub map_level { |
| 26 | my ($map, $x, $y) = @_; |
26 | my ($map, $x, $y) = @_; |
| 27 | |
27 | |
| 28 | for my $x (0 .. $map->width - 1) { |
28 | for my $x (0 .. $map->width - 1) { |
| 29 | for my $y (0 .. $map->height - 1) { |
29 | for my $y (0 .. $map->height - 1) { |
