2b8
@verb #13:"@leave" any none none rdo #55
@program #13:"@leave" any none none
"Copied from Generic Project (#98):@leave by Slacker (#2) Aug 25 18:03:47 1997"
if ($command_utils:player_match_failed(dobj = $string_utils:match_player(dobjstr), dobjstr))
  return
endif
if (!(i = player in dobj.teachers))
  player:sub_tell("You are not a member of %d.")
  return
endif
contrib = `listassoc(dobj, player.quota_contribs)[2] ! E_RANGE => 0'
$wiz_utils:eject_from_project(player, dobj)
player:sub_tell("You have left %d, and have been refunded %1 kb.", contrib / $kb)
if (player == dobj.leader)
  dobj:leaderless()
endif
"Last modified by Dax (#789) on Sun Jul 14 13:04:44 2002 MDT."
.

0