@verb #8562:"eject_cmd" any none none rxdo #3887
@program #8562:"eject_cmd" any none none
if ((victim = this:identify_victim(dobjstr)) <= $nothing)
  return
elseif (!this:has_access(player, "eject", victim))
  return this:say(this.msg_access_denied_say)
endif
this:say(tostr("Ejecting ", victim.name, " from the room."))
this.location:announce_all($transporter.beam_snd)
suspend(1)
victim:Tell($transporter.msg_beamout)
this.location:sub_announce_all_but({victim}, $transporter.msg_obeamout, victim)
this.location:eject(victim)
suspend(1)
this.location:announce_all($transporter.nobeam_snd)
"Last modified by Daryl (#3887) on Thu Jul 29 14:28:46 1999 MDT."
.