| … | |
… | |
| 13 | && abs ($pl->ob->x - $x) <= 1 |
13 | && abs ($pl->ob->x - $x) <= 1 |
| 14 | && abs ($pl->ob->y - $y) <= 1; |
14 | && abs ($pl->ob->y - $y) <= 1; |
| 15 | |
15 | |
| 16 | my $portal = cf::object::new "exit"; |
16 | my $portal = cf::object::new "exit"; |
| 17 | |
17 | |
| 18 | $portal->set_slaying ($map); |
18 | $portal->slaying ($map); |
| 19 | $portal->set_hp ($x); |
19 | $portal->stats->hp ($x); |
| 20 | $portal->set_sp ($y); |
20 | $portal->stats->sp ($y); |
| 21 | |
21 | |
| 22 | $portal->apply ($pl->ob); |
22 | $portal->apply ($pl->ob); |
| 23 | |
23 | |
| 24 | $portal->free; |
24 | $portal->free; |
| 25 | } |
25 | } |
| … | |
… | |
| 56 | } |
56 | } |
| 57 | |
57 | |
| 58 | $_[0]->w->stop unless keys %follow; |
58 | $_[0]->w->stop unless keys %follow; |
| 59 | }); |
59 | }); |
| 60 | |
60 | |
| 61 | cf::register_command follow => 0, sub { |
61 | cf::register_command follow => sub { |
| 62 | my ($who, $args) = @_; |
62 | my ($who, $args) = @_; |
| 63 | |
63 | |
| 64 | my $name = $who->name; |
64 | my $name = $who->name; |
| 65 | |
65 | |
| 66 | if ($args ne "" && $name ne $args) { |
66 | if ($args ne "" && $name ne $args) { |
