Something

#6:"set_home" (newhome)
 2:  if (!$object_utils:isa(newhome, $room))
 3:    return E_INVARG;
 4:  elseif (!newhome:accept_for_abode(this))
 5:    return E_NACC;
 6:  elseif (caller == this || $perm_utils:controls(caller_perms(), this))
 7:    return this.home = newhome;
 8:  else
 9:    return E_PERM;
10:  endif