| … | |
… | |
| 62 | prio => -1000, |
62 | prio => -1000, |
| 63 | on_login => sub { |
63 | on_login => sub { |
| 64 | my ($pl) = @_; |
64 | my ($pl) = @_; |
| 65 | |
65 | |
| 66 | clean_timeouts $pl->ob; |
66 | clean_timeouts $pl->ob; |
|
|
67 | |
| 67 | $pl->send_msg ($SAY_CHANNEL); |
68 | $pl->send_msg ($SAY_CHANNEL); |
| 68 | $pl->send_msg ($CHAT_CHANNEL); |
69 | $pl->send_msg ($CHAT_CHANNEL); |
| 69 | }, |
70 | }, |
| 70 | ); |
71 | ); |
| 71 | |
72 | |
| … | |
… | |
| 776 | |
777 | |
| 777 | if ($msg) { |
778 | if ($msg) { |
| 778 | my $name = $ob->name; |
779 | my $name = $ob->name; |
| 779 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
780 | my @plonmap = grep $ob->on_same_map_as ($_->ob), cf::player::list; |
| 780 | |
781 | |
| 781 | $_->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | ($_ == $ob ? cf::NDI_REPLY : 0)) |
782 | $_->send_msg ($SAY_CHANNEL => "$name says: $msg", cf::NDI_GREY | ($_ == $ob->contr ? cf::NDI_REPLY : 0)) |
| 782 | for @plonmap; |
783 | for @plonmap; |
| 783 | |
784 | |
| 784 | # npcs, magic_ears etc. |
785 | # npcs, magic_ears etc. |
| 785 | # first find all objects and their first-level inventories |
786 | # first find all objects and their first-level inventories |
| 786 | # within a 5x5 square that have something resembling |
787 | # within a 5x5 square that have something resembling |
