| … | |
… | |
| 1987 | =cut |
1987 | =cut |
| 1988 | |
1988 | |
| 1989 | sub cf::object::player::goto { |
1989 | sub cf::object::player::goto { |
| 1990 | my ($self, $path, $x, $y, $check) = @_; |
1990 | my ($self, $path, $x, $y, $check) = @_; |
| 1991 | |
1991 | |
| 1992 | #d# #TODO# |
|
|
| 1993 | if ($check && !ref $check) { |
|
|
| 1994 | warn Carp::longmess "goto called with non-ref check argument";#d# |
|
|
| 1995 | undef $check; |
|
|
| 1996 | } |
|
|
| 1997 | |
|
|
| 1998 | $self->enter_link; |
1992 | $self->enter_link; |
| 1999 | |
1993 | |
| 2000 | (async { |
1994 | (async { |
| 2001 | my $map = eval { |
1995 | my $map = eval { |
| 2002 | my $map = cf::map::find $path; |
1996 | my $map = cf::map::find $path; |
