/*    /lib/currency.c
 *    from the Dead Souls LPC Library
 *    handles player bank accounts and carried currency
 *    created by Descartes of Borg 950324
 */


#include <lib.h>

private mapping Currency = ([]);
private mapping Bank     = ([]);

// abstract methods
int CanCarry(int amount);
// end abstract methods

/* ***************  /lib/currency.c driver applies  *************** */

static void create(){
}

/* ***************  /lib/currency.c data manipulation funcs  *************** */

int AddCurrency(string type, int amount){ 
    if( amount > 0 ){
        int curr_mass;
        curr_mass = to_int(currency_mass(amount, type));
        if(curr_mass < 1 ) curr_mass = 1;
        if( !CanCarry(curr_mass) ){
            return -1;
        }
    }
    if( amount + Currency[type] < 0 ){
        return -1;
    }
    return (Currency[type] += amount);
}

int GetCurrency(string type){ return Currency[type]; }
mapping GetCurrencyMap(){ return copy(Currency); }

varargs int GetCurrencyMass(string type){
    int total;

    if( stringp(type) ){
        return currency_mass(Currency[type], type);
    }
    foreach(string currency, int amount in Currency){
        total += currency_mass(amount, currency);
    }
    return total;
}

int AddBank(string bank, string type, int amount){
    if( !stringp(bank) ) error("Bad argument 1 to AddBank().");
    if( !Bank[bank] ){
        if( amount < 1 ) return -1;
        Bank[bank] = ([ "open" : time(), type : amount, "last time" : time(),
          "last trans" : "opened account", 
          "audit" : identify(previous_object(-1)) ]);
    return amount;
}
if( Bank[bank][type] + amount < 0 ) return -1;
Bank[bank][type] += amount;
Bank[bank]["last time"] = time();
if( amount > 0 ) Bank[bank]["last trans"] = "deposit";
else Bank[bank]["last trans"] = "withdrawal";
Bank[bank]["audit"] = identify(previous_object(-1));
return Bank[bank][type];
}

int GetBank(string bank, string type){
    if( !Bank[bank] ) return -1;
    else return Bank[bank][type];
}

mapping GetAccountInfo(string bank){
    if( !Bank[bank] ) return 0;
    else return copy(Bank[bank]);
}

varargs int GetNetWorth(string benjamins){
    string curr;
    float net_worth = 0.0;
    int amt;
    foreach(curr, amt in Currency){
        if(valid_currency(curr))
            net_worth += amt * currency_rate(curr);

    }
    foreach(string bank, mapping balance in Bank){
        foreach(curr, amt in balance){
            float tmp;

            switch(curr){
            case "last trans": case "last time": case "audit": case "open":
                break;
            default:
                if( (tmp = currency_rate(curr)) < 1 ) break;
                net_worth += amt * tmp;
                break;
            }
        }
    }
    if(!benjamins || benjamins == ""||!stringp(benjamins)) benjamins = "gold";
    if(member_array(benjamins,mud_currencies()) == -1) benjamins = "gold";
    if(benjamins && net_worth) return to_int(net_worth / currency_rate(benjamins));
    else return to_int(0);
}

string array GetCurrencies(){ return keys(Currency); }

void ResetBank(){ Bank = ([]); }

void ResetCurrency(){ Currency = ([]); }