374
@verb #51:"suck_in" this none this rxdo #55
@program #51:"suck_in" this none this
"The correct way to move someone into the editor."
{dobj, exp} = args
caller == this || raise(E_PERM)
caller_perms().wizard || caller_perms() == $hacker || raise(E_PERM)
"Caller_perms check added as a result of Ancillar (#8977) spotting ways to abuse this verb."
if ((loc = dobj.location) != this)
  this.invoke_task = task_id()
  dobj:moveto(this)
  if (dobj.location != this)
    dobj:tell("For some reason, I can't move you.   (?)")
    this:_exitfunc(dobj)
  else
    $msg:lmtell({dobj}, {exp}, {loc, ""}, tostr("msg_", this:isa($verb_editor) ? "overb" | (this:isa($mail_editor) ? "omail" | (this:isa($note_editor) ? "onote" | "o"))) + "depart")
  endif
  this.invoke_task = 0
endif
return dobj.location == this
"Last modified by Dax (#789) on Sun Dec 30 14:51:02 2001 MST."
.

0