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

Comparing deliantra/server/ext/chat.ext (file contents):
Revision 1.49 by root, Mon Jan 26 00:10:38 2009 UTC vs.
Revision 1.56 by root, Sun Sep 5 05:01:39 2010 UTC

    my ($ob, $msg) = @_;
    my $pl = $ob->contr;
    my $name = $ob->name;
-   my $coin = int rand 2 ? "Heads" : "Tails";
+   my $coin = (cf::rndm 2) ? "Heads" : "Tails";
    send_msg $_, $cf::SAY_CHANNEL => "$name flips a coin.... $coin!", cf::NDI_GREY, "msg_say"
       for grep { $ob->on_same_map_as ($_->ob) && $_ != $pl} cf::player::list;
    $pl->send_msg ($cf::SAY_CHANNEL => "You flip a coin.... $coin!", cf::NDI_GREY | cf::NDI_REPLY);
    my $pl = $ob->contr;
    my $name = $ob->name;
    my @orcknuckle =  ("beholder", "ghost", "knight", "princess", "dragon", "orc");
-   my ($i, $j, $k, $l) = (rand 5, rand 5, rand 5, rand 6);
+   my ($i, $j, $k, $l) = map +(cf::rndm $_), 5, 5, 5, 6;
    my $result = "$orcknuckle[$i], $orcknuckle[$j], $orcknuckle[$k], $orcknuckle[$l]";
    send_msg $_, $cf::SAY_CHANNEL => "$name throws his orc-knuckles and rolls $result!", cf::NDI_GREY, "msg_say"
       for grep { $ob->on_same_map_as ($_->ob) && $_ != $pl} cf::player::list;
       },
    },
    kiss => {
       noparams => {
          other => "<self> makes a weird facial contortion",
-         self => "All the lonely people..",
+         self => "All the lonely people...",
       },
       params => {
          target => "<self> kisses you.",
          other => "<self> kisses <other>.",
          self => "You kiss <other>.",
       },
       self => {
       },
    },
