--- deliantra/server/ext/dmcommands.ext 2006/12/15 19:29:18 1.1 +++ deliantra/server/ext/dmcommands.ext 2007/01/01 16:00:10 1.3 @@ -68,7 +68,17 @@ 1 }; -for my $command (qw(reset teleport summon arrest kick banish)) { +cf::register_command reset => sub { + my ($ob, $arg) = @_; + + return unless $ob->may ("command_reset"); + + die;#d# + + 1 +}; + +for my $command (qw(teleport summon arrest kick banish)) { my $method = "command_$command"; cf::register_command $command => sub {