inherit "/d/Imperium/std/monster.c";

#include <local.h>

void

create_monster()
{

    ustaw_nazwe(PL_ORK);
    ustaw_odmiane_rasy(PL_ORK);

    dodaj_przym("bystry","bystrzy");
    dodaj_przym("maly","mali");

    set_long("Widzisz malego orka, o waskich, swinskich oczkach. Jest przygarbiony "+
         "i rozglada sie dokola raz po raz. Ubrany jest z zielony, maskujacy stroj, "+
         "charakterystyczny dla orkowych zwiadowcow.\n");

    set_gender(G_MALE);

    set_skill(SS_DEFENCE, 10);
    set_skill(SS_BLIND_COMBAT, 10);
    set_skill(SS_UNARM_COMBAT, 10);
    set_skill(SS_AWARENESS, 60);
    set_skill(SS_HIDE, 50);

    set_alignment(-100);

    add_prop(CONT_I_HEIGHT, 140);
    add_prop(CONT_I_WEIGHT, 43000);

    add_prop(LIVE_I_NEVERKNOWN, 1);

    set_stats(({40, 40, 40, 30, 25, 40}));

    set_act_time(10 + random(10));

    add_prop(OBJ_I_HIDE, 20);
}

void
attacked_by(object ob)
{    
//    ::attacked_by(ob);
    set_alarm(0.1,0.0,"rem_obj");
}

rem_obj()
{
   command("emote umyka w poplochu w las.");
   remove_object();
}