5ec
@verb #4909:"to -* a" any any any rxdo #6319
@program #4909:"to -* a" any any any
"Copied from The NEW eMOOtions (#490):to by Raptor (#6319)Apr 23 19:08:04 2001"
"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);"
"now uses my_match_object --Cecil"
who = player:my_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:33 2001 MST."
.

0