… | |
… | |
827 | |
827 | |
828 | if ($msg) { |
828 | if ($msg) { |
829 | my $name = $ob->name; |
829 | my $name = $ob->name; |
830 | my $NOW = time; |
830 | my $NOW = time; |
831 | |
831 | |
832 | cf::LOG cf::llevDebug, sprintf "QBERT %s\n", $name, $msg; |
832 | cf::LOG cf::llevDebug, sprintf "QBERT %s\n", $msg; |
833 | send_irc ($msg); |
833 | send_irc ($msg); |
834 | |
834 | |
835 | send_msg $_, $cf::CHAT_CHANNEL => $msg, cf::NDI_BLUE | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_chat" |
835 | send_msg $_, $cf::CHAT_CHANNEL => $msg, cf::NDI_BLUE | cf::NDI_DEF | ($_ == $pl ? cf::NDI_REPLY : 0), "msg_chat" |
836 | for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW } cf::player::list; |
836 | for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW } cf::player::list; |
837 | |
837 | |