--- deliantra/server/lib/cf.pm	2007/02/17 23:54:35	1.220
+++ deliantra/server/lib/cf.pm	2007/03/02 13:32:52	1.221
@@ -1056,6 +1056,20 @@
    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