| 1 | #! perl # mandatory |
1 | #! perl # mandatory depends=highscore |
| 2 | |
2 | |
| 3 | # login handling |
3 | # login handling |
| 4 | |
4 | |
| 5 | use Fcntl; |
5 | use Fcntl; |
| 6 | use Coro::AIO; |
6 | use Coro::AIO; |
| … | |
… | |
| 424 | # update respawn position |
424 | # update respawn position |
| 425 | $pl->savebed ($bed->map->path, $bed->x, $bed->y); |
425 | $pl->savebed ($bed->map->path, $bed->x, $bed->y); |
| 426 | cf::async { $pl->save }; |
426 | cf::async { $pl->save }; |
| 427 | |
427 | |
| 428 | my $killer = cf::arch::get "killer_logout"; $pl->killer ($killer); $killer->destroy; |
428 | my $killer = cf::arch::get "killer_logout"; $pl->killer ($killer); $killer->destroy; |
| 429 | $ob->check_score; |
429 | ext::highscore::check $ob; |
| 430 | |
430 | |
| 431 | $ob->send_msg ($cf::SAY_CHANNEL => "In the future, you will wake up here when you die.", cf::NDI_DEF | cf::NDI_REPLY); |
431 | $ob->send_msg ($cf::SAY_CHANNEL => "In the future, you will wake up here when you die.", cf::NDI_DEF | cf::NDI_REPLY); |
| 432 | |
432 | |
| 433 | $pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub { |
433 | $pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub { |
| 434 | if ($_[0] !~ /^[yY]/) { |
434 | if ($_[0] !~ /^[yY]/) { |
