View/Edit #12:_constructor

Switch to edit mode.

Name(s): _constructor
1:  "The check in #0:user_created doesn't seem to work completely. - wk"
2:  "Begin generic security check (_constructor)"
3:  if (verb == "_constructor" && caller_perms() != #-1)
4:    raise(E_PERM)
5:    return E_PERM
6:  endif
7:  "End generic security check (_constructor)"
8:  {newbie} = args
9:  if (caller_perms() != #-1 && "|| (!is_player(newbie)")
10:   return
11: endif
12: newbie.home = $player_start
13: "Subscribe everyone to *news and to *general"
14: newbie.current_message = {0, 0, {$news, 1, time()}, {#6100, 1, time()}}
15: "newbie:_set_best_before(time() + newbie.extend_expiry_time);"
16: newbie.pseudonym_salt = random()
17: newbie.unique_validity_identifier = $imap:unique_validity_identifier()
18: "Quack?"
19: if (!$player_db:available(name = newbie.name))
20:   "Aieee..."
21:   newbie.name = "Unnamed"
22:   newbie.aliases = {}
23:   return
24: endif
25: if ($player_db.frozen)
26:   "Aieee..."
27:   $player_db.frozen = 2
28: endif
29: $player_db:insert(name, newbie)
30: for a in (setremove(newbie.aliases, name))
31:   if (!(avail = $player_db:available(a)) && avail != newbie)
32:     newbie.aliases = setremove(newbie.aliases, a)
33:   else
34:     $player_db:insert(a, newbie)
35:   endif
36: endfor
37: "Last modified by Lao-Tzu (#8084) on Mon Dec 17 14:29:16 2001 MST."

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]