[ViewVC] Diff of: cvs/deliantra/maps/perl/chat.ext

Comparing deliantra/maps/perl/chat.ext (file contents):
Revision 1.13 by pippijn, Sun May 7 19:51:50 2006 UTC vs.
Revision 1.20 by root, Wed Jul 19 08:52:57 2006 UTC

 #! perl
-# implement a replacement for the built-in chat/shout/tell/reply commands
+# implement a replacement for the built-in say/chat/shout/tell/reply commands
 # adds ignore/unignore functionality
+use NPC_Dialogue;
 sub valid_user($) {
+   cf::player::find $_[0]
-   -f sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($_[0]) x 2;
+      or -f sprintf "%s/%s/%s/%s.pl", cf::localdir, cf::playerdir, ($_[0]) x 2;
 }
 sub clean_timeouts($) {
    my ($player) = @_;
    my $NOW = time;
    for my $hash (@$player{qw(ext_ignore_shout ext_ignore_tell)}) {
       while (my ($k, $v) = each %$hash) {
          if ($v < $NOW) {
-            $player->message ("Your ignore on $k has expired.", cf::NDI_GREEN);
+            $player->message ("Your ignore on $k has expired.", cf::NDI_GREEN | cf::NDI_UNIQUE);
             delete $hash->{$k};
          } elsif (!valid_user $k) {
-            $player->message ("Your ignore on $k is no longer valid (no such user).", cf::NDI_GREEN);
+            $player->message ("Your ignore on $k is no longer valid (no such user).", cf::NDI_GREEN | cf::NDI_UNIQUE);
             delete $hash->{$k};
          }
       }
    }
 }
 sub on_logout {
    my ($pl, $host) = @_;
    clean_timeouts $pl->ob;
 }
+cf::register_command listen => 0, sub {
+   my ($who, $msg) = @_;
+   my $player = cf::player::find $who->name;
+   if ($msg ne "") {
+      my $prev_listen = $player->listening;
+      $player->listening ($msg);
+      if ($prev_listen == $player->listening) {
+         $who->message ("Your verbose level stayed $prev_listen.", cf::NDI_UNIQUE);
+      } else {
+         $who->message ("Your verbose level is now " . $player->listening . ". (previously: $prev_listen)", cf::NDI_UNIQUE);
+      }
+   } else {
+      $who->message ("Your verbose level is " . $player->listening . ".", cf::NDI_UNIQUE);
+   }
+};
+cf::register_command xsay => 0, sub {
+   my ($who, $msg) = @_;
+   if ($msg) {
+      my $name = $who->name;
+      my @messages = (["$name says: $msg", cf::NDI_GREY | cf::NDI_UNIQUE]);
+      # npcs, magic_ears etc.
+      # first find all objects and their inventories within a 5x5 square
+      # that have something resembling dialogue
+      my ($map, $x, $y) = ($who->map, $who->x - 2, $who->y - 2);
+      for my $npc (
+         grep NPC_Dialogue::has_dialogue $_,
+            map +($_, $_->inv),
+               grep $_,
+                  map $map->at ($x + $_ % 5, $y + (int $_ / 5)),
+                     0..24
+      ) {
+         # if some listener teleported us somewhere else, stop right here
+         last unless $map->path == $who->map->path;
+         my $dialog = new NPC_Dialogue ob => $who, npc => $npc;
+         my $reply = $dialog->tell ($msg);
+         if (defined $reply) {
+            if ($npc->type == cf::MAGIC_EAR) {
+               push @messages, [$reply, cf::NDI_BROWN | cf::NDI_UNIQUE] if length $reply;
+               $npc->use_trigger;
+            } else {
+               push @messages, [$npc->name . " says: $reply", cf::NDI_BROWN | cf::NDI_UNIQUE] if length $reply;
+            }
+         }
+      }
+      # send replies to all players on this map
+      for (@messages) {
+         my ($msg, $flags) = @$_;
+         $_->ob->message ($msg, $flags)
+            for grep $who->on_same_map_as ($_->ob), cf::player::list;
+      }
+   } else {
+      $who->message ("What do you want to say?", cf::NDI_UNIQUE);
+   }
+};
 cf::register_command chat => 0, sub {
    my ($who, $msg) = @_;
    if ($msg) {
       my $name = $who->name;
       my $NOW = time;
+      cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg;
       $_->ob->message ("$name chats: $msg", cf::NDI_BLUE)
-         for grep { $_->ob->{ext_ignore_shout}{$name} and $_->listening >= 10 } < $NOW, cf::player::list;
+         for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 10 } cf::player::list;
    } else {
       $who->message ("Chat what?", cf::NDI_UNIQUE);
    }
 };
    if ($msg) {
       my $NOW = time;
       my $name = $who->name;
+      cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg;
       $_->ob->message ("$name shouts: $msg", cf::NDI_RED)
-         for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW and $_->listening >= 2 }, cf::player::list;
+         for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 2 } cf::player::list;
    } else {
       $who->message ("Shout what?", cf::NDI_UNIQUE);
    }
          if ($target eq $name) {
             $who->message ("You are talking to yourself, you freak!", cf::NDI_UNIQUE);
          } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) {
             $who->message ("$target ignores what you say. Give up on it.", cf::NDI_UNIQUE);
          } else {
+            cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $target, $msg;
             $who->message ("You tell $target: $msg");
             $other->ob->message ("$name tells you: $msg");
             $other->ob->{ext_last_tell} = $name;
          }
       } else {
          $other->ob->{ext_ignore_tell}{$name} >= time
             or delete $other->ob->{ext_ignore_tell}{$name};
          if ($other->ob->{ext_ignore_tell}{$name} < time) {
+            cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $other->ob->name, $args;
             $who->message ("You tell " . $other->ob->name . ": $args");
             $other->ob->message ("$name tells you: $args");
             $who->{ext_last_tell} = $other->ob->name;
          } else {
             $who->message ($other->ob->name . " ignores what you say. Give up on it.", cf::NDI_UNIQUE);

Diff Legend

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines

Comparing deliantra/maps/perl/chat.ext (file contents): Revision 1.13 by pippijn, Sun May 7 19:51:50 2006 UTC vs. Revision 1.20 by root, Wed Jul 19 08:52:57 2006 UTC

Diff Legend

Comparing deliantra/maps/perl/chat.ext (file contents):
Revision 1.13 by pippijn, Sun May 7 19:51:50 2006 UTC vs.
Revision 1.20 by root, Wed Jul 19 08:52:57 2006 UTC