2ff
@verb #2250:"set_home" this none this rxo #7788
@program #2250:"set_home" this none this
"Copied from Generic Player (#12):set_home by Slacker (#55)Jun 30 20:49:41 1998"
"set_home(newhome) attempts to change this.home to newhome"
"E_TYPE   if newhome doesn't have a callable :accept_for_abode verb."
"E_NACC if newhome won't accept you as a resident."
"E_PERM   if you don't own this and aren't its parent."
"1        if it works."
newhome = args[1]
if ($perm_utils:can_hack())
  if ($object_utils:has_callable_verb(newhome, "accept_for_abode"))
    if (newhome:accept_for_abode(this))
      return typeof(e = this.home = args[1]) != ERR || e
    else
      return E_NACC
    endif
  else
    return E_TYPE
  endif
else
  return E_PERM
endif
.

0