| … | |
… | |
| 840 | my $pl = $ob->contr; |
840 | my $pl = $ob->contr; |
| 841 | |
841 | |
| 842 | return if $pl->invoke (cf::EVENT_PLAYER_CHAT, $msg); |
842 | return if $pl->invoke (cf::EVENT_PLAYER_CHAT, $msg); |
| 843 | |
843 | |
| 844 | if ($msg) { |
844 | if ($msg) { |
| 845 | my $name = $pl->name; |
845 | my $name = $ob->name; |
| 846 | my $NOW = time; |
846 | my $NOW = time; |
| 847 | |
847 | |
| 848 | cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg; |
848 | cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg; |
| 849 | send_irc ("[%s] %s", $name, $msg); |
849 | send_irc ("[%s] %s", $name, $msg); |
| 850 | |
850 | |
| … | |
… | |
| 855 | $pl->ns->send_msg ($CHAT_CHANNEL => "Chat what?"); |
855 | $pl->ns->send_msg ($CHAT_CHANNEL => "Chat what?"); |
| 856 | } |
856 | } |
| 857 | }; |
857 | }; |
| 858 | |
858 | |
| 859 | cf::register_command shout => sub { |
859 | cf::register_command shout => sub { |
| 860 | my ($pl, $msg) = @_; |
860 | my ($ob, $msg) = @_; |
| 861 | |
861 | |
| 862 | utf8::decode $msg; |
862 | utf8::decode $msg; |
| 863 | |
863 | |
| 864 | my $pl = $ob->contr; |
864 | my $pl = $ob->contr; |
| 865 | |
865 | |
| 866 | return if $pl->invoke (cf::EVENT_PLAYER_SHOUT, $msg); |
866 | return if $pl->invoke (cf::EVENT_PLAYER_SHOUT, $msg); |
| 867 | |
867 | |
| 868 | if ($msg) { |
868 | if ($msg) { |
| 869 | my $NOW = time; |
869 | my $NOW = time; |
| 870 | my $name = $pl->name; |
870 | my $name = $ob->name; |
| 871 | |
871 | |
| 872 | cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg; |
872 | cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg; |
| 873 | send_irc ("\007\0034{%s} %s\n", $name, $msg); |
873 | send_irc ("\007\0034{%s} %s\n", $name, $msg); |
| 874 | |
874 | |
| 875 | $_->ns->send_msg ($CHAT_CHANNEL => "$name shouts: $msg", cf::NDI_RED, $_ == $pl ? (reply => 1) : ()) |
875 | $_->ns->send_msg ($CHAT_CHANNEL => "$name shouts: $msg", cf::NDI_RED, $_ == $pl ? (reply => 1) : ()) |
