232
@verb #58:"send_home" this none this rxdo #55
@program #58:"send_home" this none this
if (caller != this)
  raise(E_PERM)
endif
{who} = args
where = who.location
home = who.home
if (where == home || where == $limbo)
  return
elseif (!`home:accept_for_abode(who) ! ANY')
  home = $player_start
endif
"Tada, cleaned up the body accumulation at the Knoll - wk"
if (home == $player_start)
  home = $limbo
endif
if (who.anchor != #-1)
  who.anchor = #-1
endif
move(who, home)
"Last modified by manta (#7165) on Sun Aug 23 16:00:26 1998 EDT."
.

0