| … | |
… | |
| 826 | for @plonmap; |
826 | for @plonmap; |
| 827 | } |
827 | } |
| 828 | } |
828 | } |
| 829 | |
829 | |
| 830 | } else { |
830 | } else { |
| 831 | $ob->contr->send_msg ($SAY_CHANNEL => "What do you want to say?", 0, reply => 1); |
831 | $ob->contr->ns->send_msg ($SAY_CHANNEL => "What do you want to say?", 0, reply => 1); |
| 832 | } |
832 | } |
| 833 | }; |
833 | }; |
| 834 | |
834 | |
| 835 | cf::register_command chat => sub { |
835 | cf::register_command chat => sub { |
| 836 | my ($pl, $msg) = @_; |
836 | my ($ob, $msg) = @_; |
| 837 | |
837 | |
| 838 | utf8::decode $msg; |
838 | utf8::decode $msg; |
| 839 | |
839 | |
|
|
840 | my $pl = $ob->contr; |
|
|
841 | |
| 840 | return if $pl->contr->invoke (cf::EVENT_PLAYER_CHAT, $msg); |
842 | return if $pl->invoke (cf::EVENT_PLAYER_CHAT, $msg); |
| 841 | |
843 | |
| 842 | if ($msg) { |
844 | if ($msg) { |
| 843 | my $name = $pl->name; |
845 | my $name = $ob->name; |
| 844 | my $NOW = time; |
846 | my $NOW = time; |
| 845 | |
847 | |
| 846 | cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg; |
848 | cf::LOG cf::llevDebug, sprintf "QBERT [%s] %s\n", $name, $msg; |
| 847 | send_irc ("[%s] %s", $name, $msg); |
849 | send_irc ("[%s] %s", $name, $msg); |
| 848 | |
850 | |
| … | |
… | |
| 853 | $pl->ns->send_msg ($CHAT_CHANNEL => "Chat what?"); |
855 | $pl->ns->send_msg ($CHAT_CHANNEL => "Chat what?"); |
| 854 | } |
856 | } |
| 855 | }; |
857 | }; |
| 856 | |
858 | |
| 857 | cf::register_command shout => sub { |
859 | cf::register_command shout => sub { |
| 858 | my ($pl, $msg) = @_; |
860 | my ($ob, $msg) = @_; |
| 859 | |
861 | |
| 860 | utf8::decode $msg; |
862 | utf8::decode $msg; |
| 861 | |
863 | |
|
|
864 | my $pl = $ob->contr; |
|
|
865 | |
| 862 | return if $pl->contr->invoke (cf::EVENT_PLAYER_SHOUT, $msg); |
866 | return if $pl->invoke (cf::EVENT_PLAYER_SHOUT, $msg); |
| 863 | |
867 | |
| 864 | if ($msg) { |
868 | if ($msg) { |
| 865 | my $NOW = time; |
869 | my $NOW = time; |
| 866 | my $name = $pl->name; |
870 | my $name = $ob->name; |
| 867 | |
871 | |
| 868 | cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg; |
872 | cf::LOG cf::llevDebug, sprintf "QBERT {%s} %s\n", $name, $msg; |
| 869 | send_irc ("\007\0034{%s} %s\n", $name, $msg); |
873 | send_irc ("\007\0034{%s} %s\n", $name, $msg); |
| 870 | |
874 | |
| 871 | $_->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) : ()) |
