@verb #3873:"to -*" any any any rxd #9131
@program #3873:"to -*" any any any
if (verb[1] == "-")
  targ = verb[2..$]
else
  {targ, argstr} = $su:first_word(argstr)
endif
targ = $su:match_player(targ)
c = this:contents()
if (!$recycler:valid(targ) || !(targ in c))
  return player:tell("No such person.", $su:name_list(c))
endif
t = $madness:portal_multiple(targ)
p = $madness:portal_multiple(player)
{box, boxU} = {tostr("[to ", t.name, "]"), "[to YOU]"}
if ("emote" && argstr && argstr[1] == ":")
  this:announce_all_but({targ}, p.name, " ", argstr[2..$], " ", box)
  targ:tell(p.name, " ", argstr[2..$], " ", boxU)
else
  this:announce_all_but({targ}, p.name, " ", box, " says, \"", argstr, "\"")
  targ:tell(p.name, " ", boxU, " says, \"", argstr, "\"")
endif
"Last modified by Eve (#2633) on Wed Sep 27 13:48:36 2000 MDT."
.