… | |
… | |
1662 | my $name = $pl->ob->name; |
1662 | my $name = $pl->ob->name; |
1663 | |
1663 | |
1664 | $pl->{deny_save} = 1; |
1664 | $pl->{deny_save} = 1; |
1665 | $pl->password ("*"); # this should lock out the player until we have nuked the dir |
1665 | $pl->password ("*"); # this should lock out the player until we have nuked the dir |
1666 | |
1666 | |
1667 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active; |
1667 | $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->ns; |
1668 | $pl->deactivate; |
1668 | $pl->deactivate; |
1669 | |
1669 | |
1670 | my $killer = cf::arch::get "killer_quit"; $pl->killer ($killer); $killer->destroy; |
1670 | my $killer = cf::arch::get "killer_quit"; $pl->killer ($killer); $killer->destroy; |
|
|
1671 | $pl->invoke (cf::EVENT_PLAYER_QUIT) if $pl->ns; |
1671 | ext::highscore::check ($pl->ob); |
1672 | ext::highscore::check ($pl->ob); |
1672 | |
1673 | |
1673 | $pl->invoke (cf::EVENT_PLAYER_QUIT); |
|
|
1674 | $pl->ns->destroy if $pl->ns; |
1674 | $pl->ns->destroy if $pl->ns; |
1675 | |
1675 | |
1676 | my $path = playerdir $pl; |
1676 | my $path = playerdir $pl; |
1677 | my $temp = "$path~$cf::RUNTIME~deleting~"; |
1677 | my $temp = "$path~$cf::RUNTIME~deleting~"; |
1678 | aio_rename $path, $temp; |
1678 | aio_rename $path, $temp; |