#include "morley.h"
inherit "/d/Imperium/std/zwierze.c";
#include <pl.h>
#include <stdproperties.h>
#include <wa_types.h>
#include <ss_types.h>
#include <macros.h>
mixed przym1 = ({ ({"duzy", "duzii"}), 
		  ({"wielki", "wielcy"}),
		  ({"krotkowlosy", "krotkowlosi"}),
                  ({"potezny", "potezni"}),
               });
mixed przym2 = ({ ({"niespokojny", "niespokojni"}),
		  ({"umiesniony", "umiesnieni"}),
                  ({"czarny", "czarni"}),
                  ({"polyskliwy", "polyskliwi"}),
                  ({"zwinny", "zwinni"}),
	       });
int q_att();
void
create_zwierze()
{
    int tmp;
    ustaw_odmiane_rasy(({"pies", "psa", "psu", "psa", "psem", "psie"}),
		       ({"psy", "psow", "psom", "psy", "psami", "psach"}),
		       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("Pies jest wyjatkowo duzy i bardzo dobrze umiesniony o krotkiej " +
	     "polyskliwej czarnej siersci. Z glebi jego oczu bije jakies dziwne " +
	     "swiatlo nadajac mu dziwnie grozny wyglad. Uczucie to poglebiaja " +
	     "dwa rzedy niezwykle ostrych zebow wystajacych mu z pyska.\n");
    add_prop(CONT_I_WEIGHT, 35000 + random(10000));
    add_prop(CONT_I_VOLUME, 90000 + random(20000));
    add_prop(CONT_I_HEIGHT, 110 + random(20));
    add_prop(LIVE_I_SEE_DARK, 2);
    add_prop(NPC_I_NO_FEAR, 1);
    add_prop(NPC_I_NO_RUN_AWAY, 1);
    add_prop(NPC_M_NO_ACCEPT_GIVE, " swietnie poradzi sobie i bez tego.\n");
    add_prop(OBJ_S_WIZINFO, "by Morley '98-'99\n");
    set_attack_unarmed(0, 70, 32, W_IMPALE, 60, "ostrymi zebami");
    set_attack_unarmed(1, 50, 22, W_SLASH, 20, "prawa lapa");
    set_attack_unarmed(2, 50, 22, W_SLASH, 20, "lewa lapa");
    set_hitloc_unarmed(0, 15, 15, "glowe");
    set_hitloc_unarmed(1, 20, 55, "tulow");
    set_hitloc_unarmed(2, 20, 30, "lape");
    set_skill(SS_DEFENCE, 30);
    set_skill(SS_AWARENESS, 70);
    set_stats(({50 + random(20), 45 + random(10), 50 + random(20), 5, 5, 50}));
    set_random_move(30);
    set_aggressive(q_att);
    // set_restraint_path(); (pozniej trzeba dodac)
    set_act_time(20 + random(15));
    set_cact_time(5);
    add_act("warknij groznie");
    add_act("emote szczeka donosnie.");
    add_act("emote broczy z pyska slina.");
    add_act("emote obwachuje ziemie.");
    add_act("emote obgryza jakas kosc.");
    add_cact("emote szczerzy na ciebie zeby.");
    add_cact("emote klapie groznie zebami.");
    add_cact("emote szczeka wsciekle na ciebie.");
    add_cact("emote wyje szalenczo.");
}
int
q_att()
{
    if (this_player()->query_prop(IMPERIUM_STWOR_CHAOSU) == 1)
	return 0;
    return 1;
}