316
@verb #57:"queue_delivery" this none this rxdo #57
@program #57:"queue_delivery" this none this
!caller_perms():controls(this) && raise(E_PERM)
{what, to, from, ?box = caller} = args
if (w = what in this.queued_mail)
  if (this.queued_boxes[w] != box)
    this:dequeue_delivery(what)
  else
    return
  endif
endif
if (what == to || is_player(what) || (!is_player(to) && !to:isa($room)))
  return
endif
this.queued_mail = {@this.queued_mail, what}
this.queued_rcpts = {@this.queued_rcpts, to}
this.queued_senders = {@this.queued_senders, from}
this.queued_boxes = {@this.queued_boxes, box}
if (caller != this && (!to:isa($project) && to:connected(0)))
  this:dispatch({what, to, from, box})
endif
"Last modified by Raptor (#6319) on Wed Nov  4 16:30:14 1998 EST."
.

0