… | |
… | |
772 | $_->ns->send_msg ($SAY_CHANNEL => "* $name $msg", cf::NDI_GREY, $_ == $pl ? (reply => 1) : ()) |
772 | $_->ns->send_msg ($SAY_CHANNEL => "* $name $msg", cf::NDI_GREY, $_ == $pl ? (reply => 1) : ()) |
773 | for grep $pl->on_same_map_as ($_->ob), cf::player::list; |
773 | for grep $pl->on_same_map_as ($_->ob), cf::player::list; |
774 | }; |
774 | }; |
775 | |
775 | |
776 | cf::register_command say => sub { |
776 | cf::register_command say => sub { |
777 | my ($pl, $msg) = @_; |
777 | my ($ob, $msg) = @_; |
778 | |
778 | |
779 | utf8::decode $msg; |
779 | utf8::decode $msg; |
780 | |
780 | |
781 | return if $pl->contr->invoke (cf::EVENT_PLAYER_SAY, $msg); |
781 | return if $ob->contr->invoke (cf::EVENT_PLAYER_SAY, $msg); |
782 | |
782 | |
783 | if ($msg) { |
783 | if ($msg) { |
784 | my $name = $pl->name; |
784 | my $name = $ob->name; |
785 | my @plonmap = grep $pl->on_same_map_as ($_->ob), cf::player::list; |
785 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
786 | |
786 | |
787 | $_->ns->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY, $_ == $pl ? (reply => 1) : ()) |
787 | $_->ns->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY, $_ == $ob ? (reply => 1) : ()) |
788 | for @plonmap; |
788 | for @plonmap; |
789 | |
789 | |
790 | # npcs, magic_ears etc. |
790 | # npcs, magic_ears etc. |
791 | # first find all objects and their first-level inventories |
791 | # first find all objects and their first-level inventories |
792 | # within a 5x5 square that have something resembling |
792 | # within a 5x5 square that have something resembling |
793 | # dialogue or support on_say. |
793 | # dialogue or support on_say. |
794 | my ($map, $x, $y) = ($pl->map, $pl->x - 2, $pl->y - 2); |
794 | my ($map, $x, $y) = ($ob->map, $ob->x - 2, $ob->y - 2); |
795 | |
795 | |
796 | for my $npc ( |
796 | for my $npc ( |
797 | grep +($_->invoke (cf::EVENT_OBJECT_SAY, $pl->contr, $msg) && return) || NPC_Dialogue::has_dialogue $_, |
797 | grep +($_->invoke (cf::EVENT_OBJECT_SAY, $ob->contr, $msg) && return) || NPC_Dialogue::has_dialogue $_, |
798 | map +($_, $_->inv), |
798 | map +($_, $_->inv), |
799 | grep $_, |
799 | grep $_, |
800 | map $map->at ($x + $_ % 5, $y + (int $_ / 5)), |
800 | map $map->at ($x + $_ % 5, $y + (int $_ / 5)), |
801 | 0..24 |
801 | 0..24 |
802 | ) { |
802 | ) { |
803 | # if some listener teleported us somewhere else, stop right here |
803 | # if some listener teleported us somewhere else, stop right here |
804 | last unless $map->path == $pl->map->path; |
804 | last unless $map->path == $ob->map->path; |
805 | |
805 | |
806 | my $dialog = new NPC_Dialogue pl => $pl->contr, npc => $npc; |
806 | my $dialog = new NPC_Dialogue pl => $ob->contr, npc => $npc; |
807 | my ($reply, @kw) = $dialog->tell ($msg); |
807 | my ($reply, @kw) = $dialog->tell ($msg); |
808 | |
808 | |
809 | if (defined $reply) { |
809 | if (defined $reply) { |
810 | if ($npc->type == cf::MAGIC_EAR) { |
810 | if ($npc->type == cf::MAGIC_EAR) { |
811 | if (length $reply) { |
811 | if (length $reply) { |
812 | $_->contr->send_msg ($SAY_CHANNEL => $reply, cf::NDI_BROWN) |
812 | $_->ns->send_msg ($SAY_CHANNEL => $reply, cf::NDI_BROWN) |
813 | for @plonmap; |
813 | for @plonmap; |
814 | } |
814 | } |
815 | $npc->use_trigger; |
815 | $npc->use_trigger; |
816 | } else { |
816 | } else { |
817 | if (length $reply) { |
817 | if (length $reply) { |
818 | $_->contr->send_msg ($SAY_CHANNEL => $npc->name . " says: $reply", cf::NDI_BROWN) |
818 | $_->ns->send_msg ($SAY_CHANNEL => $npc->name . " says: $reply", cf::NDI_BROWN) |
819 | for @plonmap; |
819 | for @plonmap; |
820 | } |
820 | } |
821 | } |
821 | } |
822 | } |
822 | } |
823 | |
823 | |
824 | if (@kw) { |
824 | if (@kw) { |
825 | $_->contr->send_msg ($SAY_CHANNEL => "[further topics: " . (join ", ", @kw) . "]", cf::NDI_BROWN) |
825 | $_->ns->send_msg ($SAY_CHANNEL => "[further topics: " . (join ", ", @kw) . "]", cf::NDI_BROWN) |
826 | for @plonmap; |
826 | for @plonmap; |
827 | } |
827 | } |
828 | } |
828 | } |
829 | |
829 | |
830 | } else { |
830 | } else { |
831 | $pl->contr->send_msg ($SAY_CHANNEL => "What do you want to say?", 0, reply => 1); |
831 | $ob->contr->send_msg ($SAY_CHANNEL => "What do you want to say?", 0, reply => 1); |
832 | } |
832 | } |
833 | }; |
833 | }; |
834 | |
834 | |
835 | cf::register_command chat => sub { |
835 | cf::register_command chat => sub { |
836 | my ($pl, $msg) = @_; |
836 | my ($pl, $msg) = @_; |