#include <lib.h>

inherit LIB_SENTIENT;


int left_hand;
void complete_quest(object ob);

create() {
    ::create();
    SetKeyName("beggar");
    SetId( ({ "beggar" }) );
    SetShort("A poor beggar");
    SetAggressive( 0);
    SetWanderSpeed(60);
    SetGender("male");
    SetLevel(4);
    SetLong("He is a poor beggar looking only for a few coins.\n");
    SetEncounter(0);
    SetMorality(30);
    SetRace( "human");
    SetMaxHealthPoints(50);
    SetHealthPoints(50);
    AddLimb("head", "FATAL", 25, 0, 4);
    AddLimb("torso", "FATAL", 50, 0, 4);
    AddLimb("right arm", "right hand", 20, 0, 4);
    AddLimb("right hand", "", 15, 0, 4);
    AddLimb("left arm", "left hand", 20, 0, 4);
    AddLimb("left hand", "", 15, 0, 4);
    AddLimb("right leg", "right foot", 25, 0, 4);
    AddLimb("right foot", "", 20, 0, 4);
    AddLimb("left leg", "left foot", 25, 0, 4);
    AddLimb("left foot", "", 20, 0, 4);
    RemoveLimb("left hand",this_object());
    left_hand = 0;
    new("/domains/Praxis/obj/misc/cold")->infect(this_object());
}
void catch_tell(string str) {
    object ob;
    string a, b, c;

    if(sscanf(str, "%s quest%*s", a)) {
        call_out("say_line", 2, "The beggar says: What quest?  I know nothing of any quests.\n");
        return;
    }
    if(sscanf(str, "%s regenerates your %s", a, b) == 2) {
        if(left_hand) return;
        if(!(ob=present((a=lower_case(a)), environment(this_object())))) return;
        //if(!query_is_limb("left hand")) return;
        left_hand = 1;
        call_out("complete_quest", 1, ob);
        return;
    }
    if(sscanf(str, "%s says: %s hand%*s", a, b) == 2) {
        //if(query_is_limb("left hand")) 
        //call_out("say_line", 2, "The beggar says: My left hand is doing fine now!\n");
        //        else 
        call_out("say_line", 2, "The beggar says: I wish it could be replaced.\n");
        return;
    }
    if(sscanf(str, "%s gives %s you", a, b) == 2) {
        ob = present( lower_case(a), environment(this_object()));
        if(ob) {
            tell_object(ob, "The beggar thanks you for your generousity.\n");
            tell_room(environment(this_object()), "The beggar thanks "+a+" for "+ob->query_possessive()+" generousity.\n", ({this_object(), ob}));
        }
    }
    if(sscanf(str, "%s?", a)) {
        call_out("say_line", 2, "The beggar says: I do not understand the question.\n");
        return;
    }
    if(sscanf(str, "%ssmiles%s", a, b) == 2)
        call_out("say_line", 2, "The beggar smiles happily.\n");
    AddAlcohol(200);
}
void complete_quest(object ob) {
    if(!ob->set_mini_quest("beggar", 5000,
                "You replaced the missing left hand of a poor beggar.\n")) {
        tell_object(ob, "The beggar thanks you.\n");
        tell_room(environment(this_object()), "The beggar thanks "+ob->query_cap_name()+".\n", ({ ob, this_object() }) );
        SetAction(5, ob->query_cap_name()+" replaced my missing left hand!");
        return;
    }
    tell_object(ob, "The beggar glows in satisfaction!\n");
    tell_object(ob, "The beggar says: Thank you so much!\n");
    tell_object(ob, "You feel more experienced.\n");
    tell_room(environment(this_object()), ob->query_cap_name()+" looks more experienced.\n", ({ ob, this_object() }) );
    SetAction(5, ob->query_cap_name()+" replaced my missing left hand!" );
}
void say_line(string str) {
    tell_room(environment(this_object()), str, ({ this_object() }) );
}
void init(){
    ::init();
}