/*    /lib/comp/weapon.c
 *    From the Dead Souls Object Library
 *    This object combines the ability to be wielded with damage doing
 *    Created by Descartes of Borg 960211
 *    Version: @(#) weapon.c 1.13@(#)
 *    Last modified: 97/01/01
 */

#include <lib.h>
#include <function.h>

inherit LIB_DAMAGE;
inherit LIB_EQUIP;
inherit LIB_POISON;
inherit LIB_WIELD;

private int          	Hands      = 1;
int			Wielded    = 0;
private string       	WeaponType = "blunt";
private static mixed 	Wield      = 0;

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

int GetWielded(){
    return Wielded;
}

varargs string GetEquippedDescription(object who){
    if(!who) who = this_player();
    if( GetWorn() ){
        string tmp = " It is wielded in ";
        if(who == environment()){
            tmp += "your";
        }
        else {
            tmp += possessive_noun(environment());
        }
        tmp += " " + item_list(GetWorn()) + ".";
        return tmp;
    }
    return 0;
}

string GetEquippedShort(){
    object env = environment();
    string ret = GetShort();
    string array limbs;

    if( !env || !living(env) ){
        return ret;
    }
    limbs = GetWorn();
    if( sizeof(limbs) > 0 ){
        ret += " (%^RED%^wielded in " + item_list(limbs) + "%^RESET%^)";
    }
    return ret;
}

int GetHands(){
    return Hands;
}

int SetHands(int x){
    return (Hands = x);
}

string array GetSave(){
    string *d_save, *e_save, *p_save, *a_save;

    d_save = damage::GetSave();
    e_save = equip::GetSave();
    p_save = poison::GetSave();
    a_save = d_save + e_save + p_save + ({"Wielded"});
    return a_save; 
}

string GetWeaponType(){
    return WeaponType;
}

string SetWeaponType(string str){
    if( !stringp(str) ){
        error("Bad argument 1 to SetWeaponType().\n\tExpected: string, Got: " +
          typeof(str) + "\n");
    }
    return (WeaponType = str);
}

mixed GetWield(){
    return Wield;
}

mixed SetWield(mixed val){
    return (Wield = val);
}

mixed CanEquip(object who, string array limbs){
    mixed tmp = equip::CanEquip(who, limbs);

    if( tmp != 1 ){
        return tmp;
    }
    if( GetHands() != sizeof(limbs) ){
        return "#You must use " + cardinal(Hands) + " hands to wield " +
        GetDefiniteShort() + ".";
    }
    if( Hands > sizeof(who->GetWieldingLimbs()) ){
        return "#You do not have enough limbs for that weapon!";
    }
    if( newbiep(who) && GetClass() > 30 ){
        return "You are not skilled enough to wield this weapon.";
    }
    return 1;
}

int eventDeteriorate(int type){
    int x = GetClass();

    if( x ){
        object env = environment();

        if( living(env) ){
            if( x > 1 ){
                env->eventPrint(capitalize(GetDefiniteShort()) +
                  " is wearing down.");
            }
            else {
                env->eventPrint(capitalize(GetDefiniteShort()) +
                  " is completely worn.");
            }
        }
        if( GetProperty("blessed") ){
            SetClass(x-2);
        }
        else {
            SetClass(x-1);
        }
    }
    return 1;
}

mixed eventEquip(object who, string array limbs){
    mixed tmp;

    if( functionp(Wield) ){
        if( functionp(Wield) & FP_OWNER_DESTED ){
            return "Function pointer owner destructed.";
        }
        if( !evaluate(Wield, who, limbs) ){
            return 1;
        }
        else {
            Wielded = 1;
            return equip::eventEquip(who, limbs);
        }
    }
    Wielded = 1;
    tmp = equip::eventEquip(who, limbs);
    if( tmp != 1 ){
        Wielded = 0;
        return tmp;
    }
    if( stringp(Wield) ){
        who->eventPrint(Wield);
    }
    else {
        who->eventPrint("You wield " + GetShort() + ".");
    }
    environment(who)->eventPrint(who->GetName() + " wields " + GetShort() +
      ".", who);
    return 1;
}

int eventStrike(object target){
    int poison = GetPoison();

    if( poison > 0 ){
        int x = random(poison) + 1;

        if( x > 0 ){
            send_messages("", "$agent_possessive_noun " + GetKeyName() +
              " poisons $target_name.", environment(), target,
              environment(environment()));
            target->AddPoison(x);
            AddPoison(-x);
        }
    }
    return damage::eventStrike(target);
}

mixed eventUnequip(object who){
    mixed tmp = equip::eventUnequip(who);

    if( tmp != 1 ){
        Wielded = 1;
        return tmp;
    }
    Wielded = 0;
    if(!who->GetDead()) send_messages("unwield", "$agent_name $agent_verb $target_name.",
          who, this_object(), environment(who));
    return 1;
}

// Some things to respond to provide friendly error messages
mixed direct_remove_obj(){
    if( environment() != this_player() ){
        return "#You don't have that!";
    }
    return "#Do you mean to unwield it?";
}

mixed direct_wear_obj(){
    if( environment() != this_player() ){
        return "#You don't have that!";
    }
    return "#Do you mean to wield it?";
}