| … | |
… | |
| 819 | @npc = grep $_->should_invoke (cf::EVENT_OBJECT_SAY) || $_->has_dialogue, |
819 | @npc = grep $_->should_invoke (cf::EVENT_OBJECT_SAY) || $_->has_dialogue, |
| 820 | $ob->inv; |
820 | $ob->inv; |
| 821 | } |
821 | } |
| 822 | |
822 | |
| 823 | for my $npc (@npc) { |
823 | for my $npc (@npc) { |
| 824 | return if $npc->invoke (cf::EVENT_OBJECT_SAY); |
824 | return if $npc->invoke (cf::EVENT_OBJECT_SAY, $ob->contr, $msg); |
| 825 | |
825 | |
| 826 | # if some listener teleported us somewhere else, stop right here |
826 | # if some listener teleported us somewhere else, stop right here |
| 827 | last unless $map->path == $ob->map->path; |
827 | last unless $map->path == $ob->map->path; |
| 828 | |
828 | |
| 829 | if ($npc->has_dialogue) { |
829 | if ($npc->has_dialogue) { |
