//      /bin/user/_money.c
//      from the Dead Souls mudlib
//      a comand to allow players to search their pockets
//      created by Descartes of Borg 25 april 1993


#include <lib.h>

inherit LIB_DAEMON;

mixed cmd(string str) {
    string *currs;
    string borg;
    int i, tmp;

    if(str) return 0;  /* to allow the wiz command to work */
    if( creatorp(this_player()) ) return "Sorry, coders don't get salaries here!";
    currs = (string *)this_player()->GetCurrencies();
    currs = filter(currs, (: this_player()->GetCurrency($1) > 0 :));
    if( !currs || !sizeof(currs) ) {
        write("You are broke.");
        say(this_player()->GetName()+" comes up with empty pockets.");
        return 1;
    }
    say(this_player()->GetName()+" fishes through "+
      possessive(this_player())+" pockets examining some money.");
    message("my_action", "In your pockets you find "+
      ((sizeof(currs) > 1) ? "these currencies: " : "only: "), this_player());
    for(borg = "", i=0, tmp = sizeof(currs); i<tmp; i++) {
        borg += ((this_player()->GetCurrency(currs[i]))+" "+currs[i]);
        if(i == tmp-1) borg +=(".\n");
        else if(tmp > 2 && i == tmp-2) borg += (", and ");
        else if(tmp == 2) borg +=(" and ");
        else borg +=(", ");
    }
    message("my_action", borg, this_player());
    return 1;
}

void help() {
    write("Syntax: <money>\n\n"
      "Allows you to search your pockets for all your money\n"
      "of all currency types.\n"
    );
}