40b
@verb #13:"@throw" any out of/from inside/from any rdo #55
@program #13:"@throw" any out of/from inside/from any
"Copied from Generic Project (#98):@throw by Slacker (#2) Aug 25 18:03:40 1997"
if ($command_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr) || $command_utils:player_match_failed(iobj = $string_utils:match_player(iobjstr), iobjstr))
  return
endif
if (!player:controls(dobj) && player != iobj.leader && !player.wizard)
  player:sub_tell("You don't own %d or %i.")
  return
endif
if (!(i = dobj in iobj.teachers))
  player:sub_tell("%D is not a member of %i.")
  return
endif
contrib = `listassoc(iobj, player.quota_contribs)[1] ! E_RANGE => 0'
$wiz_utils:eject_from_project(dobj, iobj)
player:sub_tell("%D has been ejected from %i, and refunded %1 kb.", contrib / $kb)
dobj:sub_tell("You have been ejected from %i, and refunded %1 kb.", contrib / $kb)
if (dobj == iobj.leader)
  iobj:leaderless()
endif
"Last modified by Dax (#789) on Sun Jul 14 13:04:15 2002 MDT."
.

0