2c6
@verb #7165:"indirect_move" this none this rxdo #55
@program #7165:"indirect_move" this none this
"Copied from Not really a player (#6058):indirect_move by Dead_Duck (#396) Mar 20 16:31:49 1997"
if (!$perm_utils:can_hack())
  return
endif
where = args[1]
if (where == this.location)
  return
endif
if (p = $room_db:path_between(this.location, where, this))
  for e in (p)
    fork duck (0)
      e:move(this)
    endfork
    suspend(1)
    if (this.location != e.dest)
      kill_task(duck)
      move(this, e.dest)
    endif
  endfor
  if (this.location == where)
    return
  endif
endif
dobjstr = tostr(dobj = this)
iobjstr = tostr(iobj = where)
this:_move_obj(dobj, iobjstr)
.

0