| … | |
… | |
| 805 | my $dialog = new NPC_Dialogue pl => $ob->contr, npc => $npc; |
805 | my $dialog = new NPC_Dialogue pl => $ob->contr, npc => $npc; |
| 806 | my ($reply, @kw) = $dialog->tell ($msg); |
806 | my ($reply, @kw) = $dialog->tell ($msg); |
| 807 | |
807 | |
| 808 | if (defined $reply) { |
808 | if (defined $reply) { |
| 809 | if ($npc->type == cf::MAGIC_EAR) { |
809 | if ($npc->type == cf::MAGIC_EAR) { |
| 810 | if (length $reply) { |
|
|
| 811 | send_msg $_, $cf::SAY_CHANNEL => $reply, cf::NDI_BROWN, "msg_say" |
810 | send_msg $_, $cf::SAY_CHANNEL => $reply, cf::NDI_BROWN, "msg_say" |
| 812 | for @plonmap; |
811 | for @plonmap; |
| 813 | } |
|
|
| 814 | $npc->use_trigger; |
|
|
| 815 | } else { |
812 | } else { |
| 816 | if (length $reply) { |
|
|
| 817 | send_msg $_, $cf::SAY_CHANNEL => $npc->name . " says: $reply", cf::NDI_BROWN, "msg_say" |
813 | send_msg $_, $cf::SAY_CHANNEL => $npc->name . " says: $reply", cf::NDI_BROWN, "msg_say" |
| 818 | for @plonmap; |
814 | for @plonmap; |
| 819 | } |
|
|
| 820 | } |
815 | } |
| 821 | } |
816 | } |
| 822 | |
817 | |
| 823 | if (@kw) { |
818 | if (@kw) { |
| 824 | $_->send_msg ($cf::SAY_CHANNEL => "[further topics: " . (join ", ", @kw) . "]", cf::NDI_BROWN) |
819 | $_->send_msg ($cf::SAY_CHANNEL => "[further topics: " . (join ", ", @kw) . "]", cf::NDI_BROWN) |
