442
@verb #6:"set_name _set_name" this none this rxdo #55
@program #6:"set_name _set_name" this none this
"Copied from Generic player&&Joueur generique (#6):set_name by Hammy_Hamster (#2) Wed Feb 22 15:18:06 1995 EST"
"set_name(newname) attempts to change this.name to newname"
"  => E_PERM   if you don't own this"
"  => E_INVARG if the name is already taken or prohibited for some reason"
"  => E_NACC   if the player database is not taking new names right now."
"  => E_ARGS   if the name is too long (controlled by $login.max_player_name)"
name = args[1]
if (!$perm_utils:can_hack())
  raise(E_PERM)
elseif ($room_db.frozen)
  raise(E_NACC)
endif
if (!($room_db:available(name) in {this, 1}))
  raise(E_INVARG)
endif
oldname = this.name
pass(@args)
$room_db:delete(oldname)
$room_db:insert(name, this)
return 1
"Last modified by whiz (#3135) on Sun Dec 30 11:49:34 2001 MST."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Cecil (#7407) on Fri Aug 23 14:22:32 2002 MDT."
.

0