#include <lib.h>

inherit LIB_SENTIENT;

int CheckOrc(mixed val){
    if(!val) return 0;
    if(!objectp(val)) return 0;
    if(val->GetRace() == "orc" || val->GetRace() == "rodent") return 0;
    else eventForce("growl at "+val->GetKeyName());
    return 1;
}

static void create() {
    ::create();
    SetKeyName("orc");
    SetId(({"orc","chieftain","chiklis"}));
    SetAdjectives(({"orc","armored","professional","chieftain"}));
    SetShort("an orc chieftain");
    SetLong("This is a large orc, covered in ornate tattoos and "+
            "markings of power and prestige. His powerful frame is "+
            "clearly accustomed to physically establishing authority.");
    SetInventory(([
                "/domains/cave/weap/longsword" : "wield sword",
                "/domains/cave/armor/platemail" : "wear platemail",
                "/domains/cave/armor/orc_helmet" : "wear helmet",
                "/domains/cave/armor/chainmail_collar" : "wear collar",
                "/domains/cave/armor/armored_boot_l" : "wear left boot",
                "/domains/cave/armor/armored_boot_r" : "wear right boot",
                "/domains/cave/armor/armored_glove_r" : "wear right glove",
                "/domains/cave/armor/armored_glove_l" : "wear left glove",
                ]));
    SetRace("orc");
    SetLevel(10);
    SetClass("fighter");
    SetGender("male");
    SetEncounter(  (: CheckOrc :) );
    SetStat("strength",85);
    SetGuard("/domains/cave/obj/chest2","The orc blocks your theft.");
}

void init(){
    ::init();
}

int eventDie(){
    if(sizeof(GetWieldingLimbs())){
        eventForce("laugh");
        eventForce("speak enjoy your victory, punk!");
        eventForce("pull lever");
    }
    else {
        eventForce("spit");
        eventForce("speak you have no idea what you've done, fool!");
    }
    return ::eventDie();
}