/*    /verbs/items/steal.c
 *    from the Dead Souls Mud Library
 *    steal WRD from LIV
 *    steal OBJ from LIV
 *    created by Descartes of Borg 951218
 */



#include <lib.h>
#include <rounds.h>
#include "include/steal.h"

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("steal");
    SetRules("OBJ from LIV", "WRD from LIV", "OBS from LIV");
    SetErrorMessage("Steal what from whom?");
    SetHelp("Syntax: <steal money from LIVING>\n"
            "        <steal ITEM from LIVING>\n"
            "        <steal all [of ITEMS] from LIVING>\n\n"
            "Uses your stealing abilities to rob another of items or money.  "
            "Items are much harder to steal than money, and trying to steal "
            "multiple items in one shot is dangerous.");
}

mixed can_steal_wrd_from_liv(string wrd) {
    if( wrd != "money" ) return 0;
    if( this_player()->GetSkillLevel("stealing") < 1 )
        return "You are not skillful enough at stealing.";
    if( environment(this_player())->GetProperty("no steal") )
        return "Mystical forces prevent your thievery.";
    if( this_player()->GetStaminaPoints() < 10 )
        return "You are too tired for such skullduggery.";
    if(intp(check_light())) return this_player()->CanManipulate();
    else return check_light();
}

mixed can_steal_obj_from_liv() {
    if( this_player()->GetSkillLevel("stealing") < 1 )
        return "You are not skillful enough at stealing.";
    if( environment(this_player())->GetProperty("no steal") )
        return "Mystical forces prevent your thievery.";
    if( this_player()->GetStaminaPoints() < 20 )
        return "You are too tired for such skullduggery.";
    if(intp(check_light())) return this_player()->CanManipulate();
    else return check_light();
}

mixed do_steal_wrd_from_liv(string wrd, object liv) {
    this_player()->eventPrint("You eye " + liv->GetName() +
            " with thoughts on " + possessive(liv) +
            " pockets.");
    if( this_player()->GetInCombat() )
        this_player()->SetAttack(0, (: eventSteal,this_player(), "money", liv :),
                ROUND_OTHER);
    else eventSteal(this_player(), "money", liv);
    return 1;
}

mixed do_steal_obj_from_liv(object item, object liv) {
    if(!item) return "That's not here.";
    if( environment(item) != liv ) {
        this_player()->eventPrint(liv->GetName() + " does not have that.");
        return 1;
    }
    if(item->GetProperty("no steal")){
        this_player()->eventPrint("that item cannot be stolen.");
        return 1;
    }
    this_player()->eventPrint("You eye " + liv->GetName() +
            " with thoughts on " + possessive(liv) + " " +
            remove_article(item->GetShort()) + ".");
    if( this_player()->GetInCombat() )
        this_player()->SetAttack(0, (: eventSteal, this_player(), ({ item }),
                    liv :), ROUND_OTHER);
    else eventSteal(this_player(), ({ item }), liv);
    return 1;
}

mixed do_steal_obs_from_liv(mixed *res, object liv) {
    object *obs;

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

        ua = unique_array(res, (: $1 :));
        foreach(mixed *lines in ua) this_player()->eventPrint(lines[0]);
        return 1;
    }

    foreach(mixed thing in res){
        if(objectp(thing) && thing->GetProperty("no steal")){
            this_player()->eventPrint("One of those items cannot be stolen, causing "+
                    "you to be distracted from stealing any of the others.");
            return 1;
        }
    }
    this_player()->eventPrint("You eye " + liv->GetName() +
            " with thoughts on " + possessive(liv) +
            " possessions.");
    if( this_player()->GetInCombat() )
        this_player()->SetAttack(0, (: eventSteal, this_player(), obs, liv :),
                ROUND_OTHER);
    else eventSteal(this_player(), obs, liv);
    return 1;
}

static void eventSteal(object who, mixed what, object target) {
    if(objectp(what) && what->GetProperty("no steal")){
        write("That item cannot be stolen.");
        return;
    }
    who->eventSteal(who, what, target);
}