… | |
… | |
1635 | $pl->password ("*"); # this should lock out the player until we have nuked the dir |
1635 | $pl->password ("*"); # this should lock out the player until we have nuked the dir |
1636 | |
1636 | |
1637 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active; |
1637 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active; |
1638 | $pl->deactivate; |
1638 | $pl->deactivate; |
1639 | my $killer = cf::arch::get "killer_quit"; $pl->killer ($killer); $killer->destroy; |
1639 | my $killer = cf::arch::get "killer_quit"; $pl->killer ($killer); $killer->destroy; |
1640 | $pl->ob->check_score; |
|
|
1641 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
1640 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
1642 | $pl->ns->destroy if $pl->ns; |
1641 | $pl->ns->destroy if $pl->ns; |
1643 | |
1642 | |
1644 | my $path = playerdir $pl; |
1643 | my $path = playerdir $pl; |
1645 | my $temp = "$path~$cf::RUNTIME~deleting~"; |
1644 | my $temp = "$path~$cf::RUNTIME~deleting~"; |