… | |
… | |
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 | |