… | |
… | |
776 | |
776 | |
777 | if ($msg) { |
777 | if ($msg) { |
778 | my $name = $ob->name; |
778 | my $name = $ob->name; |
779 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
779 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
780 | |
780 | |
781 | $_->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | ($_ == $ob ? cf::NDI_REPLY : 0)) |
781 | $_->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | ($_ == $ob->contr ? cf::NDI_REPLY : 0)) |
782 | for @plonmap; |
782 | for @plonmap; |
783 | |
783 | |
784 | # npcs, magic_ears etc. |
784 | # npcs, magic_ears etc. |
785 | # first find all objects and their first-level inventories |
785 | # first find all objects and their first-level inventories |
786 | # within a 5x5 square that have something resembling |
786 | # within a 5x5 square that have something resembling |