@verb #2250:"@sethome" any none none rxdo #7788
@program #2250:"@sethome" any none none
"Copied from Generic Player (#12):@sethome by Slacker (#55)Jun 30 20:46:51 1998"
if (player == this && caller == this)
  here = this.location
  if (!$object_utils:has_callable_verb(here, "accept_for_abode"))
    this:tell("This is a pretty odd place.  You should make your home in an actual room.")
  elseif (here:accept_for_abode(this))
    this:set_home(here)
    this:tell(tostr(here.name, " is your new home."))
  else
    this:tell(tostr("This place doesn't want to be your home.  Contact ", here.owner.name, " to be added to the residents list of this place, or choose another place as your home."))
  endif
endif
.