View/Edit #13:@throw

Switch to edit mode.

1:  "Copied from Generic Project (#98):@throw by Slacker (#2) Aug 25 18:03:40 1997"
2:  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))
3:    return
4:  endif
5:  if (!player:controls(dobj) && player != iobj.leader && !player.wizard)
6:    player:sub_tell("You don't own %d or %i.")
7:    return
8:  endif
9:  if (!(i = dobj in iobj.teachers))
10:   player:sub_tell("%D is not a member of %i.")
11:   return
12: endif
13: contrib = `listassoc(player.quota_contribs, iobj)[1] ! E_RANGE => 0'
14: $wiz_utils:eject_from_project(dobj, iobj)
15: player:sub_tell("%D has been ejected from %i, and refunded %1 kb.", contrib / $kb)
16: dobj:sub_tell("You have been ejected from %i, and refunded %1 kb.", contrib / $kb)
17: if (dobj == iobj.leader)
18:   iobj:leaderless()
19: endif
20: "Last modified by Dax (#789) on Sun Jul 14 13:04:15 2002 MDT."

[home | help | who | search | setup | code]