@verb #7171:"-* to" any any any rxd #7407
@program #7171:"-* to" any any any
this:update_usage("-*", player)
if (verb[1] == "t")
  person = argstr[1..(i = index(argstr, " ") || $) - 1]
  argstr = argstr[i + 1..$]
else
  person = `verb[2..$] ! E_RANGE => ""'
endif
dobj = `player:my_match_object(person) ! ANY => $failed_match'
if (!valid(dobj))
  return player:tell("Who is ", toliteral(`person ! E_RANGE => ""'), "?")
else
  player.location:sub_announce_all("%n [to %d]: %1", argstr)
endif
"Last modified by Cecil (#7407) on Mon Apr 23 20:36:17 2001 MDT."
.