--- deliantra/server/ext/dmcommands.ext	2007/03/14 15:44:47	1.19
+++ deliantra/server/ext/dmcommands.ext	2007/06/03 17:05:35	1.20
@@ -121,6 +121,17 @@
    1
 };
 
+cf::register_command observe => sub {
+   my ($ob, $arg) = @_;
+
+   return unless $ob->may ("command_observe");
+
+   my $other = cf::player::find_active $arg;
+   $ob->contr->set_observe ($other ? $other->ob : undef);
+
+   1
+};
+
 for my $command (qw(summon arrest banish)) {
    my $method = "command_$command";