// /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 */
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"
);
}
