… | |
… | |
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 | } |