| … | … | ||
|---|---|---|---|
| 44 | 44 | ||
| 45 | return if $pl->ob->map->path eq $map | 45 | return if $pl->ob->map->path eq $map |
| 46 | && abs ($pl->ob->x - $x) <= 1 | 46 | && abs ($pl->ob->x - $x) <= 1 |
| 47 | && abs ($pl->ob->y - $y) <= 1; | 47 | && abs ($pl->ob->y - $y) <= 1; |
| 48 | 48 | ||
| 49 | my $portal = cf::object::new ("exit"); | 49 | my $portal = cf::object::new "exit"; |
| 50 | 50 | ||
| 51 | $portal->set_slaying ($map); | 51 | $portal->set_slaying ($map); |
| 52 | $portal->set_hp ($x); | 52 | $portal->set_hp ($x); |
| 53 | $portal->set_sp ($y); | 53 | $portal->set_sp ($y); |
| 54 | 54 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |