2f3
@verb #3:"set_home _set_home" this none this rxdo #55
@program #3:"set_home _set_home" this none this
"Copied from Generic Player (#12):set_home by Slacker (#55)Aug 29 16:12:07 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
if ($perm_utils:can_hack())
  if ($object_utils:has_callable_verb(newhome, "accept_for_abode"))
    if (newhome:accept_for_abode(this))
      return this.home = newhome
    else
      raise(E_NACC)
    endif
  else
    raise(E_TYPE)
  endif
else
  raise(E_PERM)
endif
.

0