#include <lib.h>
mapping Money = ([]);

int AddMoney(string type, int amount) { 
    object pile;
    pile = new(LIB_BLANK_PILE);
    pile->SetPile(type,amount);
    pile->eventMove(this_object());
    Money[type] = amount;
    return 1;
}

varargs void SetMoney(mixed val, int amount) {
    if( stringp(val) ) AddMoney(val, amount);
    else if( mapp(val) ) {
	string *currs;
	int i;
	i = sizeof(currs = keys(val));
	while(i--) { 
	    AddMoney(currs[i], val[currs[i]]);
	    Money[currs[i]] = val[currs[i]];
	}
    }
    else error("Bad argument 1 to SetMoney().");
}

mapping GetMoneyMap() { return copy(Money); }