… | |
… | |
1862 | } |
1862 | } |
1863 | |
1863 | |
1864 | sub cf::object::player::enter_link { |
1864 | sub cf::object::player::enter_link { |
1865 | my ($self) = @_; |
1865 | my ($self) = @_; |
1866 | |
1866 | |
1867 | $self->activate_recursive; |
1867 | $self->deactivate_recursive; |
1868 | |
1868 | |
1869 | return if UNIVERSAL::isa $self->map, "ext::map_link"; |
1869 | return if UNIVERSAL::isa $self->map, "ext::map_link"; |
1870 | |
1870 | |
1871 | $self->{_link_pos} ||= [$self->map->{path}, $self->x, $self->y] |
1871 | $self->{_link_pos} ||= [$self->map->{path}, $self->x, $self->y] |
1872 | if $self->map; |
1872 | if $self->map; |