… | |
… | |
1523 | $pl->{deny_save} = 1; |
1523 | $pl->{deny_save} = 1; |
1524 | $pl->password ("*"); # this should lock out the player until we nuked the dir |
1524 | $pl->password ("*"); # this should lock out the player until we nuked the dir |
1525 | |
1525 | |
1526 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active; |
1526 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active; |
1527 | $pl->deactivate; |
1527 | $pl->deactivate; |
|
|
1528 | my $killer = cf::arch::get "killer_quit"; $pl->killer ($killer); $killer->destroy; |
|
|
1529 | $pl->ob->check_score; |
1528 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
1530 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
1529 | $pl->ns->destroy if $pl->ns; |
1531 | $pl->ns->destroy if $pl->ns; |
1530 | |
1532 | |
1531 | my $path = playerdir $pl; |
1533 | my $path = playerdir $pl; |
1532 | my $temp = "$path~$cf::RUNTIME~deleting~"; |
1534 | my $temp = "$path~$cf::RUNTIME~deleting~"; |