/*    /verbs/items/sell.c
 *    From the Dead Souls Mud Library
 *    Allows a player to sell stuff to a vendor
 *    Created by Descartes of Borg 9602??
 *    Version: @(#) sell.c 1.2@(#)
 *    Last modified: 97/01/03
 */

#include <lib.h>

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("sell");
    SetRules("OBS to LIV", "LIV OBS");
    SetErrorMessage("Sell what to whom?");
    SetHelp("Syntax: <sell ITEM to LIVING>\n\n"
            "When in the presence of vendors, you may buy and sell goods "
            "which match the type of goods the vendor in question trades in.  "
            "The \"sell\" command naturally allows you to sell an item "
            "to an interested vendor.\n\n"
            "See also: ask, sell, vendors");
}

mixed can_sell_obj_to_liv() {
    if( this_player()->GetParalyzed() ) {
        return "You cannot do anything.";
    }
    return this_player()->CanManipulate();
}

mixed can_sell_liv_obs() {
    return can_sell_obj_to_liv();
}

mixed do_sell_obj_to_liv(object ob, object vendor) {
    if(ob->GetWorn()){
        write("Remove or unwield items before trying to sell them.");
        return 1;
    }
    return vendor->eventBuy(this_player(), ({ ob }));
}

mixed do_sell_liv_obj(object vendor, object item) {
    return do_sell_obj_to_liv(item, vendor);
}

mixed do_sell_obs_to_liv(object array items, object vendor) {
    object *obs, *eligible;

    obs = filter(items, (: objectp :));
    if( !sizeof(obs) ) {
        mixed array ua;

        ua = unique_array(items, (: $1 :));
        foreach(string array list in ua) {
            this_player()->eventPrint(list[0]);
        }
        return 1;
    }
    eligible=filter(obs, (: (!($1->GetWorn()) && environment($1) == this_player()) :)); 
    if(!sizeof(eligible)){
        write("Remove or unwield items before trying to sell them.");
        eligible = ({});
        return 1;
    }

    return vendor->eventBuy(this_player(), eligible);
}

mixed do_sell_liv_obs(object vendor, object array items) {
    return do_sell_obs_to_liv(items, vendor);
}