@verb #2250:"home maison" none none none rxdo #7788
@program #2250:"home maison" none none none
"Copied from Generic Player (#12):home by Slacker (#55)Jun 30 21:14:29 1998"
if (valid(caller_perms()) && caller != this && !caller_perms().wizard)
  return
elseif (this.location == this.home)
  return
elseif (!`this.home:accept_for_abode(this) ! ANY => 0')
  player:sub_tell("Your home %1 (#%1~#) doesn't seem to want you.", this.home)
  this:set_home($player_start)
endif
player:tell("You click your heels three times.")
old_loc = this.location
dobjstr = tostr(dobj = this)
iobjstr = tostr(iobj = this.home)
if (old_loc != $player_start && old_loc != iobj)
  fork t (3)
    if (this.location == old_loc && $object_utils:isa(this.home, $room) && this.home:accept_for_abode(this))
      this:tell("Hmm... It seems you can't get home.")
      if (this.anchor != this.location)
        this:moveto(this.home)
        old_loc:sub_announce(this:msg_odepart())
        $msg:mtell(this, "arrive_quack", old_loc)
      endif
    endif
  endfork
else
  t = 0
endif
"Changed from _move!_obj to avoid VVers fleeing from @summon's"
this:moveto(iobjstr)
if (t && (this.location == $player_start || this.location == iobj))
  `kill_task(t) ! E_INVARG => "Oh.  Oops."'
endif
"Last modified by Dax (#789) on Thu Nov  8 15:28:57 2001 MST."
.