+   hug => {
+      noparams => {
+         other => "<self> makes weird body movements.",
+         self => "All the lonely people...",
+      },
+      params => {
+         target => "<self> suddenly grabs you and gives you a bear hug.",
+         other => "<self> hugs <other>.",
+         self => "You hug <other>.",
+      },
+      self => {
+         other => "<self> tries to hug G<himself|herself>, but stumbles and now feels stupid.",
+         self => "You try and fail to hug yourself.",
+      },
+   },
    smother => {
       noparams => {
          other => "<self> makes weird facial contortions",
-         self => "All the lonely people..",
+         self => "All the lonely people...",
       },
       params => {
          target => "<self> smothers you with kisses.",
          other => "<self> smothers <other> with kisses.",
          self => "You smother <other> with kisses.",
                for grep { $ob->on_same_map_as ($_->ob) && $_ != $ob} cf::player::list;
             $pl->send_msg ($emote{self}, cf::NDI_GREY | cf::NDI_REPLY | cf::NDI_VERBATIM);
          } elsif ($tname) {
             my $target = cf::player::find $tname
-               or return send_msg $pl, tell_channel $tname, "$tname is not around.", cf::NDI_DK_ORANGE | cf::NDI_REPLY, "msg_chat";
+               or return send_msg $pl, tell_channel $tname, "The player called $tname is not known to this poor server.",
+                         cf::NDI_DK_ORANGE | cf::NDI_REPLY, "msg_chat";
+            $target->ob->active
+               or return send_msg $pl, tell_channel $tname, "$tname is not around. H<$tname must be logged in.>",
+                                  cf::NDI_DK_ORANGE | cf::NDI_REPLY, "msg_chat";
             my %emote = %{ $emotes->{$emotion}->{params} || {} };
             $emote{other}  ||= "<self> is eyeing <other> quizzically.";
             $emote{self}   ||= "You are still nuts.";
       send_msg $_, $cf::SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY, "msg_say"
          for grep $_ != $ob->contr, @plonmap;
       $ob->contr->send_msg ($cf::SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | cf::NDI_REPLY);
+      my @npc;
       # npcs, magic_ears etc.
       # first find all objects and their first-level inventories
       # within a 5x5 square that have something resembling
       # dialogue or support on_say.
+      # we prefer the nearest items NOT in the player, otherwise in player.
-      my ($map, $x, $y) = ($ob->map, $ob->x - 2, $ob->y - 2);
+      my ($map, $x, $y) = ($ob->map, $ob->x, $ob->y);
-      for my $npc (
+      for my $dir (
-         grep +($_->invoke (cf::EVENT_OBJECT_SAY, $ob->contr, $msg) && return) || $_->has_dialogue,
+         0,
-            map +($_, $_->inv),
+         1, 3, 5, 7,
-               grep $_,
+         2, 4, 6, 8,
-                  map $map->at ($x + $_ % 5, $y + (int $_ / 5)),
+         9 .. cf::SIZEOFFREE2
-                     0..24
       ) {
+         @npc = grep $_->should_invoke (cf::EVENT_OBJECT_SAY) || $_->has_dialogue,
+                   map +($_, $_->inv),
+                      grep $_ != $ob,
+                         $map->at ($x, $y, $dir)
+            and last;
+      }
+      unless (@npc) {
+         # nothing found, try the player inventory
+         @npc = grep $_->should_invoke (cf::EVENT_OBJECT_SAY) || $_->has_dialogue,
+                   $ob->inv;
+      }
+      for my $npc (@npc) {
+         return if $npc->invoke (cf::EVENT_OBJECT_SAY, $ob->contr, $msg);
          # if some listener teleported us somewhere else, stop right here
          last unless $map->path == $ob->map->path;
+         if ($npc->has_dialogue) {
-         my $dialog = new NPC_Dialogue pl => $ob->contr, npc => $npc;
+            my $dialog = new NPC_Dialogue pl => $ob->contr, npc => $npc;
-         my ($reply, @kw) = $dialog->tell ($msg);
+            my ($reply, @kw) = $dialog->tell ($msg);
-         if (defined $reply) {
+            if (defined $reply) {
-            if ($npc->type == cf::MAGIC_EAR) {
+               if ($npc->type == cf::MAGIC_EAR) {
-               send_msg $_, $cf::SAY_CHANNEL => $reply, cf::NDI_BROWN, "msg_say"
+                  send_msg $_, $cf::SAY_CHANNEL => $reply, cf::NDI_BROWN, "msg_say"
-                  for @plonmap;
+                     for @plonmap;
-            } else {
+               } else {
-               send_msg $_, $cf::SAY_CHANNEL => $npc->name . " says: $reply", cf::NDI_BROWN, "msg_say"
+                  send_msg $_, $cf::SAY_CHANNEL => $npc->name . " says: $reply", cf::NDI_BROWN, "msg_say"
+                     for @plonmap;
+               }
+            }
+            if (@kw) {
+               $_->send_msg ($cf::SAY_CHANNEL => "[further topics: " . (join ", ", @kw) . "]", cf::NDI_BROWN)
                   for @plonmap;
             }
-         }
-         if (@kw) {
-            $_->send_msg ($cf::SAY_CHANNEL => "[further topics: " . (join ", ", @kw) . "]", cf::NDI_BROWN)
-               for @plonmap;
          }
       }
    } else {
       $ob->send_msg ($cf::SAY_CHANNEL => "What do you want to say?", cf::NDI_GREY | cf::NDI_REPLY);

Diff Legend

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

Comparing deliantra/server/ext/chat.ext (file contents): Revision 1.49 by root, Mon Jan 26 00:10:38 2009 UTC vs. Revision 1.56 by root, Sun Sep 5 05:01:39 2010 UTC

Diff Legend

Comparing deliantra/server/ext/chat.ext (file contents):
Revision 1.49 by root, Mon Jan 26 00:10:38 2009 UTC vs.
Revision 1.56 by root, Sun Sep 5 05:01:39 2010 UTC