… | |
… | |
1166 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
1166 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
1167 | $pl->ns->destroy if $pl->ns; |
1167 | $pl->ns->destroy if $pl->ns; |
1168 | |
1168 | |
1169 | my $path = playerdir $pl; |
1169 | my $path = playerdir $pl; |
1170 | my $temp = "$path~$cf::RUNTIME~deleting~"; |
1170 | my $temp = "$path~$cf::RUNTIME~deleting~"; |
1171 | IO::AIO::aio_rename $path, $temp, sub { |
1171 | Coro::AIO::aio_rename $path, $temp; |
1172 | delete $cf::PLAYER{$pl->ob->name}; |
1172 | delete $cf::PLAYER{$pl->ob->name}; |
1173 | $pl->destroy; |
1173 | $pl->destroy; |
1174 | |
|
|
1175 | IO::AIO::aio_rmtree $temp; |
1174 | IO::AIO::aio_rmtree $temp; |
1176 | }; |
|
|
1177 | } |
1175 | } |
1178 | |
1176 | |
1179 | =item $player->ext_reply ($msgid, $msgtype, %msg) |
1177 | =item $player->ext_reply ($msgid, $msgtype, %msg) |
1180 | |
1178 | |
1181 | Sends an ext reply to the player. |
1179 | Sends an ext reply to the player. |
… | |
… | |
1680 | $map = $map->customise_for ($self) if $map; |
1678 | $map = $map->customise_for ($self) if $map; |
1681 | |
1679 | |
1682 | # warn "entering ", $map->path, " at ($x, $y)\n" |
1680 | # warn "entering ", $map->path, " at ($x, $y)\n" |
1683 | # if $map; |
1681 | # if $map; |
1684 | |
1682 | |
|
|
1683 | $map or $map->cluck ("oy");#d# |
1685 | $map or $self->message ("The exit is closed", cf::NDI_UNIQUE | cf::NDI_RED); |
1684 | $map or $self->message ("The exit to '" . ($path->visible_name) . "' is closed", cf::NDI_UNIQUE | cf::NDI_RED); |
1686 | |
1685 | |
1687 | $self->leave_link ($map, $x, $y); |
1686 | $self->leave_link ($map, $x, $y); |
1688 | })->prio (1); |
1687 | })->prio (1); |
1689 | } |
1688 | } |
1690 | |
1689 | |