/* File:    money.c
// Creator: Grendel@tmi-2
// When:    07-15-93

// This file provides a mechanism for a player to be credited and
// debited with money.  Calling set or add bypasses certain checks
// and does not account for encumbrance.
*/

mixed query(string what);
varargs int add(string what, mixed amt, int security);

int credit(string type, int amount)
{
    if(!type || !stringp(type) || !amount || !intp(amount))
	return 0;
    if(query("capacity") < amount)
	return 0;
    add("capacity",-amount);
    add("wealth/"+type,amount);
    return 1;
}

int debit(string type, int amount)
{
    if(!type || !stringp(type) || !amount || !intp(amount))
	return 0;
    if(query("wealth/"+type) < amount)
	return 0;
    add("capacity",amount);
    add("wealth/"+type,-amount);
    return 1;
}