--- deliantra/server/ext/dmcommands.ext	2007/03/01 20:20:05	1.16
+++ deliantra/server/ext/dmcommands.ext	2007/03/02 13:32:50	1.17
@@ -2,6 +2,18 @@
 
 # wizard commands
 
+cf::register_command kick => sub {
+   my ($ob, $arg) = @_;
+   return unless $ob->flag (cf::FLAG_WIZ);
+
+   my $other = cf::player::find_active $arg
+      or return 0;
+   $other->kick ($ob);
+   $ob->reply (undef, "$arg is kicked out of the game.", cf::NDI_UNIQUE | cf::NDI_ALL | cf::NDI_RED);
+
+   1
+};
+
 cf::register_command goto => sub {
    my ($ob, $arg) = @_;
 
@@ -98,7 +110,7 @@
    1
 };
 
-for my $command (qw(summon arrest kick banish)) {
+for my $command (qw(summon arrest banish)) {
    my $method = "command_$command";
 
    cf::register_command $command => sub {