31b
@verb #4:"zap_contribs" this none this rxd #55
@program #4:"zap_contribs" this none this
"Gracefully sets the player's quota contribs to {}"
if (!$perm_utils:controls(caller_perms(), this))
  raise(E_PERM)
endif
for x in (this.quota_contribs)
  for y in ({{"max", ">", "take", ""}, {"min", "<", "give", "-"}})
    eval(strsub(tostr(y[1], "(y[2],y[3])", y[2], " 0 && ", this, ":", y[3], "_quota(y[1],max(", y[4], "y[2],0),max(", y[4], "y[3],0),max(", y[4], "y[4],0));"), "y[", toliteral(x) + "["))
  endfor
endfor
"BTW, don't mess with this unless you are _really_ sure of what you are doing..."
"This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
"Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."
.

0