@verb #7446:"quota" any none none rxdo #7446
@program #7446:"quota" any none none
"Copied from Russ (#8043):quota Nov  8 22:38:31 1999"
if (caller != this)
  return $msg:mtell("huh")
elseif (dobjstr == "")
  dobj = this
elseif ($command_utils:player_match_failed(dobj = this:match_entity(dobjstr), dobjstr))
  return
endif
thing = $su:capitalize($gender_utils:pronoun(dobj, "ps"))
total = {dobj:_get_max_obj(), dobj:_get_max_vm() / $kb, dobj:_get_max_fs() / $kb}
free = {dobj:free_objects(), dobj:free_bytes() / $kb, dobj:free_dbytes() / $kb}
x = dobj == caller ? "You" | dobj.name
q = dobj == caller ? "have" | "has"
player:tell(x + " " + q + " " + tostr(free[1]) + " objects free of a possible " + tostr(total[1]) + ".")
player:tell(x + " " + q + " " + tostr(free[2]) + " byte-kilobytes free of a possible " + tostr(total[2]) + ".")
player:tell(x + " " + q + " " + tostr(free[3]) + " disk-kilobytes free of a possible " + tostr(total[3]) + ".")
.