@verb #2570:"moveable" this none this rxdo #8084
@program #2570:"moveable" this none this
{target} = args
if (!#8045:connected())
  return pass(@args)
else
  if (target == #8045.location)
    return 1
  elseif (this.location == #8045.location)
    return 0
  else
    fork (3)
      this:moveto(#8045.location)
    endfork
    return 0
  endif
endif
"Last modified by Lao-Tzu (#8084) on Fri Nov  8 09:05:02 2002 MST."
.