--- deliantra/server/ext/chat.ext	2008/05/01 06:33:19	1.40
+++ deliantra/server/ext/chat.ext	2008/08/29 02:07:09	1.42
@@ -63,23 +63,8 @@
    },
 );
 
+# TODO: remove once safe
 cf::register_command listen => sub {
-   my ($pl, $msg) = @_;
-   my $player = cf::player::find_active $pl->name;
-
-   if ($msg ne "") {
-      $msg = 10 if $msg > 10;
-
-      my $prev_listen = $player->listening;
-      $player->listening ($msg);
-      if ($prev_listen == $player->listening) {
-         $pl->message ("Your verbose level stays at $prev_listen.", cf::NDI_REPLY);
-      } else {
-         $pl->message ("Your verbose level is now " . $player->listening . ". (previously: $prev_listen)", cf::NDI_REPLY);
-      }
-   } else {
-      $pl->message ("Your verbose level is " . $player->listening . ".", cf::NDI_REPLY);
-   }
 };
 
 cf::register_command cointoss => sub {
@@ -797,7 +782,7 @@
       my ($map, $x, $y) = ($ob->map, $ob->x - 2, $ob->y - 2);
 
       for my $npc (
-         grep +($_->invoke (cf::EVENT_OBJECT_SAY, $ob->contr, $msg) && return) || NPC_Dialogue::has_dialogue $_,
+         grep +($_->invoke (cf::EVENT_OBJECT_SAY, $ob->contr, $msg) && return) || $_->has_dialogue,
             map +($_, $_->inv),
                grep $_,
                   map $map->at ($x + $_ % 5, $y + (int $_ / 5)),