/*    /verbs/items/give.c
 *    from the Dead Souls Object Library
 *    give LIV OBJ
 *    give OBJ to LIV
 *    give LIV WRD WRD
 *    give WRD WRD to LIV
 *    created by Descartes of Borg 950113
 */

#include <lib.h>
#include "include/give.h"

inherit LIB_VERB;

string curr2;

static void create() {
    verb::create();
    SetVerb("give");
    SetRules("LIV WRD WRD", "WRD WRD to LIV", "OBS LIV", "LIV OBS", "OBS to LIV" );
    SetErrorMessage("Give what to whom?");
    SetHelp("Syntax: <give LIVING ITEM>\n"
            "        <give LIVING ITEMS>\n"
            "        <give ITEM to LIVING>\n"
            "        <give ITEMS to LIVING>\n"
            "        <give LIVING AMOUNT CURRENCY>\n"
            "        <give AMOUNT CURRENCY to LIVING>\n\n"
            "This command allows you to give something you have to "
            "someone else.\n\n"
            "See also: drop, get, put");
}

mixed can_give_liv_obj(mixed args...) {
    return can_give_obj_to_liv();
}

mixed can_give_obj_liv(mixed args...) {
    return can_give_obj_to_liv();
}

mixed can_give_obj_to_liv(mixed args...) { 
    return this_player()->CanManipulate(); }

    mixed can_give_liv_wrd_wrd(object targ, string num, string curr) {
        return can_give_wrd_wrd_to_liv(num, curr, targ);
    }

mixed can_give_wrd_wrd_to_liv(string num, string curr, object targ) {
    int amt;
    curr2 = curr;
    if(!valid_currency(curr)) curr = truncate(curr,1);
    if(!valid_currency(curr)) curr = truncate(curr,1);
    if(!valid_currency(curr)) curr = curr2 +"s";
    if(!valid_currency(curr)) curr = curr2 +"es";
    if(valid_currency(curr)) curr2 = curr;

    if(sscanf(num,"%d",amt) != 1){
        if(valid_currency(curr)) return "Please use a number to specify the amount.";
        else return "That isn't a valid currency.";
    }
    if( amt < 1 ) return "What sort of amount is that?";
    if( amt > (int)this_player()->GetCurrency(lower_case(curr)) )
        return "You don't have that much " + curr + "."; 
    if(newbiep(this_player())) return "Newbies can't give money.";
    return this_player()->CanManipulate();
}

//mixed do_give_liv_obj(object target, object what) {
mixed do_give_liv_obj(mixed args...) {
    object target, what;
    target = args[0];
    what = args[1];
    return do_give_obj_to_liv(what, target);
}

//mixed do_give_obj_liv(object what, object target) {
mixed do_give_obj_liv(mixed args...) {
    object target, what;
    target = args[1];
    what = args[0];
    return do_give_obj_to_liv(what, target);
}

//mixed do_give_obj_to_liv(object what, object target) {
mixed do_give_obj_to_liv(mixed args...) {
    object target, what;
    target = args[1];
    what = args[0];

    if(!intp(target->CanManipulate())){
        this_player()->eventPrint(target->GetName()+" is incapable "+
                "of holding that.");
        return 1;
    }
    if( !((int)what->eventMove(target)) ) {
        this_player()->eventPrint("They cannot accept that right now.");
        return 1;
    }
    this_player()->eventPrint("You give " + (string)target->GetName() + " " +
            (string)what->GetShort() + ".");
    target->eventPrint((string)this_player()->GetName() + " gives you " +
            (string)what->GetShort() + ".");
    environment(this_player())->eventPrint((string)this_player()->GetName() +
            " gives " +
            (string)target->GetName() +
            " " + (string)what->GetShort() +".",
            ({ this_player(), target }));
    return 1;
}

mixed do_give_liv_wrd_wrd(object target, string num, string curr) {
    return do_give_wrd_wrd_to_liv(num, curr, target);
}

mixed do_give_wrd_wrd_to_liv(string num, string curr, object target) {
    int amt;
    if(curr2) curr = curr2;
    amt = to_int(num);
    if( (int)target->AddCurrency(curr, amt) == -1 ) {
        this_player()->eventPrint("You just can't give that money away.");
        return 1;
    }
    if( (int)this_player()->AddCurrency(curr, -amt) == -1 ) {
        target->AddCurrency(curr, -amt);
        this_player()->eventPrint("The amount of money you have is boggled.");
        return 1;
    }
    this_player()->eventPrint("You give " + (string)target->GetName() + " " +
            amt + " " + curr + ".");
    target->eventPrint((string)this_player()->GetName() + " gives you " +
            amt + " " + curr + ".");
    environment(this_player())->eventPrint((string)this_player()->GetName() +
            " gives " + amt + " " + curr +
            " to " + (string)target->GetName() +
            ".", ({ target, this_player() }));
    return 1;
}

mixed do_give_liv_obs(object target, mixed *items) {
    return do_give_obs_to_liv(items, target);
}

mixed do_give_obs_liv(mixed *items, object target) {
    return do_give_obs_to_liv(items, target);
}

mixed do_give_obs_to_liv(mixed *items, object target) {
    object *obs, *eligible;

    if( sizeof(items) < 1 ) {
        this_player()->eventPrint("You don't have any to give.");
        return 1;
    }

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

        ua = unique_array(items, (: $1 :));
        foreach(string *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;
    }

    foreach(object ob in eligible) do_give_obj_to_liv(ob, target);
    return 1;
}