… | |
… | |
1462 | $path = new cf::path $path; |
1462 | $path = new cf::path $path; |
1463 | |
1463 | |
1464 | my $map = cf::map::find_map $path->as_string; |
1464 | my $map = cf::map::find_map $path->as_string; |
1465 | $map = $map->customise_for ($self) if $map; |
1465 | $map = $map->customise_for ($self) if $map; |
1466 | |
1466 | |
1467 | warn "entering ", $map->path, " at ($x, $y)\n" |
1467 | # warn "entering ", $map->path, " at ($x, $y)\n" |
1468 | if $map; |
1468 | # if $map; |
1469 | |
1469 | |
1470 | $map or $self->message ("The exit is closed", cf::NDI_UNIQUE | cf::NDI_RED); |
1470 | $map or $self->message ("The exit is closed", cf::NDI_UNIQUE | cf::NDI_RED); |
1471 | |
1471 | |
1472 | $self->leave_link ($map, $x, $y); |
1472 | $self->leave_link ($map, $x, $y); |
1473 | })->prio (1); |
1473 | })->prio (1); |