#include "money.h"
inherit "/std/room";
void init() {
::init();
add_action("change", "change");
}
int change(string str) {
string s1, type;
object *obs, cont, ob;
mixed *values,*change_arr;
int val, mon, i;
notify_fail("CHange is not a well beast.\n");
notify_fail("Syntax: "+query_verb()+" <money> into <type>\n"
" Eg: change 10 brass coins into copper\n");
if(!str || ((sscanf(str, "%s into %s", s1, type) != 2) &&
(sscanf(str, "%s to %s", s1, type) != 2)))
return 0;
cont = clone_object("/std/container");
obs = find_match(s1, this_player());
for (i=0;i<sizeof(obs);i++)
if (obs[i]->query_property("money")) {
mon = 1;
obs[i]->move(cont);
}
if (!mon) {
notify_fail("I can only change money. Sorry.\n");
cont->dest_me();
return 0;
}
values = (mixed *)MONEY_HAND->query_values();
if ((i = member_array(type, values)) == -1) {
notify_fail("It would be nice if you changed to an existing money type.\n");
cont->dest_me();
return 0;
}
ob = present(MONEY_ALIAS, cont);
val = (int)ob->query_value()*93/100;
if (val < values[i+1]) {
notify_fail("This is not even worth one "+type+" coin, I cannot change "
"to that!\n");
ob->move(this_player());
cont->dest_me();
return 0;
}
this_player()->adjust_money(val/values[i+1], type);
change_arr = MONEY_HAND -> create_money_array(val % values[i+1]);
write("Ok, changed "+MONEY_HAND->money_string(ob->query_money_array())+
" into "+(val/values[i+1])+" "+type+" coins.\n");
for (i=0; i<sizeof(change_arr); i+=2)
this_player() -> adjust_money(change_arr[i+1],change_arr[i]);
if(sizeof(change_arr))
write("You were returned "+MONEY_HAND -> money_string(change_arr)+" as excess coinage.\n");
ob->dest_me();
cont->dest_me();
return 1;
}