3a1
@verb #3:"_exitfunc" this none this rxdo #789
@program #3:"_exitfunc" this none this
{what, dest} = args
if (`what.anchor ! E_PROPNF => #-1' == this && `dest.location != this ! E_INVIND => 1' && dest != this && this:accept(what))
  "This self-propelled object is leaving and is anchored."
  fork (0)
    "Wait till the object has left before printing messages."
    move(what, this)
    what:sub_tell(what:msg_anchor(), what)
    this:sub_announce(what:msg_oanchor(), what)
  endfork
  return
endif
for object in (what:all_contents())
  if (`object.anchor ! E_PROPNF => #-1' == this && this:accept(object))
    fork (0)
      "Wait till the person has left before printing messages."
      what:sub_tell(object:msg_anchor(), object)
      this:sub_announce(object:msg_oanchor(), object)
    endfork
    move(object, this)
  endif
endfor
"Last modified by whiz (#3135) on Mon Mar 25 14:39:21 2002 MST."
.

0