View/Edit #2:set_name _set_name

Switch to edit mode.

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

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]