| … | |
… | |
| 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 | } |
