/**
* 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() */
