@verb #7113:"-2" any any any rdo #7113
@program #7113:"-2" any any any
"Killeen's Directed Say v2.2."
if (!args)
  return player:tell("Usage: -<player> <message>")
endif
punctuation = argstr[length(argstr)]
if (punctuation == "?")
  action = "ask"
  prep = " of "
elseif (punctuation == "!")
  action = "exclaim"
  prep = " at "
else
  action = "say"
  prep = " to "
endif
name = verb[2..length(verb)]
who = player.location:match_object(name)
argstr = $code_utils:argstr(verb, args, argstr)
if (!valid(who))
  player.location:announce_all(player:title(1), " [", name, "]: ", argstr)
else
  player:tell("You ", action, prep, who:title(1), ", \"", argstr, "\"")
  player.location:announce_all_but({player, who}, player:title(1), " ", action, "s", prep, who:title(1), ", \"", argstr, "\"")
  who:tell(player:title(1), " ", action, "s", prep, "you, \"", argstr, "\"")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:34 2001 MST."
.