| … | … | ||
|---|---|---|---|
| 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->hp ($x); |
| 20 | $portal->set_sp ($y); | 20 | $portal->sp ($y); |
| 21 | 21 | ||
| 22 | $portal->apply ($pl->ob); | 22 | $portal->apply ($pl->ob); |
| 23 | 23 | ||
| 24 | $portal->free; | 24 | $portal->free; |
| 25 | } | 25 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |