| … | |
… | |
| 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 | } |
| … | |
… | |
| 39 | @$his = ($map, $x, $y); |
39 | @$his = ($map, $x, $y); |
| 40 | } |
40 | } |
| 41 | |
41 | |
| 42 | my $map; |
42 | my $map; |
| 43 | |
43 | |
| 44 | if ($map = cf::map::map $mine->[0] |
44 | if ($map = cf::map::find $mine->[0] |
| 45 | and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR), |
45 | and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR), |
| 46 | $map->at ($mine->[1], $mine->[2])) { |
46 | $map->at ($mine->[1], $mine->[2])) { |
| 47 | teleport $who, @$mine; |
47 | teleport $who, @$mine; |
| 48 | } else { |
48 | } else { |
| 49 | delete $follow{$name}; |
49 | delete $follow{$name}; |
