… | |
… | |
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) = @_; |