| … | … | ||
|---|---|---|---|
| 96 | sub teleport { | 96 | sub teleport { |
| 97 | my ($pl, $map, $x, $y) = @_; | 97 | my ($pl, $map, $x, $y) = @_; |
| 98 | 98 | ||
| 99 | my $portal = cf::object::new "exit"; | 99 | my $portal = cf::object::new "exit"; |
| 100 | 100 | ||
| 101 | $portal->set_slaying ($map->path); | 101 | $portal->slaying ($map->path); |
| 102 | $portal->set_hp ($x); | 102 | $portal->hp ($x); |
| 103 | $portal->set_sp ($y); | 103 | $portal->sp ($y); |
| 104 | 104 | ||
| 105 | $portal->apply ($pl); | 105 | $portal->apply ($pl); |
| 106 | 106 | ||
| 107 | $portal->free; | 107 | $portal->free; |
| 108 | } | 108 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |