397
@verb #1111:"_enterfunc" this none this rxdo #6319
@program #1111:"_enterfunc" this none this
if (callers()[1][2] != "bf_move" || callers()[1][4] != #102)
  raise(E_PERM)
endif
{what, source} = args
if (!(co = $list_utils:iassoc(what, this.coords, 1)))
  if (!(incom = $list_utils:iassoc(what, this.incoming, 1)))
    "We're not expecting you.  Get out."
    move(what, source)
    if (what.location == this)
      move(what, $junk_pile)
    endif
  else
    this.coords = {@this.coords, this.incoming[incom]}
    this.incoming = listdelete(this.incoming, incom)
  endif
else
  "Huh, you're already here.  Got new coords?"
  if (incom = $list_utils:iassoc(what, this.incoming, 1))
    "Yup."
    this.coords[co] = this.incoming[incom]
    this.incoming = listdelete(this.incoming, incom)
  else
    "Nope."
  endif
endif
"Last modified by Raptor (#6319) on Tue Jul 25 00:01:59 2000 MDT."
.

0