… | |
… | |
880 | if ($target eq $name) { |
880 | if ($target eq $name) { |
881 | $pl->message ("You are talking to yourself, you freak!", cf::NDI_UNIQUE); |
881 | $pl->message ("You are talking to yourself, you freak!", cf::NDI_UNIQUE); |
882 | } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) { |
882 | } elsif ($other->ob->{ext_ignore_tell}{$name} >= time) { |
883 | $pl->message ("$target ignores what you say. Give up on it.", cf::NDI_UNIQUE); |
883 | $pl->message ("$target ignores what you say. Give up on it.", cf::NDI_UNIQUE); |
884 | } else { |
884 | } else { |
|
|
885 | return if $other->invoke (cf::EVENT_PLAYER_TOLD, $pl->contr, $msg); |
885 | utf8::encode $msg; # ->message not yet utf8-ified |
886 | utf8::encode $msg; # ->message not yet utf8-ified |
886 | cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $target, $msg; |
887 | cf::LOG cf::llevDebug, sprintf "TELL [%s>%s] %s\n", $name, $target, $msg; |
887 | |
888 | |
888 | $pl->message ("You tell $target: $msg"); |
889 | $pl->message ("You tell $target: $msg"); |
889 | $other->ob->message ("$name tells you: $msg"); |
890 | $other->ob->message ("$name tells you: $msg"); |