[ViewVC] Diff of: cvs/deliantra/server/lib/cf.pm

Comparing deliantra/server/lib/cf.pm (file contents):
Revision 1.219 by root, Sat Feb 17 03:19:44 2007 UTC vs.
Revision 1.222 by root, Tue Mar 6 03:06:00 2007 UTC

 =cut
 sub quit_character {
    my ($pl) = @_;
+   my $name = $pl->ob->name;
    $pl->{deny_save} = 1;
    $pl->password ("*"); # this should lock out the player until we nuked the dir
    $pl->invoke (cf::EVENT_PLAYER_LOGOUT, 1) if $pl->active;
    $pl->deactivate;
    my $path = playerdir $pl;
    my $temp = "$path~$cf::RUNTIME~deleting~";
    aio_rename $path, $temp;
    delete $cf::PLAYER{$pl->ob->name};
    $pl->destroy;
+   my $prefix = qr<^~\Q$name\E/>;
+   # nuke player maps
+   $cf::MAP{$_}->nuke for grep /$prefix/, keys %cf::MAP;
    IO::AIO::aio_rmtree $temp;
+}
+=item $pl->kick
+Kicks a player out of the game. This destroys the connection.
+=cut
+sub kick {
+   my ($pl, $kicker) = @_;
+   $pl->invoke (cf::EVENT_PLAYER_KICK, $kicker);
+   $pl->killer ("kicked");
+   $pl->ns->destroy;
 }
 =item cf::player::list_logins
 Returns am arrayref of all valid playernames in the system, can take a
       warn "loading extensions";
       cf::load_extensions;
       warn "reattaching attachments to objects/players";
-      _global_reattach;
+      _global_reattach; # objects, sockets
       warn "reattaching attachments to maps";
       reattach $_ for values %MAP;
+      warn "reattaching attachments to players";
+      reattach $_ for values %PLAYER;
       warn "loading reloadable resources";
       init_resources;
       warn "leaving sync_job";

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines