#include <lib.h>
#include ROOMS_H
#include <damage_types.h>
#include <vendor_types.h>
#include <daemons.h>

inherit LIB_DUMMY;

string WoundLong(){
    int num;
    string noun, poss, verb, ret;
    string being, plural;
    object env = environment();

    if(!env){
        return "Error.";
    }

    num = env->GetLead(); 

    if(env == this_player()){
        noun = "You";
        verb = "have";
        poss = "your";
    }
    else {
        noun = env->GetName();
        verb = "has";
        poss = possessive(env);
    }
    num = env->GetLead();
    if(!num){
        verb = (env == this_player() ? "are" : "is");
        ret =  noun + " " + verb + " recovering from gunfire wounds.";   
        return ret;
    }
    if(num > 1){
        being = "are";
        plural = "s";
    }
    else {
        being = "is";
        plural = "";
    }

    ret = noun + " " + verb + " been wounded by gunfire. There "+ 
        being + " " + cardinal(this_player()->GetLead())+" bullet hole"+
        plural + " in " + poss + " body.";

    return ret;
}

void create(){
    ::create();
    SetKeyName("wound");
    SetId(({"wound","firearms_wound","wounds"}));
    SetShort("a gunshot wound");
    SetLong( (: WoundLong :) );
    set_heart_beat(20);
}

string GetAffectLong(object ob) {
    if(!ob || !living(ob) || ob->GetUndead()) return 0;
    return ob->GetName() + " is suffering from gunshot wounds.";
}

void heart_beat(){
    object ob = environment();
    int num;
    if(!ob || !living(ob)){
        this_object()->eventMove(ROOM_FURNACE);
        return;
    }
    num = ob->GetLead();
    if(!num){
        int tmp = ob->GetLead("gunshot_wounds");
        ob->AddLead("gunshot_wounds", -tmp);
        tmp = ob->GetLead("rifleshot_wounds");
        ob->AddLead("rifleshot_wounds", -tmp);
        this_object()->eventMove(ROOM_FURNACE);
        return;
    } 
    if(!RACES_D->GetNonMeatRace(ob->GetRace()) && interactive(ob)
            && !(ob->GetUndead())){
        tell_object(ob,"You bleed heavily from your gunshot wounds.");
        tell_room(environment(ob), ob->GetName()+
                " bleeds heavily from "+possessive(ob)+" gunshot "+
                "wounds.",environment());
    }
}

mixed CanGet(object ob) { return "#Your hands slip on the gunshot wounds.";}
mixed CanDrop(object ob) { return "#Your hands slip on the gunshot wounds.";}