View/Edit #12:@give*quota

Switch to edit mode.

Name(s): @give*quota
1:  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:     return player:tell("Invalid quota quantity specified.")
11:   endtry
12:   try
13:     r = this:give_quota(victim, @amount)
14:   except (E_INVARG)
15:     return player:tell(victim.name, " (", victim, ")  Is not an accountable object!")
16:   endtry
17:   if (r == amount)
18:     player:tell("Quota transfer successful.")
19:   elseif (r == {0, 0, 0})
20:     player:tell("Quota transfer failed.")
21:   else
22:     player:sub_tell("Quota transfer successful, but only %1 bytes, %2 objects, and %3 disk bytes were transferred.", r[1], r[2], r[3])
23:   endif
24: else
25:   player:tell("Syntax:  @give [n o*bjects][n b*ytes][n k*bytes][n dk*ilobytes][n db*ytes] to <player/project>")
26:   player:tell("         @take [n o*bjects][n b*ytes][n k*bytes][n dk*ilobytes][n db*ytes] to <player/project>")
27: endif
28: suspend(0)
29: dobjstr = tostr(victim)
30: this:("@quota")()
31: "Last modified by Dax (#789) on Thu Nov  8 11:53:52 2001 MST."
32: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
33: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

Verb arguments: any at/to any
Verb perms: Readable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

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