@verb #12:"@eject*!!" any out of/from inside/from any rdo #55
@program #12:"@eject*!!" any out of/from inside/from any
set_task_perms(player)
if (iobjstr in $msg.here)
  iobj = player.location
elseif (iobjstr in $msg.me)
  iobj = player
elseif ($command_utils:object_match_failed(iobj, iobjstr))
  return
endif
if (dobjstr in $msg.me)
  dobj = player
elseif ($failed_match == (dobj = $string_utils:literal_object(dobjstr)) && $command_utils:object_match_failed(dobj = iobj:match(dobjstr), dobjstr))
  player:tell({dobj, dobjstr, iobj})
  return
endif
if (dobj.location != iobj)
  return $msg:mtell("not_contain", iobj, dobj)
endif
try
  iobj:(verb in {"@eject", "@expulse"} ? "eject" | "eject_basic")(dobj)
except (E_PERM)
  return $msg:mtell("not_own", iobj)
endtry
if (dobj.location != iobj)
  $msg:lmtell({$room, iobj}, {}, {player, "msg_ejection"}, @verb in {"@eject!!", "@expulse!!"} ? {{dobj, "msg_victim_ejection"}} | {}, "msg_oejection")
  "Readable, ain't it?"
else
  player:tell("Unable to eject ", dobj:nn(), " from ", iobj:nn(), ".")
endif
"Last modified by whiz (#3135) on Tue Oct  5 20:29:13 1999 MDT."
.