2d9
@verb #3:"@sethome*of" this at/to any rdo #55
@program #3:"@sethome*of" this at/to any
if (!$perm_utils:controls(caller, this))
  return player:tell("Bzzt.  Nice try, though.")
endif
iobj = this:match_object(iobjstr)
try
  this:_set_home(iobj)
  player:tell("Home of ", $string_utils:nn(this), " set to ", $string_utils:nn(iobj), ".")
except (ANY)
  player:tell($string_utils:nn(iobj), " doesn't want to have ", $string_utils:nn(this), " as a resident.")
endtry
"Last modified by manta (#7165) on Sat Aug 29 16:14:17 1998 EDT."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0