| … | |
… | |
| 18 | my ($ob, $arg) = @_; |
18 | my ($ob, $arg) = @_; |
| 19 | |
19 | |
| 20 | return unless $ob->may ("command_teleport"); |
20 | return unless $ob->may ("command_teleport"); |
| 21 | |
21 | |
| 22 | cf::async { |
22 | cf::async { |
| 23 | my $other = cf::player::find $arg |
23 | my $other = cf::player::find_active $arg |
| 24 | or return $ob->reply (undef, "$arg: no such player."); |
24 | or return $ob->reply (undef, "$arg: no such player."); |
| 25 | |
25 | |
| 26 | $ob->goto ($other->maplevel, $other->ob->x, $other->ob->y); |
26 | $ob->goto ($other->maplevel, $other->ob->x, $other->ob->y); |
| 27 | }; |
27 | }; |
| 28 | |
28 | |
