#! perl
cf::register_command tell => 0, sub
{
   my ($who, $args) = @_;
   my ($target, $msg) = split /\s+/, $args, 2;

   my $name = $who->name;

   if (my $other = cf::player::find $target)
   {
      if ($other->ob->{ext_ignore_tell}{$name} < time) {
         delete $other->ob->{ext_ignore_tell}{$name};
      }
      if ($target ne $name and !$other->ob->{ext_ignore_tell}{$name}) {
         $who->message ("You tell $target: $msg");
         $other->ob->message ("$name tells you: $msg");
      } elsif ($target eq $name) {
         $who->message ("You are talking to yourself, you freak!", cf::NDI_UNIQUE);
      } else {
         $who->message ($other->ob->name." ignores what you say. Give up on it.", cf::NDI_UNIQUE);
      }
   }
   else
   {
      $who->message ("No such player or ambiguous name.",
            cf::NDI_UNIQUE);
   }
}