… | |
… | |
866 | my $name = $pl->name; |
866 | my $name = $pl->name; |
867 | |
867 | |
868 | cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg; |
868 | cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg; |
869 | send_irc ("\007\0034{%s} %s\n", $name, $msg); |
869 | send_irc ("\007\0034{%s} %s\n", $name, $msg); |
870 | |
870 | |
871 | $_->ns->send_msg ($CHAT_CHANNEL => "$name shouts: $msg", cf::NDI_BLUE, $_ == $pl ? (reply => 1) : ()) |
871 | $_->ns->send_msg ($CHAT_CHANNEL => "$name shouts: $msg", cf::NDI_RED, $_ == $pl ? (reply => 1) : ()) |
872 | for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 2 } cf::player::list; |
872 | for grep { $_->ob->{ext_ignore_shout}{$name} < $NOW && $_->listening >= 2 } cf::player::list; |
873 | |
873 | |
874 | } else { |
874 | } else { |
875 | $pl->ns->send_msg ($CHAT_CHANNEL => "Shout what?"); |
875 | $pl->ns->send_msg ($CHAT_CHANNEL => "Shout what?"); |
876 | } |
876 | } |