/*    /verbs/items/wear.c
 *    From the Dead Souls Object 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;
}