@verb #490:"to -* a" any any any rxdo #55
@program #490:"to -* a" any any any
"Killeen's Directed Say v2.2."
"Modified (heavily) by Raptor.  Now it's up to v2.7 :)"
""
"To change the appearence of the messages, you can simply make a series of 'to' messages on yourself (to_msg, oto_msg, ito_msg), and even customize what happens when no match was found (oops_to_msg)."
""
"to_msg => What you see"
"ito_msg => What the person you're talking to sees"
"oto_msg => What the rest of the room sees"
""
"Variables to use:"
"%n  => Yourself"
"%1  => action (say, exclaim, ask)"
"%2  => preposition (to, at, of, respectively)"
"%3  => Person spoken to"
"%4  => The message"
if (!args)
  return player:tell({"Usage: -<player> <message>", "       to <player> <message>"})
endif
i = (argstr[$] in {"?", "!"}) + 1
action = {"say", "ask", "exclaim"}[i]
prep = {"to", "of", "at"}[i]
if (verb[1] == "-")
  name = verb[2..$]
else
  name = args[1]
  argstr = argstr[length(name) + 2..$]
endif
who = player:match_object(name)
if (!valid(who))
  $msg:lmtell({this, player}, {name, argstr}, {player, "msg_oops_to"}, "msg_ooops_to")
else
  $msg:lmtell({this, player}, {action, prep, who, argstr}, {player, "msg_to"}, {who, "msg_ito"}, "msg_oto")
endif
"Last modified by Dax (#789) on Thu Nov  8 11:38:31 2001 MST."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:48:43 2002 MDT."
.