| … | |
… | |
| 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 ($pl, $msg) = @_; |
| … | |
… | |
| 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 | } |
| … | |
… | |
| 912 | if ($target eq $name) { |
912 | if ($target eq $name) { |
| 913 | $ns->send_msg ($pl_channel => "You are talking to yourself, you freak!", reply => 1); |
913 | $ns->send_msg ($pl_channel => "You are talking to yourself, you freak!", reply => 1); |
| 914 | } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) { |
914 | } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) { |
| 915 | $ns->send_msg ($pl_channel => "$target ignores what you say. Give up on it.", reply => 1); |
915 | $ns->send_msg ($pl_channel => "$target ignores what you say. Give up on it.", reply => 1); |
| 916 | } else { |
916 | } else { |
| 917 | return if $other->invoke (cf::EVENT_PLAYER_TOLD, $pl->contr, $msg); |
917 | return if $other->invoke (cf::EVENT_PLAYER_TOLD, $pl, $msg); |
| 918 | cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $target, $msg; |
918 | cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $target, $msg; |
| 919 | |
919 | |
| 920 | $ns->send_msg ($pl_channel => "You tell $target: $msg", reply => 1); |
920 | $ns->send_msg ($pl_channel => "You tell $target: $msg", reply => 1); |
| 921 | $other->ns->send_msg ($other_channel => "$name tells you: $msg"); |
921 | $other->ns->send_msg ($other_channel => "$name tells you: $msg"); |
| 922 | } |
922 | } |
