@verb #12:"_constructor" this none this rxdo #55
@program #12:"_constructor" this none this
"The check in #0:user_created doesn't seem to work completely. - wk"
"Begin generic security check (_constructor)"
if (verb == "_constructor" && caller_perms() != #-1)
  raise(E_PERM)
  return E_PERM
endif
"End generic security check (_constructor)"
{newbie} = args
if (caller_perms() != #-1 && "|| (!is_player(newbie)")
  return
endif
newbie.home = $player_start
"Subscribe everyone to *news and to *general"
newbie.current_message = {0, 0, {$news, 1, time()}, {#6100, 1, time()}}
"newbie:_set_best_before(time() + newbie.extend_expiry_time);"
newbie.pseudonym_salt = random()
newbie.unique_validity_identifier = $imap:unique_validity_identifier()
"Quack?"
if (!$player_db:available(name = newbie.name))
  "Aieee..."
  newbie.name = "Unnamed"
  newbie.aliases = {}
  return
endif
if ($player_db.frozen)
  "Aieee..."
  $player_db.frozen = 2
endif
$player_db:insert(name, newbie)
for a in (setremove(newbie.aliases, name))
  if (!(avail = $player_db:available(a)) && avail != newbie)
    newbie.aliases = setremove(newbie.aliases, a)
  else
    $player_db:insert(a, newbie)
  endif
endfor
"Last modified by Lao-Tzu (#8084) on Mon Dec 17 14:29:16 2001 MST."
.