/*    /lib/props/equip.c
 *    From the Dead Souls Object Library
 *    Handles the property of being something that is equipped to a limb
 *    The word worn is used instead of equipped for historical reasons
 *    Created by Descartes of Borg 970101
 *    Version: @(#) equip.c 1.1@(#)
 *    Last modified: 97/01/01
 */

#include <armor_types.h>

private int          ArmorType  = A_WEAPON;
private string array Worn        = 0;

// abstract methods
string GetDefiniteShort();
// end abstract methods

int GetArmorType(){
    return ArmorType;
}

int SetArmorType(int x){
    if( !intp(x) ){
        error("Bad argument to SetArmorType().\n\tExpected value from "
                "/include/armor_types.h, Got: " + typeof(x) + "\n");
    }
    return (ArmorType = x);
}

string array GetSave(){
    return ({ "Worn" });
}

string array GetWorn(){
    return Worn;
}

static string array SetWorn(string array limbs){
    return (Worn = limbs);
}

mixed CanEquip(object who, string array limbs){
    if( GetWorn() ){
        return "#You are already using " + GetDefiniteShort() + ".";
    }
    return who->CanWear(this_object(), limbs);
}

mixed CanUnequip(object who){
    if( !GetWorn() ){
        return "#You are not using " + GetDefiniteShort() + ".";
    }
    return who->CanRemoveItem(who, this_object());
}

mixed eventEquip(object who, string array limbs){
    mixed tmp = who->eventWear(this_object(), limbs);

    if( tmp != 1 ){
        return tmp;
    }
    SetWorn(limbs);
    return 1;
}

static void eventRestoreEquip(string array limbs){
    mixed tmp;

    if( !limbs || !environment() ){
        return;
    }
    tmp = CanEquip(environment(), limbs);
    if( tmp == 1 ){
        tmp = eventEquip(environment(), limbs);
    }
    if( stringp(tmp) ){
        environment()->eventPrint(tmp);
    }
}

mixed eventUnequip(object who){
    mixed tmp = who->eventRemoveItem(this_object());

    if( tmp != 1 ){
        return tmp;
    }
    SetWorn(0);
    return 1;
}