#include "morley.h"
inherit "/d/Imperium/std/zwierze.c";
#include <pl.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <ss_types.h>
mixed przym1 = ({ ({"duzy", "duzi"}), 
		  ({"wielki", "wielcy"}),
		  ({"ogromny", "ogromni"}),
		  ({"olbrzymi", "olbrzymi"}),
		  ({"gigantyczny", "gigantyczni"}),
               });
mixed przym2 = ({ ({"niespokojny", "niespokojni"}),
		  ({"agresywny", "agresywni"}),
		  ({"zarloczny", "zarloczni"}),
		  ({"zwinny", "zwinni"}),
		  ({"krwiozerczy", "krwiozerczy"}),
	       });
int q_att();
void
create_zwierze()
{
    int tmp;
    set_m_in("przylatuje tutaj.");
    set_m_out("wylatuje");
    ustaw_odmiane_rasy(({"nietoperz", "nietoperza", "nietoperzowi", "nietoperza", "nietoperzem", "nietoperzu"}),
		       ({"nietoperze", "nietoperzy", "nietoperzom", "nietoperze", "nietoperzami", "nietoperzach"}),
		       PL_MESKI_NOS_ZYW);
    tmp = random(sizeof(przym1));
    dodaj_przym(przym1[tmp][0], przym1[tmp][1]);
    tmp = random(sizeof(przym2));
    dodaj_przym(przym2[tmp][0], przym2[tmp][1]);
    
    set_long("Zwierze to choc z wygladu moze nieco przypominac zwyklego nietoperza, " +
	     "jest jednak od niego znacznie wieksze. Od pyska, bardzo " +
	     "przypominajacego psi, do ogona moze miec nawet ze trzy lokcie. " +
	     "Cialo i szerokie skrzydla pokrywa czarna jak wegiel, krotka siersc.\n");
    add_prop(CONT_I_WEIGHT, 13000 + random(5000));
    add_prop(CONT_I_HEIGHT, 90 + random(30));
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(NPC_M_NO_ACCEPT_GIVE, " obejdzie sie i bez tego.\n");
    add_prop(LIVE_I_SEE_DARK, 20);
    add_prop(OBJ_S_WIZINFO, "by Morley '98-'99\n");
    set_attack_unarmed(0, 45, 25, W_IMPALE, 40, "zebami");
    set_attack_unarmed(1, 55, 17, W_SLASH, 60, "pazurami");
    set_hitloc_unarmed(0, 5, 15, "glowe");
    set_hitloc_unarmed(1, 10, 25, "tulow");
    set_hitloc_unarmed(2, 15, 20, "lape");
    set_hitloc_unarmed(3, 10, 20, "lewe skrzydlo");
    set_hitloc_unarmed(4, 10, 20, "prawe skrzydlo");
    set_skill(SS_DEFENCE, 35);
    set_skill(SS_AWARENESS, 65);
    set_stats(({23 + random(5), 35 + random(10), 27 + random(7), 5, 5, 23 + random(5)}));
    set_act_time(20 + random(10));
    set_cact_time(5);
    add_act("emote lata gdzies pod sufitem.");
    add_act("emote zjada jakis kawalek miesa.");
    add_act("emote piszczy przerazliwe.");
    add_act("emote szuka jakies latwej ofiary.");
    add_act("emote krazy ci nad glowa.");
    add_cact("emote okraza cie i atakuje od tylu.");
    add_cact("emote piszczy krwiozerczo.");
    add_cact("emote szczerzy na ciebie liczne male, ale i bardzo ostre zabki.");
    add_cact("emote bojowo furkocze skrzydlami.");
    set_aggressive(q_att);
    set_attack_chance(40 + random(40));
    set_random_move(30);
}
int
q_att()
{
    if (this_player()->query_prop(IMPERIUM_STWOR_CHAOSU) == 1)
	return 0;
    return 1;
}