2c9
@verb #17:"msg_toad msg_toad_victim msg_programmer msg_programmer_victim" this none this rxdo #55
@program #17:"msg_toad msg_toad_victim msg_programmer msg_programmer_victim" this none this
"This is the canonical doing-something-to-somebody message."
"The corresponding property can either be"
"   string             msg for all occasions"
"   list of 2 strings  {we-are-there-msg,we-are-elsewhere-msg}"
m = pass(@args)
if (typeof(m) != $LIST)
  return $string_utils:pronoun_sub(m)
elseif (this.location == dobj.location || length(m) < 2)
  return $string_utils:pronoun_sub(m[1])
else
  return $string_utils:pronoun_sub(m[2])
endif
"Last modified by Dax (#789) on Wed May  4 06:46:00 2005 MDT."
.

0