@verb #2:"set_name _set_name" this none this rxdo #55
@program #2:"set_name _set_name" this none this
{name} = args
if (!$perm_utils:can_hack())
  raise(E_PERM)
elseif (typeof(name) != $STR)
  raise(E_TYPE)
elseif ($msg:censor(name) != name)
  raise(E_INVARG, "swearing in a name is not permitted.")
endif
this.name = name
x = $msg:MIME_Stripped(name)
if (x != name)
  this:set_aliases({x, @this.aliases})
endif
"This next line was a bloody good idea.  Why was it removed?"
"this:set_aliases({@this.aliases, x, @$string_utils:alias_parse(x)});"
return 1
"Last modified by MadHatter (#8371) on Mon Jul 22 11:27:53 2002 MDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Tue Oct  4 07:05:00 2005 MDT."
.