/*    /verbs/items/wear.c
 *    From the Dead Souls Mud Library
 *    Allows a player to wear armor
 *    Created by Descartes of Borg 951020
 *    Version: @(#) wear.c 1.2@(#)
 *    Last modified: 97/01/01
 */

#include <lib.h>
#include <armor_types.h>

inherit LIB_VERB;

static void create() {
    verb::create();
    SetVerb("wear");
    SetRules("OBS", "OBJ on STR");
    SetErrorMessage("Wear what?  When in doubt, specify a limb to "
            "wear it on.");
    SetHelp("Syntax: <wear ARMOR>\n"
            "        <wear ARMOR on LIMB>\n\n"
            "Allows you to take an article of clothing and wear it.  Some "
            "bits of clothing may be worn in a variety of places, and thus "
            "require you to specify where it is they should be worn.  For "
            "example, a shield could be worn with either the right hand or "
            "left hand.  So you would type, \"wear shield on right hand\".\n\n"
            "See also: wield");
}

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

mixed can_wear_obj_on_str(string str) {
    return can_wear_obj();
}

mixed do_wear_obj(object ob) {
    return ob->eventEquip(this_player(), ob->GetRestrictLimbs());
}

mixed do_wear_obj_on_str(object ob, string str) {
    return ob->eventEquip(this_player(),
            ({ remove_article(lower_case(str)) }));
}

mixed do_wear_obs(object array armors) {
    object array obs;

    if( !sizeof(armors) ) {
        this_player()->eventPrint("There is no such thing to be worn.");
        return 1;
    }
    obs = filter(armors, (: objectp :));
    if( !sizeof(obs) ) {
        mixed array ua;

        ua = unique_array(armors, (: $1 :));
        foreach(string array list in ua) {
            this_player()->eventPrint(list[0]);
        }
        return 1;
    }
    foreach(object armor in obs) {
        do_wear_obj(armor);
    }
    return 1;
}