inherit "/d/Imperium/std/zwierze";

#include <macros.h>
#include <filter_funs.h>
#include "darkmts.h"

#define A_BITE  0
#define A_LCLAW 1
#define A_RCLAW 2
#define H_HEAD 0
#define H_BODY 1

create_zwierze()
{

    set_long("Ogromny gad ocieka jeszcze woda z sadzawki, cialo pokryte "
           + "grubymi, szarymi luskami blyszczy sie przy jego naglych ruchach. "
           + "Waski, dlugi jezyk porusza sie nieprzyjemnie, wzbudzajac w tobie "
           + "dreszcze. Bestia wyglada na agresywna i - co gorsza - glodna. "
           + "Obchodzi cie wokol, mierzac zoltymi slepiami i syczac glosno.\n");

    ustaw_nazwe(({"jaszczur","jaszczura","jaszczurowi","jaszczura","jaszczurem",
      "jaszczurze"}),({"jaszczury","jaszczurow","jaszczurom","jaszczury", 
      "jaszczurami","jaszczurach"}),PL_MESKI_NOS_ZYW);

    ustaw_odmiane_rasy(({"jaszczur","jaszczura","jaszczurowi","jaszczura","jaszczurem",
      "jaszczurze"}),({"jaszczury","jaszczurow","jaszczurom","jaszczury", 
      "jaszczurami","jaszczurach"}),PL_MESKI_NOS_ZYW);  

    dodaj_przym("ogromny","ogromni");
    dodaj_przym("szary","szarzy");

    set_gender(G_MALE);
    set_stats(({ 50, 10, 60, 1, 1, 70}));

    set_alignment(-100);
    set_aggressive(1);
    add_prop(LIVE_I_NEVERKNOWN, 1);
    add_prop(OBJ_I_WEIGHT, 100000);
    add_prop(OBJ_I_VOLUME,  10000);

    set_skill(SS_DEFENCE, 30);

    set_attack_unarmed(A_BITE,  10, 13, W_IMPALE, 40, "ogromna paszcza");

    set_hitloc_unarmed(H_HEAD, ({ 5,4,5 }), 20, "glowe");
    set_hitloc_unarmed(H_BODY, ({ 5,6,3 }), 80, "korpus");    

    set_act_time(10);
    add_act("emote okraza sadzawke i syczy niespokojnie.");
    add_act("emote naglym ruchem dlugiego ogona uderza w stos kosci, "
          + "kruszac je doszczetnie.");
    add_act("emote wydaje niespokojny syk.");
    
    
    add_leftover(NPATH+"skora.c",({"skora","skory","skorze","skore","skora","skorze"}),
               ({"skory","skor","skorom","skory","skorami","skorach"}),
               PL_ZENSKI,1,0,1,1);

}

void
jakie_resztki()
{
    if (!random(5))
	add_leftover("/std/leftover", ({ "zab", "zeba", "zebowi", "zab",
	    "zebem", "zebie" }), ({ "zeby", "zebow", "zebom", "zeby", "zebami",
	    "zebach" }), PL_MESKI_NOS_NZYW, random(5) + 1, 0, 1, 0);	  
    if (!random(5))
	add_leftover("/std/leftover", ({ "czaszka", "czaszki", "czaszce", 
	    "czaszke", "czaszka", "czaszce" }), ({ "czaszki", "czaszek",
	    "czaszkom", "czaszki", "czaszkami", "czaszkach" }), PL_ZENSKI,
	    1, 0, 1, 1);
    if (!random(5))
	add_leftover("/std/leftover", ({ "serce", "serca", "sercu", "serce",
	    "sercem", "sercu" }), ({ "serca", "serc", "sercom", "serca",
	    "sercami", "sercach" }), PL_NIJAKI_NOS, 1, 0, 0, 1);
    add_leftover("/std/leftover", ({ "oko", "oka", "oku", "oko", "okiem",
        "oku" }), ({ "oczy", "oczu", "oczom", "oczy", "oczami", "oczach" }),
        PL_NIJAKI_OS, 2, 0, 0, 0);
}