| … | … | ||
|---|---|---|---|
| 88 | }; | 88 | }; |
| 89 | 89 | ||
| 90 | sub teleport { | 90 | sub teleport { |
| 91 | my ($pl, $map, $x, $y) = @_; | 91 | my ($pl, $map, $x, $y) = @_; |
| 92 | 92 | ||
| 93 | my $portal = cf::object::new ("exit"); | 93 | my $portal = cf::object::new "exit"; |
| 94 | 94 | ||
| 95 | $portal->set_slaying ($map->path); | 95 | $portal->set_slaying ($map->path); |
| 96 | $portal->set_hp ($x); | 96 | $portal->set_hp ($x); |
| 97 | $portal->set_sp ($y); | 97 | $portal->set_sp ($y); |
| 98 | 98 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |