| … | |
… | |
| 495 | |
495 | |
| 496 | $pl->save; |
496 | $pl->save; |
| 497 | |
497 | |
| 498 | $ob->send_msg ($cf::SAY_CHANNEL => "In the future, you will wake up here when you die.", cf::NDI_DEF | cf::NDI_REPLY); |
498 | $ob->send_msg ($cf::SAY_CHANNEL => "In the future, you will wake up here when you die.", cf::NDI_DEF | cf::NDI_REPLY); |
| 499 | |
499 | |
|
|
500 | my $ns = $pl->ns |
|
|
501 | or return; |
|
|
502 | |
| 500 | $pl->ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub { |
503 | $ns->query (cf::CS_QUERY_SINGLECHAR, "Do you want to continue playing (y/n)?", sub { |
| 501 | if ($_[0] !~ /^[yY]/) { |
504 | if ($_[0] !~ /^[yY]/) { |
| 502 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1); |
505 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1); |
| 503 | $pl->deactivate; |
506 | $pl->deactivate; |
| 504 | $pl->ns->destroy; |
507 | $pl->ns->destroy; |
| 505 | } |
508 | } |
