/** * This command offers to sell an object to another thingy. * @author Pinkfish * @started Mon Aug 17 07:02:04 EDT 1998 */ #include <money.h> #include <cmds/offer.h> inherit COMMAND_BASE; int withdraw_offer(object *sell_to) { object *removed; object ob; removed = ({ }); foreach (ob in sell_to) { if (ob->query_respond_command("sell", this_player())) { ob->remove_respond_command("sell", this_player()); removed += ({ ob }); } } if (sizeof(removed)) { /* Ok! Now offer the sale. */ add_succeeded_mess("$N withdraw$s $p offer of sale to $I.\n", removed); return 1; } add_failed_mess("You cannot withdraw your offer of sale to $I since " "you have not offered to sell them anything in the " "first place.\n", sell_to); return 0; } /* withdraw_offer() */ mixed *query_patterns() { return ({ "offer {from|to} <indirect:living>", (: withdraw_offer($1) :) }); } /* query_patterns() */