Switch to edit mode.
Name(s): @take*quota1: if (player != this)
2: return player:tell(E_PERM)
3: elseif ($command_utils:player_match_failed(victim = player:match_entity(iobjstr), iobjstr))
4: return
5: endif
6: if (dobjstr)
7: try
8: amount = $quota:parse_amount(dobjstr)
9: except error (E_INVARG)
10: player:tell(error)
11: endtry
12: r = this:take_quota(victim, @amount)
13: if (r == amount)
14: player:tell("Quota transfer successful.")
15: elseif (r == {0, 0, 0})
16: player:tell("Quota transfer failed.")
17: else
18: player:sub_tell("Quota transfer successful, but only %1 bytes, %2 objects, and %3 disk bytes were transferred.", r[1], r[2], r[3])
19: endif
20: else
21: player:tell("Syntax: @give [n o*bjects][n b*ytes][n k*bytes][n dk*ilobytes][n db*ytes] to <player/project>")
22: player:tell(" @take [n o*bjects][n b*ytes][n k*bytes][n dk*ilobytes][n db*ytes] to <player/project>")
23: endif
24: suspend(0)
25: dobjstr = tostr(victim)
26: this:("@quota")()
27: "Last modified by Dax (#789) on Thu Nov 8 11:53:52 2001 MST."
28: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
29: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."