… | |
… | |
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) : ()) |