@verb #3380:"home chez" none none none rxdo #3380
@program #3380:"home chez" none none none
"Copied from Generic player (#6):home by Slacker (#2) Mar  9 17:35:08 1996"
if (valid(caller_perms()) && caller != this && !caller_perms().wizard)
  return
endif
if (!$object_utils:isa(this.home, $room))
  this:sub_tell("Your home %1 (#%1~#) doesn't seem to be a room.", this.home)
  this.home = $player_start
elseif (!this.home:accept_for_abode(this))
  this:sub_tell("Your home %1 (#%1~#) doesn't seem to want you.", this.home)
  this.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.")
      this:moveto(this.home)
      old_loc:sub_announce(this:msg_odepart())
      $msg:mtell(this, "arrive_quack", old_loc)
    endif
  endfork
else
  t = 0
endif
this:("@move!")()
if (t && (this.location == $player_start || this.location == iobj))
  kill_task(t)
endif
"Last modified by Dax (#789) on Sun Jul 28 02:48:37 2002 MDT."
.