View/Edit #2250:set_home

Switch to edit mode.

1:  "Copied from Generic Player (#12):set_home by Slacker (#55)Jun 30 20:49:41 1998"
2:  "set_home(newhome) attempts to change this.home to newhome"
3:  "E_TYPE   if newhome doesn't have a callable :accept_for_abode verb."
4:  "E_NACC if newhome won't accept you as a resident."
5:  "E_PERM   if you don't own this and aren't its parent."
6:  "1        if it works."
7:  newhome = args[1]
8:  if ($perm_utils:can_hack())
9:    if ($object_utils:has_callable_verb(newhome, "accept_for_abode"))
10:     if (newhome:accept_for_abode(this))
11:       return typeof(e = this.home = args[1]) != $ERR || e
12:     else
13:       return E_NACC
14:     endif
15:   else
16:     return E_TYPE
17:   endif
18: else
19:   return E_PERM
20: endif
21: "Last modified by Dax (#789) on Mon Aug  7 21:49:33 2006 MDT."

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