31d
@verb #1314:"prefix_name" this none this rxdo #1314
@program #1314:"prefix_name" this none this
"In rare cases, prefix the person's name."
"Fiddle with the first letter's case, as required."
":prefix_name(''Are you ok?') => ''Dax, are you ok?'"
{command} = args
if (random(100) < 20)
  if (length(command) > 2 && command[1] == "\"")
    who = player:isa($webber) ? player.user | player
    if (who != $no_one && !who:isa($guest) && who != this)
      if (command[2] != "I" || index($su.alphabet, command[3]))
        "Lowercase anything except I or I'm"
        command[2] = $su:lowercase(command[2])
      endif
      command = tostr("\"", who.name, ", ", command[2..$])
    endif
  endif
endif
return command
"Last modified by Dax (#789) on Sun Nov  3 01:39:59 2002 MST."
.

0