… | |
… | |
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) { |
… | |
… | |
93 | |
93 | |
94 | $portal->set_slaying ($map->path); |
94 | $portal->set_slaying ($map->path); |
95 | $portal->set_hp ($x); |
95 | $portal->set_hp ($x); |
96 | $portal->set_sp ($y); |
96 | $portal->set_sp ($y); |
97 | |
97 | |
98 | $portal->apply ($pl, 0); |
98 | $portal->apply ($pl); |
99 | |
99 | |
100 | $portal->free; |
100 | $portal->free; |
101 | } |
101 | } |
102 | |
102 | |
103 | cf::register_command "accept-invitation" => 10, sub { |
103 | cf::register_command "accept-invitation" => 10, sub { |