#include <lib.h>
#include <daemons.h>

inherit LIB_DAEMON;

int cmd(string str) {
    string type, key;
    float rate, infl, wt;

    if( !str ) {
        string *tmp;
        string curr;

        tmp = ({ "Currency        Rate    Infl    Mass" });
        foreach( curr in ECONOMY_D->__QueryCurrencies() )
            tmp += ({ sprintf("%:-15s %:-7s %:-7s %f",
                        curr, currency_rate(curr) + "" ,
                        currency_inflation(curr) + "",
                        (float)ECONOMY_D->__Query(curr, "weight")) });
        this_player()->more(tmp, "system");
        return 1;
    }
    if(!archp(previous_object())) return 0;
    log_file("economy", previous_object()->GetCapName()+": " +
            str+" ("+ctime(time())+")\n");
    if(sscanf(str, "add %s %f %f %f", type, rate, infl, wt) == 4) {
        ECONOMY_D->add_currency(type, rate, infl, wt);
        message("info", "Currency "+type+" added!", this_player());
    }
    else if(sscanf(str, "change %s for %s to %f", key, type, wt) == 3) {
        ECONOMY_D->change_currency(type, key, wt);
        message("info", "Changed: "+key+" for "+type+" to "+wt, this_player());
    }
    else return 0;
    return 1;
}

string GetHelp(){
    return ("Syntax: economy add <type> <exchange <rate> "
            "<inflation rate> <weight>\n"
            "        economy change <what> for <currency> to <value>\n\n"
            "This allows only approval people to modify the economic settings for "
            "the mud.  The add parameter signifies that the arch intends to add "
            "a new currency to the game.  The change parameter instead signifies "
            "that the arch is changing something in a currenct currency.  Examples:\n"
            "economy add gold 1.0 0.03 0.1\neconomy change rate for gold to 1.1\n"
            "The exchange rate parameter is multiplied by the value of "
            "query(\"value\") in mud objects to give the value in the currency of "
            "an object.  The inflation rate parameter of the add command sets "
            "the percentage rate by which the value of the currency "
            "will inflate (or deflate) over the course of a mud year.  The weight "
            "paramter sets how much one piece of the currency will weigh in "
            "standard mud weight units.  Finally, changing values for current "
            "currencies use the parameters: rate, inflation, weight.");
}