| … | |
… | |
| 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) = @_; |
| … | |
… | |
| 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 | } |
