mud/lib/lib/money.c
2020-09-06 05:43:07 -07:00

28 lines
661 B
C

#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); }