| … | |
… | |
| 785 | |
785 | |
| 786 | if ($msg) { |
786 | if ($msg) { |
| 787 | my $name = $ob->name; |
787 | my $name = $ob->name; |
| 788 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
788 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
| 789 | |
789 | |
| 790 | send_msg $_, $SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | ($_ == $ob->contr ? cf::NDI_REPLY : 0), "msg_say" |
790 | send_msg $_, $SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY, "msg_say" |
| 791 | for @plonmap; |
791 | for grep $_ != $ob->contr, @plonmap; |
|
|
792 | $ob->contr->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | cf::NDI_REPLY); |
| 792 | |
793 | |
| 793 | # npcs, magic_ears etc. |
794 | # npcs, magic_ears etc. |
| 794 | # first find all objects and their first-level inventories |
795 | # first find all objects and their first-level inventories |
| 795 | # within a 5x5 square that have something resembling |
796 | # within a 5x5 square that have something resembling |
| 796 | # dialogue or support on_say. |
797 | # dialogue or support on_say. |
