| … | |
… | |
| 770 | cf::register_command me => sub { |
770 | cf::register_command me => sub { |
| 771 | my ($pl, $msg) = @_; |
771 | my ($pl, $msg) = @_; |
| 772 | |
772 | |
| 773 | my $name = $pl->name; |
773 | my $name = $pl->name; |
| 774 | |
774 | |
| 775 | send_msg $pl, $SAY_CHANNEL => "* $name $msg", cf::NDI_GREY | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_say" |
775 | send_msg $_, $SAY_CHANNEL => "* $name $msg", cf::NDI_GREY | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_say" |
| 776 | for grep $pl->on_same_map_as ($_->ob), cf::player::list; |
776 | for grep $pl->on_same_map_as ($_->ob), cf::player::list; |
| 777 | }; |
777 | }; |
| 778 | |
778 | |
| 779 | cf::register_command say => sub { |
779 | cf::register_command say => sub { |
| 780 | my ($ob, $msg) = @_; |
780 | my ($ob, $msg) = @_; |
